バッチ・ランタイム環境でのZ/OS JCL

この章には次のトピックが含まれます:

•	バッチ・ランタイム環境でのz/OS JCLの概要

•	バッチ・ランタイム環境でのZ/OS JCLカード

•	ソート・ユーティリティ

•	DB2ユーティリティ

•	COBOLランタイム

バッチ・ランタイム環境でのz/OS JCLの概要

この項では、ターゲット環境でz/OS JCL文に対応するものを見つける方法を説明します。これらの対応するものの中には、バッチ・ランタイム関数を参照するものや、UNIXまたはTuxedoの機能を直接利用しているものがあります。場合によっては、対応するものがなく、代替ソリューションが必要になることがあります。

このドキュメントはz/OS JCLについて説明することを目的としていないため、JCL文の説明はすべて、z/OS Internet Libraryを参照してください。

バッチ・ランタイム環境でのZ/OS JCLカード

次の表に、JCLカードのパラメータと、バッチ・ランタイムでそれに関連するコマンドを示します。

「ステータス」列では次の略語が使用されます。

N.R.は「関連なし」を示します

N.S.は「非対応」を示します

JCLカード対応表

 

表2-1 JCLカードに対応するもの

JCLカード	パラメータ	ターゲット環境で対応するもの	ステータス
//*		コメント	サポート対象
/*		ストリーム内データ・デリミタ	サポート対象
//		ジョブの終了	サポート対象
COMMAND			N.S.
CNTL/ENDCNTL			N.R.
DD	*	m_FileAssign -i	サポート対象
	ACCODE		N.R.
	AMP		N.R.
	AVGREC		N.R.
	BLKSIZE		N.R.
	BLKSZLIM		N.R.
	CCSID		N.R.
	CHKPT		N.S.
	CNTL		N.R.
	DATA	m_FileAssign	サポート対象
	DATACLAS	「DD文のDATACLASパラメータ」を参照	サポート対象
	DCB	「DD文のDCBパラメータ」を参照	サポート対象
	DISP	m_FileAssign -d <DISP option>	サポート対象
	DLM	m_FileAssign -D <delimiter>	サポート対象
	DSID		N.R.
	DSNAME	m_FileAssign	サポート対象
DD (続き)	DSNTYPE		N.S.
	DUMMY	m_FileAssignで/dev/nullを指定	サポート対象
	DYNAM	m_FileAssignで/dev/nullを指定	サポート対象
	EXPDT	m_FileAssign -e	サポート対象
	FILEDATA		N.R.
	FREE		N.R.
	KEYLEN	m_FileAssign -k	サポート対象
	KEYOFF	m_FileAssign -k	サポート対象
	LABEL		N.R.
	LGSTREAM		N.R.
	LIKE	m_FileAssign -s	サポート対象
	LRECL	m_FileAssign -r	サポート対象
	MGMTCLAS		N.R.
	MSVGP		N.R.
	PATH	m_FileAssign -U	N.R.
	PATHDISP		N.R.
	PATHMODE	m_FileAssign -M	N.R.
	PATHOPTS	m_FileAssign -O	N.R.
	PROTECT		N.R.
	QNAME		N.R.
	RECFM	m_FileAssign -r	サポート対象
	RECORG	m_FileAssign -t	サポート対象
DD (続き)	REFDD		N.S.
	RETPD	m_FileAssign -e	サポート対象
	RLS		N.R.
	SECMODEL		N.R.
	SPACE		N.R.
	STORCLAS		N.R.
	SUBSYS		N.S.
	TERM		N.R.
	UNIT		N.R.
	VOLUME	m_FileAssgin -v	サポート対象
DD : 出力パラメータ	BURST		N.S.
	CCSID		N.R.
	CHARS		N.S.
	COPIES	m_OutputAssign -c	サポート対象
	DEST	m_OutputAssign -d	サポート対象
	FCB		N.S.
	FLASH		N.S.
	HOLD	m_OutputAssign -H	サポート対象
	MODIFY		N.S.
	OUTLIM		N.S.
	OUTPUT	m_OutputAssign -o	サポート対象
	SEGMENT		N.R.
	SPIN		N.S.
	SYSOUT	「DD文のSYSOUTパラメータ」を参照	サポート対象
	UCS		N.S.
DD: 特殊な文	JOBLIB	m_JobLibset	サポート対象
	STEPLIB	m_StepLibset	サポート対象
	SYSABEND		N.S.
	SYSMDUMP		N.S.
	SYSUDUMP		N.S.
	SYSCHK		N.S.
	SYSIN	m_FileAssign	サポート対象
	SYSCKEOV		N.S.
EXEC	ACCT		N.S.
	ADDRSPC		N.R.
	CCSID		N.R.
	COND	m_CondExec	サポート対象
	DPRTY		N.R.
	DYNAMNBR		N.R.
	MEMLIMIT		N.R.
	PARM	m_ProgramExec	サポート対象
	PERFORM		N.R.
	PGM	m_ProgramExec	サポート対象
	PROC		サポート対象
	RD		N.S.
	REGION		N.R.
	RLSTMOUT		N.R.
	TIME		N.S.
IF THEN ELSE END		m_CondIf   m_CondElse m_CondEndif	サポート対象
INCLUDE	MEMBER	m_ShellInclude
JCLLIB	ORDER	m_JclLibSet
JOB	<jobname>	m_JobBegin	サポート対象
	<accounting>		N.S.
	<prog. name>		N.S.
	ADDRSPC		N.R.
	BYTES		N.S.
	CARDS		N.R.
	CCSID		N.S.
	CLASS	m_JobBegin -c (TuxJESとともに使用)。	サポート対象
	COND	m_JobBegin -C	サポート対象
	GROUP		N.R.
	JESLOG		N.S.
	LINES		N.S.
	MEMLIMIT		N.R.
	MSGCLASS		N.S.
	MSGLEVEL		N.S.
	NOTIFY		N.S.
	PAGES		N.S.
	PASSWORD		N.R.
	PERFORM		N.R.
	PRTY	m_JobBegin -p (TuxJESとともに使用)。	サポート対象
JOB	RD		N.S.
	REGION		N.R.
	RESTART	「JOB文のRESTARTパラメータ」を参照	部分的にサポートされています
	SECLABEL		N.R.
	SCHENV		N.R.
	TIME		N.S.
	TYPRUN	m_JobBegin -t (TuxJESとともに使用)	サポート対象
	USER		N.S.
OUTPUT	ADDRESS		N.S.
	AFPSTATS		N.S.
	BUILDING		N.S.
	BURST		N.S.
	CHARS		N.S.
	CKPTLINE		N.S.
	CKPTPAGE		N.S.
	CKPTSEC		N.S.
	CLASS	m_OutputSet -c	サポート対象
	COLORMAP		N.S.
	COMPACT		N.S.
	COMSETUP		N.S.
	CONTROL		N.S.
	COPIES	m_OutputSet -n	サポート対象
	DATACK		N.S.
	DEFAULT	m_OutputSet -D	サポート対象
	DEPT		N.S.
	DEST	m_OutputSet -d	サポート対象
OUTPUT (続き)	DPAGELBL		N.S.
	DUPLEX		N.S.
	FCB		N.S.
	FLASH		N.S.
	FORMDEF		N.S.
	FORMLEN		N.S.
	FORMS	m_OutputSet -f	サポート対象
	FSSDATA		N.S.
	GROUPID		N.S.
	INDEX		N.S.
	INTRAY		N.S.
	JESDS		N.S.
	LINDEX		N.S.
	LINECT		N.S.
	MAILBCC		N.S.
	MAILCC		N.S.
	MAILFILE		N.S.
	MAILFROM		N.S.
	MAILTO		N.S.
	MODIFY		N.S.
	NAME		N.S.
	NOTIFY		N.S.
	OFFSETXB		N.S.
OUTPUT (続き)	OFFSETXF		N.S.
	OFFSETYB		N.S.
	OFFSETYF		N.S.
	OUTBIN		N.S.
	OUTDISP		N.S.
	OVERLAYB		N.S.
	OVERLAYF		N.S.
	OVFL		N.S.
	PAGEDEF		N.S.
	PIMSG		N.S.
	PORTNO		N.S.
	PRMODE		N.S.
	PRTATTRS		N.S.
	PRTERROR		N.S.
	PRTOPTNS		N.S.
	PRTQUEUE		N.S.
	PRTY	m_OutputSet -p	サポート対象
	REPLYTO		N.S.
	RESFMT		N.S.
	RETAINF		N.S.
	RETAINS		N.S.
	RETRYL		N.S.
	RETRYT		N.S.
OUTPUT (続き)	ROOM		N.S.
	SYSAREA		N.S.
	THRESHLD		N.S.
	TITLE		N.S.
	TRC		N.S.
	UCS		N.S.
	USERDATA		N.S.
	USERLIB		N.S.
	USERPATH		N.S.
	WRITER	m_OutputSet -w	サポート対象
PROC		m_ProcInclude	サポート対象
ストリーム内PROC		m_ProcBegin	サポート対象
ストリーム内PEND		m_ProcEnd	サポート対象
SET		m_SymbolSet	サポート対象
XMIT (レコード)			N.S.
XMIT (JOB)		m_SetJobExecLocation	サポート対象
XEQ		m_SetJobExecLocation	サポート対象
ROUTE	PRINT	NFSと共有	サポート対象
	PUNCH	NFSと共有	サポート対象
	XEQ	m_SetJobExecLocation	サポート対象

DD文のDCBパラメータ

 

表2-2 DD文のDCBパラメータ

DCBパラメータ	ターゲット環境で対応するもの	ステータス
BFANL		N.R.
BFTEK		N.R.
BLKSIZE		N.R.
BUFIN		N.R.
BUFL		N.R.
BUFMAX		N.R.
BUFNO		N.R.
BUFOFF		N.R.
BUFOUT		N.R.
BUFSIZE		N.R.
CPRI		N.R.
CYLOFL		N.R.
DEN		N.R.
DIAGNS		N.R.
DSORG	m_FileAssign -t	サポート対象
EROPT		N.R.
FUNC		N.R.
GNCP		N.R.
INTVL		N.R.
IPLTXID		N.R.
KEYLEN	m_FileAssign -k	サポート対象
LIMCT		N.R.
LRECL	m_FileAssign -r	サポート対象
MODE		N.R.
NCP		N.R.
NTM		N.R.
OPTCD		N.R.
PCI		N.R.
PRTSP		N.R.
RECFM	m_FileAssign -r	サポート対象
RESERVE		N.R.
RKP	m_FileAssign -t	サポート対象
STACK		N.R.
TRESH		N.R.
TRTCH		N.R.

DD文のSYSOUTパラメータ

 

表2-3 DD文のSYSOUTパラメータ

SYSOUTパラメータ	使用方法	ターゲット環境で対応するもの	ステータス
第1パラメータ	クラス	m_OutputAssign -c	サポート対象
第2パラメータ	INTRDR	m_OutputAssign -w	サポート対象
	SMTP	m_OutputAssign -w	サポート対象
	<writer>	m_OutputAssign -w	サポート対象
第3パラメータ	フォーム名	m_OutputAssign -f	サポート対象
	コード名		N.S.

DD文のDATACLASパラメータ

DATACLASパラメータは、WB JCLレベルでのみ考慮されます。

z/OSから抽出されたDATACLASS情報を使用すると、WB JCL はm_FileAssign関数(またはIDCAMS DEFINEコマンド内のDATACLASパラメータからm_FileBuild関数)を更新します。

JOB文のRESTARTパラメータ

遅延ステップ再起動タイプのみ管理されます。

自動再起動(ステップまたはチェックポイント)および遅延チェックポイント再起動などの他のタイプは管理されません。

ジョブの遅延ステップ再起動は、m_JobBegin関数をジョブ手順を含む-rパラメータを使用してコーディングし、ジョブを再送信することによって発生します。

ストリーム内ファイル

ストリーム内ファイルは、-iパラメータを伴うm_FileAssign関数を使用してサポートされています。

ファイルの連結

ファイル(またはストリーム内ファイル)の連結は、-Cパラメータを伴うm_FileAssign関数を使用してサポートされています。

ファイルのオーバーライド

オーバーライド機能がサポートされています。

m_FileAssign関数によって管理されるファイルには、m_FileOverride関数を使用します。

m_OutputAssign関数によって管理されるファイルには、m_OutputOverride関数を使用します。

外部Sysinの実行

ファイルに格納されているコマンドを実行するには、m_UtilityExec関数を使用します。

ネットワーク・ジョブ入力(NJE)

次の表では、Oracle Tuxedo Application Rehosting Workbenchおよびバッチ・ランタイムでサポートされているJES2の制御文およびパラメータについて説明しています。

 

表2-4 サポートされるパラメータ

文	サポートされるパラメータ
/*XEQ	/*XEQ nodename
/*ROUTE	/*ROUTE PRINT LOCAL /*ROUTE PRINT nodename /*ROUTE PUNCH nodename /*ROUTE XEQ nodename
/*XMIT	/*XMIT nodename

ABENDルーチン

ユーザー・プログラムから異常終了または正常終了を取得します。ILBOABN0、CEE3ABDおよびART3ABDの3つのCOBOLプログラムが提供されます。これらは特定の条件で呼び出され、プログラムをそれ自体でABENDします。ABENDルーチンでstop runを呼び出すと、stop runは、バッチ・ランタイムが必要なクリーンアップを実行した後プロセスを終了します。

•	ILBOABN0 abcode

abcode: ABENDコード。

•	CEE3ABD abcode、clean-up

abcode: ABENDコード。

•	clean-up(input)

有効な値は、次のとおりです。

0: ABENDを発行します。Batch RuntimeはABENDを取得し、クリーンアップ作業を実行します。ジョブが失敗しました。

1: ABENDを発行します。Batch RuntimeはABENDを取得し、ファイルにシステム・ダンプを保存してから、クリーンアップ作業を実行します。ジョブが失敗しました。

•	ART3ABD abcode

abcode: ABENDコード。

ILBOABN0.cblソースは、Batch_RT/ejr/SAMPLEディレクトリにあります。

注意:	Micro Focus COBOLでは、バッチ・ランタイムは、2種類のABEND処理ルーチン(ILBOABN0とART3ABD)を提供します。これらはABENDを強制的に実行するために呼び出されます。Micro Focus COBOLでは、独自のABEND処理ルーチンCEE3ABDが提供されます。これはMicro Focus COBOLで定義されたとおりに機能します。

COBOL-IT COBOLでは、バッチ・ランタイムは2種類のABENDルーチン(ILBOABN0とCEE3ABD)を提供します。

一般的なユーティリティ・コマンド対応表

 

表2-5 一般的なユーティリティ・コマンドに対応するもの

ユーティリティ	コマンド	ターゲット環境で対応するもの	ステータス
IDCAMS (モーダル・コマンド)	IF/THEN/ELSE		サポート対象
	SET		サポート対象
	CANCEL		N.S.
	DO/END		N.S.
	MAXCC		サポート対象
	LASTCC		サポート対象
IDCAMS	ALLOCATE (メイン・パラメータ)	m_FileBuild	サポート対象
	ALTER NEWNAME	m_FileRename	サポート対象 注意: VSAM RDBファイルの名前変更はサポートされていません。
	ALTER LIBRARYENTRY		N.R.
	ALTER VOLUMEENTRY		N.R.
	BLDINDEX		N.R.
	CREATE LIBRARYENTRY		N.R.
	CREATE VOLUMEENTRY		N.R.
	DCOLLECT		N.S.
	DEFINE ALIAS		N.S.
	DEFINE AIX	m_FileBuild -K	サポート対象
	DEFINE CLUSTER	m_FileBuild	サポート対象
	DEFINE GDG	m_GenDefine	サポート対象
	DEFINE NONVSAM		N.S.
	DEFINE PAGESPACE		N.R.
	DEFINE PATH		N.R.
	DEFINE USERCATALOG		N.R.
	DELETE ALAIS		N.S.
	DELETE AIX	m_FileBuild -R	サポート対象
	DELETE CLUSTER	m_FileDelete	サポート対象
	DELETE GDG	m_FileDelete	サポート対象
	DELETE LIBRARYENTRY		N.R.
	DELETE NONVSAM	m_FileDelete	サポート対象
IDCAMS (続き)	DELETE NVR		N.S.
	DELETE PAGESPACE		N.R.
	DELETE PATH		N.R.
	DELETE TRUENAME		N.S.
	DEL USERCATALOG		N.R.
	DELETE VOLUMEENTRY		N.R.
	DELETE VVR		N.R.
	DIAGNOSE		N.S.
	EXAMINE		N.S.
	EXPORT		N.S.
	EXPORT DISCONNECT		N.R.
	IMPORT		N.S.
	IMPORT CONNECT		N.R.
	LISTCAT	m_FileListcat	サポート対象
	LISTDATA		N.S.
	PRINT	m_FilePrint	サポート対象
	REPRO	m_FileRepro	サポート対象
	SETCACHE		N.R.
	SHCDS		N.R.
	VERIFY		N.S.
IEBCOPY	ALTERMOD		N.R.
	COPY	m_DirCopy	サポート対象
	COPYGRP		N.R.
	COPYMOD		N.R.
	EXCLUDE	m_DirCopy -e	サポート対象
	SELECT	m_DirCopy -s	サポート対象
IEBGENER	SYSIN DUMMYとともに使用	m_FileLoad	サポート対象
	GENERATE MEMBER		N.S.
	GENERATE RECORD	m_FileSort	サポート対象
IEFBR14		m_ProgramExec IEFBR14	サポート対象
IEFBR15		m_ProgramExec IEFBR15	サポート対象
PKZIP	メイン・パラメータ	m_Pkzip	サポート対象
PKUNZIP	メイン・パラメータ	m_Pkunzip	サポート対象
SMTP		m_Smtp	サポート対象
XMITIP		m_SendMail	サポート対象
ZIP390	ACTION : ZIP	m_Pkzip	サポート対象
	ACTION : UNZIP	m_Pkunzip	サポート対象
	ENCRYPT		N.S.
	IFILE		サポート対象
	OFILE		サポート対象
	ARCHIVE		サポート対象
	OVERWRITE		サポート対象

 

ソート・ユーティリティ

ソート・ユーティリティ対応表

SORT, SORTD, DFSORT, ICEMAN, SYNCSORTT

 

表2-6 ソート・ユーティリティに対応するもの

ソート文	パラメータ	ターゲット環境で対応するもの	MFSORT	SyncSort
SORT		m_FileSort	サポート対象	サポート対象
MERGE		m_FileSort	サポート対象	サポート対象
OPTION		m_FileSort
	COPY		サポート対象	サポート対象
	SKIPREC		サポート対象	サポート対象
	STOPAFT		サポート対象	サポート対象
	INCLUDE		サポート対象	サポート対象
	OMIT		サポート対象	サポート対象
	OUTFILE		サポート対象	サポート対象
	OUTREC		サポート対象	サポート対象
	END		サポート対象	サポート対象
	RECORD		サポート対象	サポート対象
	SUM		サポート対象	サポート対象

ICETOOL

 

表2-7 ICETOOLに対応するもの

ソート文	ターゲット環境で対応するもの	MFSORT	SyncSort
SORT	m_FileSort	サポート対象	サポート対象
COPY	m_FileSort	サポート対象	サポート対象
MERGE	m_FileSort	サポート対象	サポート対象

ソート制限

syncsortユーティリティの使用時には、いくつかの制限があります。

•	syncsortではDFSORT (DATE3)書式に相当するものはありません。

•	DFSORT文(outrec, inrec)は、次の場合は完全にはサポートされません。

•	outrecフィールドのキーまたはフィールド定義でフィールド定数タイプがカットされると、エラーが発生(SYSIN変換でのMT_ERROR)し、kshには:#PHXが発生します。

•	outrecフィールドのキーまたはフィールド定義がinrecに含まれない場合、エラーが発生します。

•	SUMを指定した場合は、処理されません。

DB2ユーティリティ

DB2 Connect 9.7以上のみサポート対象。

 

表2-8 DB2ユーティリティ

コマンド	パラメータ	ターゲット環境で対応するもの	0racle	DB2LUW
DSNTEP2	SQL	m_ExecSQL	サポート対象	サポート対象
DSNTEP4	SQL	m_ExecSQL	サポート対象	サポート対象
DSNTIAD	SQL	m_ExecSQL	サポート対象	サポート対象
DSNTIAUL	SQL	m_ExecSQL	サポート対象	サポート対象
	“Unload”	m_DBTableUnload	サポート対象	サポート対象
DSNUTILB	EXEC SQL	m_ExecSQL	サポート対象	サポート対象
	LOAD	m_DBTableLoad	サポート対象	サポート対象
	UNLOAD	m_DBTableUnload	サポート対象	サポート対象

DSNTIAUL

メインフレームでは、DSNTIAULプログラムはDB2表から順編成データ・セットにデータをアンロードするために使用されます。データはデータ・セットにコピーされ、表から削除されません。

Oracle Database表からデータをアンロードするためにバッチ・ランタイムに用意されているDSNTIAULユーティリティには、DB2を使用したメインフレームのDSNTIAULプログラムと同じ機能があります。

次の表に、サポートされているDB2データ型とOracle Databaseターゲットでの変換を示します。

 

表2-9 サポートされるデータ型

メインフレームのDB2におけるデータ型	Oracle Databaseにマップされたデータ型
DECIMAL(p)	NUMBER(p)
DECIMAL(p,s)	NUMBER(p,s)
CHAR(n)	CHAR(n)
VARCHAR(n)	VARCHAR2(n)
TIMESTAMP 注意: デフォルトの書式YYYY-MM-DD-HH24.MI.SS.FF6のみがサポートされます。	TIMESTAMP
TIME 注意: デフォルトの書式HH24.MI.SSのみがサポートされます。	DATE
DATE 注意: デフォルトの書式YYYY-MM-DDのみがサポートされます。	DATE
real	BINARY_DOUBLE
Float(n) (1<=n<=21)	BINARY_DOUBLE
Float(n) (22<=n<=53)	BINARY_DOUBLE
Double	BINARY_DOUBLE

DSNTIAULの制限事項

•	同じデータベース表の列に対してselect文で同等のSQL関数を適用する場合、バッチ・ランタイムのDSNTIAULがOracle Databaseに対して出力するデータ型は、メインフレームのDSNTIAULがDB2に対して出力するデータ型と異なる場合があります。

•	DB2のreal、Float(n) (1<=n<=21)、Float(n) (22<=n<=53)およびDoubleデータ型については、Oracle DatabaseでBINARY_DOUBLEデータ型(8バイト)に変換されます。Micro Focus COBOLを使用することで、COBOLプログラムのCOMP-2変数に対して、ターゲット・ファイルのフィールドを取得できます(COBOL-IT COBOLは不正確な結果をもたらす可能性があります)。

•	出力ファイルは、固定幅の順編成ファイルにする必要があります。

DSNTIAULの構成

バッチ・ランタイムのDSNTIAULを構成するには、次の操作を実行します。

1.	バッチ・ランタイムの環境変数を設定します。

詳細は、『Oracle Tuxedo Application Runtime for Batchユーザー・ガイド』の環境変数の設定に関する項を参照してください。

2.	バッチ・ランタイムに組込みのDB2-to-Oracle SQL Converterを有効にします。

これを有効にするには、export MT_DB_SQL_PREPROCESS="${JESDIR}/tools/sql/oracle/BatchSQLConverter.sh"を使用するか、$JESDIR/ejr/CONF/BatchRT.confのMT_DB_SQL_PREPROCESSを構成します。

3.	MT_DSNTIAUL=Yを構成します。

MT_DSNTIAULのデフォルト値はYです。詳細は、『Oracle Tuxedo Application Runtime for Batchユーザー・ガイド』の環境変数の設定に関する項を参照してください。

4.	DATE、TIMESTAMP、TIMESTAMP WITH TIME ZONEおよびTIMESTAMP WITH LOCAL TIME ZONEの形式を設定します。

•	環境DSNTIAUL_DATE_FORMATは日付形式を定義します。設定しない場合は、デフォルト値のYYYY-MM-dd HH24:MI:SSが使用されます。

•	環境DSNTIAUL_TIMESTAMP_FORMATはタイムスタンプ形式を定義します。設定しない場合は、デフォルト値のYYYY-MM-DD-HH24.MI.SS.FF6が使用されます。

•	環境DSNTIAUL_TIMESTAMP_TZ_FORMATはタイムゾーン付きのタイムスタンプ形式を定義します。設定しない場合は、デフォルト値のYYYY-MM-DD-HH24.MI.SS.FF6が使用されます。

•	環境DSNTIAUL_TIMESTAMP_LTZ_FORMATはローカル・タイムゾーンのタイムスタンプ形式を定義します。設定しない場合は、デフォルト値のYYYY-MM-DD-HH24.MI.SS.FF6が使用されます。

5.	言語および地域を設定します。

環境変数NLS_LANGは、言語と地域を定義します。設定されていない場合は、デフォルト値Americanが使用されます。

DSNUTILB

DSNUTILB

メインフレームでは、DSNUTILBはユーティリティ制御プログラムを指定します。バッチ・ランタイムは、Oracleの表から可変長の順次データ・セットへのデータのアンロード、および順次データ・セットからOracleの表へのデータのロードを行うためのDSNUTILBユーティリティを提供しています。

DSNUTILBの構成

•	DATE、TIMESTAMP、TIMESTAMP WITH TIME ZONEおよびTIMESTAMP WITH LOCAL TIME ZONEの形式を設定します。

•	環境DSNUTILB_DATE_FORMATは日付形式を定義します。設定しない場合は、デフォルト値のYYYY-MM-dd HH24:MI:SSが使用されます。

•	環境DSNUTILB_TIMESTAMP_FORMATはタイムスタンプ形式を定義します。設定しない場合は、デフォルト値のYYYY-MM-DD-HH24.MI.SS.FF6が使用されます。

•	環境DSNUTILB_TIMESTAMP_TZ_FORMATはタイムゾーン付きのタイムスタンプ形式を定義します。設定しない場合は、デフォルト値のYYYY-MM-DD-HH24.MI.SS.FF6が使用されます。

•	環境DSNUTILB_TIMESTAMP_LTZ_FORMATはローカル・タイムゾーンのタイムスタンプ形式を定義します。設定しない場合は、デフォルト値のYYYY-MM-DD-HH24.MI.SS.FF6が使用されます。

•	DSNUTILB_CLEAN_TABLEを設定します。

•	環境DSNUTILB_CLEAN_TABLEは、DSNUTILBのロード・プロセスでREPLACEオプションが設定されている場合の表のレコードの削除方法を選択します。有効な値は、1、2および3です。これが設定されていないか、正しく設定されていない場合は、デフォルト値1を使用します。

•	1: ストアド・プロシージャを使用します。バッチ・ランタイムで提供されているSQLスクリプト$JESDIR/util/DSNUTILBPKG.sqlでは、DSNUTILB_PKGパッケージを作成でき、これには特定の表を切り捨てるプロシージャが含まれています。

•	2: 切捨て文を使用します。

•	3: 文DELETEを使用します。

•	言語および地域を設定します。

環境変数NLS_LANGは、言語と地域を定義します。設定されていない場合は、デフォルト値Americanが使用されます。

COBOLランタイム

COBOLランタイムrunbは、ユーザーCOBOLプログラムを実行するために呼び出す前に、その実行コンテキストを初期化するために用意されています。このランタイムは、標準のCOBOLランタイムのかわりに使用されます。

Oracle Tuxedo Application Runtime for Batchの目的

•	中断トラッピング・プロシージャの定義(標準: std_proc_errorおよびデータベース: dba_proc_error)。標準プロシージャはCOBOLエラーをトラップし、ログ・ファイル内でトレースします。データベース・プロシージャは、データ整合性を保証するためにロールバック関数を実行します。

•	データベース・アクセス関数のトレーシング管理(mw_dbstat)。

•	データベースの接続と切断、およびデータ整合性の制御(COMMITおよびROLLBACK)。

•	COBOLプログラムの実行。

データベースの対話管理

Oracle Tuxedo Application Runtime for Batchは、データベース・コンテキストの使用を管理します。

•	初期化: ランタイム・コマンドrunbは、MT_DB_LOGIN環境変数に従ってそれをデータベースに接続します。これは正しい値を持つ必要があります(ユーザー名、パスワード、およびOracleインスタンス - 少なくとも「/」)。TuxJESセキュリティ構成ファイルで使用され、ジョブの送信時に指定されるか、または環境変数として設定されます。構成ファイルが指定されていない場合は、環境変数MT_DB_LOGINの値が使用されます。

•	終了: プログラム・リターン・コードに応じて、バッチ・ランタイムはCOMMIT (プログラム・リターン・コードがMT_PROG_RC_ABORTより小さい場合)またはROLLBACK (プログラム・リターン・コードがMT_PROG_RC_ABORT以上の場合)を実行した後、データベースから切断します。

監視プログラム呼出しへのアクセス - svc99()

•

説明

•	SVC99パラメータ

•	SVC99プログラム

•

付録

説明

メインフレームで、svc99()はz/OSのSVC99へのアクセスを提供する関数で、次のような機能を提供します

•	リソースの動的割当てまたは割当て解除

•	データ・セットの動的連結または連結解除

•	データ・セットに関する情報の動的取得

ART for Batchは、次の機能を提供します。

•	リソースの動的割当てまたは割当て解除

•	データ・セットに関する情報の動的取得

構文

int svc99(__S99parms *string);

この表は、__S99parmsに含まれる要素を示しています。

 

表2‑10 __S99parmsの要素

フィールド	格納される値	サポート対象
__S99RBLN	SVC99要求ブロックの長さ	はい
__S99VERB	SVC99動詞コード	はい
__S99FLAG1	SVC99フラグ1フィールド	無視
__S99ERROR	SVC99エラー・コード・フィールド	はい
__S99INFO	SVC99情報コード	はい
__S99TXTPP	SVC99テキスト・ユニット・ポインタのリストへのポインタ	はい
__S99S99X	SVC99要求拡張ブロックへのポインタ	無視
__S99FLAG2	SVC99 APF認可プログラムのフラグ2フィールド	無視

Cプログラムでのデータ型定義は、次のとおりです。

リスト2-1 Cプログラムでのデータ型定義

struct __S99struc {

unsigned char __S99RBLN; /* Length of the request block */

unsigned char __S99VERB; /* Action verb */

unsigned short __S99FLAG1; /* Flags 1 field */

unsigned short __S99ERROR; /* Error Code */

unsigned short __S99INFO; /* Info Code */

struct S99TU** __S99TXTPP; /* Pointer to text pointer array */

void ** __S99S99X; / * Pointer to the Request Extension Block */

unsigned int __S99FLAG2; /* FLags 2 field for APF authorized programs */

};

typedef struct __S99struc __S99parms;

 

COBOLプログラムでのデータ型定義は、次のとおりです。

リスト2‑2 COBOLプログラムでのデータ型定義

01 s99rb.

03 s99rb-len pic x(1).

03 s99rb-verb pic x(1).

03 s99rb-flag11 pic x(1).

03 s99rb-flag12 pic x(1).

03 s99rb-error pic 9(4) comp-5.

03 s99rb-info pic 9(4) comp-5.

03 s99rb-s99tu-array-ptr pointer.

03 s99rb-rbx pointer.

03 s99rb-flag21 pic x(1).

03 s99rb-flag22 pic x(1).

03 s99rb-flag23 pic x(1).

03 s99rb-flag24 pic x(1).

 

リターン・コード

リターン・コードは次のとおりです。

 

表2‑11 リターン・コード

リターン・コード	意味および操作
-1	内部エラー。
0	正常完了。要求の処理中に強制終了しないエラーが発生した場合は、S99INFOに情報理由コードが戻されます。
4	エラーが発生しました。
8	インストール検証ルーチンにより、この要求が拒否されました。
12	パラメータ・リストが無効です。S99ERRORにクラス3エラー理由コードが戻されます。

svc99()で処理中に強制終了しないエラーが発生した場合は、フィールド__S99INFOに情報理由コードが戻されます。

 

表2‑12 エラー・コード

エラー・コード (_S99ERROR)	意味
892	テキスト・ユニットに無効なLENが指定されています。
896	相互排他キーが指定されています。同時に使用できない2つのキーが要求で使用されています。
904	必須のキーが指定されていません。
1040	指定したddnameは使用できません。
1080	指定したddnameが見つかりません。

SVC99パラメータ

__S99RBLN

要求ブロックの長さを含む1バイトのフィールド。

__S99VERB

実行する動的割当て関数を識別する1バイトのフィールド。動詞コードおよび各コードが表す関数は、次のとおりです。

 

表2‑13 動詞コード

動詞コード	説明	サポート対象
0x01	dsname割当ての要求	はい
0x02	(dsnameまたはddnameに基づく)割当て解除の要求	はい (ddnameに基づくデータ・セットの割当て解除のためにサポート)
0x03	連結の要求	いいえ
0x04	連結解除の要求	いいえ
0x05	task-IDに基づくin-use属性削除の要求	いいえ
0x06	ddname割当ての要求	いいえ
0x07	情報取得の要求	はい

__S99ERROR

API svc99によって処理が完了したときにエラー理由コードが戻される、2バイトのフィールド。

__S99INFO

API svc99によって処理が完了したときに情報理由コードを含む、2バイトのフィールド。

__S99TXTPP

__S99TXTPP要素は、テキスト・ユニット・ポインタの配列を含む、アドレス指定可能な記憶域をポイントします。次の図は、テキスト・ユニット・ポインタ・リストとテキスト・ユニットのフォーマットを示しています。

注意:	メインフレームでは、高位ビットが指定されたテキスト・ユニット・ポインタ・リストの最後のエントリが1に設定されます。ただし、Linuxではこの設定は機能しません。そのため、テキスト・ユニット・ポインタ・リストの最後のエントリには値0xffffffffffffffffが指定されます。

 

表2‑14 テキスト・ユニット

オフセット	Length	説明
+0	2	テキスト・ユニット・キー。このキーは、テキスト・ユニットに含まれている情報のタイプを識別します。
+2	2	数値。数値フィールドには、後続の長さとデータのペアの数が含まれています。ほとんどのテキスト・ユニットには、1つの長さフィールドと1つのデータ・フィールドのみがあります。
+4	2	長さ。多数ある可能性のある長さフィールドの最初の1つです。長さ値には、その直後にあるデータ・フィールドの長さのみが含まれます。
+6	n	データ。多数ある可能性のあるデータ・フィールドの最初の1つ。データ・フィールドには、渡されるパラメータ情報が含まれます。
+(8+n)		数値フィールドが複数のエントリの存在を示している場合の2番目の長さとデータのエントリ。

Cプログラムでのデータ型定義は、次のとおりです。

リスト2-3 Cプログラムでのデータ型定義

struct S99TU { /* Array of text units */

unsigned short key; /* Key for type of parameter */

unsigned short number; /* Number of len/parm pairs to follow */

struct {

unsigned short len; /* Length of the following parm */

char parm[MAXTULEN]; /* Parameter value */

} ent;

};

 

COBOLプログラムでのデータ型定義は、次のとおりです。

リスト2‑4 COBOLプログラムでのデータ型定義

01 tu-ptr-list.

03 tu-ptr-xxx pointer.

……

03 pic x(8) value x'ffffffffffffffff'.

 

* Text Unit for allocate DSN - Data Set Name

01 ws-aldsn-TU-xxx.

03 ws-aldsn-TU-xxx-key pic 9(4) comp-5.

03 ws-aldsn-TU-xxx-num pic 9(4) comp-5.

03 ws-aldsn-TU-xxx-ent-len pic 9(4) comp-5.

03 ws-aldsn-TU-xxx-ent-txt pic x(80).

……

set tu-ptr-xxx to address of ws-aldsn-TU-xxx.

set s99rb-s99tu-array-ptr to address of tu-ptr-list.

 

SVC99プログラム

SVC99プログラムは、データ・セットを動的に割当ておよび割当て解除し、データ・セットの情報を取得するためにサポートされています。

•	データ・セットの割当て

•	データ・セットの割当て解除

•	データ・セットの情報の取得

データ・セットの割当て

dsname割当て関数には、動詞コード01と次にリストされているテキスト・ユニットを使用します。サポートされていないテキスト・ユニット・キーはすべてリストされていません。

 

表2‑15 dsname割当て関数のテキスト・ユニット

テキスト・ユニット・キー	ニーモニック	説明	サポート対象
0x0001	DALDDNAM	ddname	YES
0x0002	DALDSNAM	完全修飾データセット名	YES
0x0004	DALSTATS	データ・セット・ステータス。値は__DISP_OLD、__DISP_NEW、__DISP_MODおよび__DISP_SHRです。	YES 注意: DALSTATSを指定する場合、LENは1である必要があります。
0x0005	DALNDISP	データ・セットの正常な後処理を指定します。値は__DISP_CATLG、__DISP_UNCATLG、__DISP_DELETEおよび__DISP_KEEPです。	YES 注意: DALNDISPを指定する場合、LENは1である必要があります。
0x0006	DALCDISP	データ・セットの条件付き後処理を指定します。値は__DISP_CATLG、__DISP_UNCATLG、__DISP_DELETEおよび__DISP_KEEPです。	YES 注意: DALCDISPを指定する場合、LENは1である必要があります。
0x0010	DALVLSER	データ・セットが常駐する予定のデバイスのボリューム・シリアル番号	YES
0x003C	DALDSORG	データ・セットのデータ・セット編成。値は次のとおりです。 __DSORG_unknown 不明 __DSORG_VSAM VSAM __DSORG_GS グラフィック __DSORG_PO 区分編成 __DSORG_POU 移動できない区分編成 __DSORG_DA 直接アクセス __DSORG_DAU 移動できない直接アクセス __DSORG_PS 物理順序 __DSORG_PSU 移動できない物理順序。	YES (値__DSORG_POおよび__DSORG_PSのサポート) 注意: DALDSORGを指定する場合、LENは2である必要があります。
0x0049	DALRECFM	データ・セットのレコード書式。値は次のとおりです。 _M_ マシン・コード印刷制御文字 _A_ ASA印刷制御文字 _S_ 標準固定スパン変数 _B_ ブロック _D_ 可変ASCIIレコード _V_ 変数 _F_ 固定 _U_ 未定義 _FB_ 固定ブロック _VB_ 可変ブロック _FBS_ 固定ブロック標準 _VBS_ 可変ブロック標準。	YES (値_FB_および_VB_のサポート) 注意: DALRECFMを指定する場合、LENは1である必要があります。
0x0042	DALLRECL	データ・セットのレコード長	YES 注意: DALLRECLを指定する場合、LENは2である必要があります。
0x800B	DALRECO	VSAMデータ・セットのレコード編成を指定します。値は__KS、__ES、__RRおよび__LSです。	YES 注意: DALRECOを指定する場合、LENは1である必要があります。
0x800C	DALKEYO	キーのオフセットを指定します。指定されたVSAMデータ・セットのレコード内の、キーの最初のバイトの位置です。	YES 注意: DALKEYOを指定する場合、LENは4である必要があります。
0x0040	DALKYLEN	データ・セットで使用されるキーの長さ(バイト数)を指定します。	YES 注意: DALKYLENを指定する場合、LENは1である必要があります。

注意:

•	DALRECFMキーワードは非VSAMデータ・セットにのみ適用されるのに対し、DALRECOキーワードのKS、ES、RRおよびLS値はVSAMデータ・セットにのみ適用されるため、DALRECFMとDALRECOの組合せは許可されません。

•	DALDSORGとDALRECOの組合せは許可されません。

•	可変長のVSAMデータ・セットの割当てはサポートされません。

データ・セットの割当て解除

動的割当て解除処理を要求するには、動詞コード02と次にリストおよび説明されているテキスト・ユニット・キーを使用します。データ・セットを割当て解除するには、DUNDDNAMキーを指定する必要があります。

 

表2‑16 動的割当て解除処理を要求するためのテキスト・ユニット

テキスト・ユニット・キー	ニーモニック	説明	サポート対象
0x0001	DUNDDNAM	割当て解除されるリソースのddnameを指定します。	YES
0x0002	DUNDSNAM	割当て解除されるデータ・セットを指定します。	いいえ
0x0003	DUNMEMBR	割当て解除されるPDSメンバーを指定します。	いいえ
0x0005	DUNOVDSP	割当て解除されるデータ・セットの、オーバーライドする後処理を指定します。	いいえ
0x0007	DUNUNALC	リソースが属性に永続的に割り当てられている場合でも、割当て解除を指定します。	いいえ
0x0008	DUNREMOV	リソースが属性に永続的に割り当てられていない場合でも、in-use属性の削除を指定します。	いいえ
0x000A	DUNOVSNH	割当てが解除されたSYSOUTデータ・セットにnoholdステータスを指定し、以前のhold指定をオーバーライドします。	いいえ
0x0018	DUNOVCLS	オーバーライドするSYSOUTクラスを指定します。	いいえ
0x0058	DUNOVSUS	割当て解除されるSYSOUTデータ・セットのルーティング先となる、オーバーライドする宛先を指定します。	いいえ
0x0059	DUNOVSHQ	割当て解除されたSYSOUTデータ・セットにholdステータスを指定し、以前のnohold指定をオーバーライドします。	いいえ
0x0063	DUNOVUID	割当て解除されるSYSOUTデータ・セットのルーティング先となる、オーバーライドする宛先ユーザーIDを指定します。	いいえ
0x8013	DUNSPIN	SYSOUTデータ・セットの出力を即時印刷するか、またはジョブの最後に印刷するかを決定する、オーバーライドするデジションを指定します。	いいえ
0x8017	DUNPATH	割当て解除されるz/OS® UNIXファイルのパス名を指定します。	いいえ
0x801A	DUNOVPDS	割当て解除されるファイルの、オーバーライドする後処理を指定します。	いいえ

データ・セットの情報の取得

動的割当てによって、割り当てられたリソースに関する特定の情報が戻されるように要求するには、動詞コード07と次の表にリストおよび説明されているテキスト・ユニットを使用します。情報の取得を要求するには、DINDDNAMキー、DINDSNAMキー、DINPATHキーまたはDINRELNOキーを指定する必要があります。

キーX'0001'、X'0002'、X'000F'およびX'8017'は入力キーです。これらを使用して、システムに情報を提供します。残りのキーは出力キーで、要求した情報を戻すために使用されます。

存在しない情報を戻すように要求した場合、そのパラメータの長さフィールドがゼロに設定され、そのパラメータのデータ・フィールドはなくなります。

 

表2‑17 データ・セットの情報を取得するためのテキスト・ユニット

テキスト・ユニット・キー	ニーモニック	説明	サポート対象
0x0001	DINDDNAM	要求された情報のddname識別子を指定します。	YES
0x0002	DINDSNAM	情報が要求されたデータ・セットを指定します。	YES
0x0004	DINRTDDN	関連するddnameを要求します。	YES
0x0005	DINRTDSN	データ・セット名を要求します。	YES
0x0006	DINRTMEM	PDSメンバー名を要求します。	いいえ
0x0007	DINRTSTA	データ・セットのステータスを要求します。	YES
0x0008	DINRTNDP	データ・セットの標準の後処理を要求します。	YES
0x0009	DINRTCDP	データ・セットの条件付き後処理を要求します。	YES
0x000A	DINRTORG	データ・セットの編成を要求します。	YES
0x000B	DINRTLIM	新しい割当てを行う前に割当て解除する必要のあるリソースの数を要求します。	いいえ
0x000E	DINRTTYP	データ・セットのタイプ(端末またはダミー)を要求します。	いいえ
0x000F	DINRELNO	相対要求番号による目的の割当て情報の取得を指定します。	いいえ
0x0010	DINRTVOL	指定された割当てに関連付けられている最初のボリューム・シリアル番号を戻すことを要求します。	YES
0x8017	DINPATH	情報が要求されたz/OS® UNIXファイルのパス名を指定します。	いいえ
0xC003	DINRCNTL	JCL CNTL文の参照を要求します。	いいえ
0xC004	DINRSTCL	新しいSMS管理データ・セットのストレージ・クラスを要求します。	いいえ
0xC005	DINRMGCL	新しいSMS管理データ・セットの管理クラスを要求します。	いいえ
0xC006	DINRDACL	新しいデータ・セットのデータ・クラスを要求します。	いいえ
0xC00B	DINRRECO	新しいVSAMデータ・セットの編成を要求します。	YES
0xC00C	DINRKEYO	新しいVSAMデータ・セットのキー・オフセットを要求します。	YES
0xC00D	DINRREFD	DD文のREFDDパラメータによって指定されるDD名を要求します。	いいえ
0xC00E	DINRSECM	RACF®セキュリティ・データ・セット・プロファイルの名前を要求します。	いいえ
0xC00F	DINRLIKE	LIKEパラメータにあるデータ・セット名を要求します。	いいえ
0xC010	DINRAVGR	データ・セットの割当てユニットの値を要求します。	いいえ
0xC012	DINRDSNT	データ・セット・タイプ(PDSなど)を要求します。	いいえ
0xC013	DINRSPIN	スピン・データ・セット指定を要求します。	いいえ
0xC014	DINRSEGM	セグメントが即時印刷に対して適格になる前にSYSOUTデータ・セットに対して生成される、論理行モード・ページ(セグメント)数を要求します。	いいえ
0xC017	DINRPATH	z/OS UNIXファイル・パス指定を戻すことを要求します。	いいえ
0xC018	DINRPOPT	z/OS UNIXファイル・オプションを戻すことを要求します。	いいえ
0xC019	DINRPMDE	z/OS UNIXファイル・アクセス属性を戻すことを要求します。	いいえ
0xC01A	DINRPNDS	正常なステップ終了時のz/OS UNIXファイルの後処理を戻すことを要求します。	いいえ
0xC01B	DINRPCDS	異常なステップ終了時のz/OS UNIXファイルの後処理を戻すことを要求します。	いいえ
0xC01D	DINRFDAT	z/OS UNIXファイルの編成を戻すことを要求します。	いいえ
0xC02A	DINRSPI2	SPIN間隔の指定を要求します。	いいえ
0xC02B	DINRSYML	SYMLISTの指定を要求します。	いいえ
0xC02C	DINRDSNV	DSNTYPEバージョンを要求します。	いいえ
0xC02D	DINRMAXG	APAR OA42358を適用した場合は、MAXGENSの値を要求します。	いいえ
0xC02E	DINRGDGO	個別の世代別データ・セット(GDS)の連結順序を戻すことを要求します。	いいえ

付録

•	データ・セット・ステータス

•	データ・セットの標準/条件付き後処理

•

データ・セット編成

•	データ・セット・レコード編成

データ・セット・ステータス

データ・セット・ステータスには、次のいずれかの値を含めることができます。

 

X'01'	OLD
X'02'	MOD
X'04'	NEW
X'08'	SHR

データ・セットの標準/条件付き後処理

データ・セット割当てのためのデータ・セットの標準/条件付き後処理には、次のいずれかの値を含めることができます。

 

X'01'	UNCATLG
X'02'	CATLG
X'04'	DELETE
X'08'	KEEP

データ・セットの情報取得のためのデータ・セットの標準/条件付き後処理には、次のいずれかの値を含めることができます。

 

X'01'	UNCATLG
X'02'	CATLG
X'04'	DELETE
X'08'	KEEP
X'10'	PASS

データ・セット編成

データ・セット編成には、次のいずれかの値を含めることができます。

 

X'0008'	VSAM
X'0080'	グラフィック(GS)
X'0200'	区分編成(PO)
X'0300'	移動できない区分編成(POU)
X'0400'	電気通信メッセージ処理キューとの間のメッセージ転送の制御(MQ)
X'0800'	直接アクセス・メッセージ・キュー(CQ)
X'1000'	通信ライン・グループ(CX)
X'2000'	直接アクセス(DA)
X'2100'	移動できない直接アクセス(DAU)
X'4000'	物理順序(PS)
X'4100'	移動できない物理順序(PSU)

データ・セット・レコード編成

データ・セット・レコード編成には、次のいずれかの値を含めることができます。

 

X'80'	VSAMキー順データ・セット(KS)
X'40'	VSAM入力順データ・セット(ES)
X'20'	VSAM相対レコード・データ・セット(RR)
X'10'	VSAM線形スペース・データ・セット(LS)