バージョン 8.1.3
 —  ユーティリティ  —

JCL/JCS の必要項目と指定例

このセクションでは、ADADEF with BS2000、z/OS、z/VM、および VSE システムの実行に必要なジョブ制御情報を説明し、各ジョブストリームの例を示します。

このドキュメントでは、次のトピックについて説明します。


BS2000

データセット リンク名 ストレージ 追加情報
アソシエータ DDASSORn ディスク  
データストレージ DDDATARn ディスク  
ワーク DDWORKR1
DDWORKR4
ディスク  
ADARUN パラメータ DDCARD   オペレーションマニュアル
ADADEF パラメータ SYSDTA/ DDKARTE   ユーティリティ
ADARUN メッセージ SYSOUT/ DDPRINT   メッセージおよびコード
ADADEF メッセージ SYSLST/ DDDRUCK   メッセージおよびコード

ADADEF JCL 例(BS2000)

データベース定義

SDF フォーマットの場合:

/.ADADEF LOGON
/MODIFY-TEST-OPTIONS DUMP=YES
/REMARK *
/REMARK * A D A D E F DEFINE DATABASE
/REMARK *
/ASS-SYSLST L.DEF.DATA
/ASS-SYSDTA *SYSCMD
/SET-FILE-LINK DDLIB,ADAvrs.MOD
/SET-FILE-LINK DDASSOR1,ADAyyyyy.ASSO
/SET-FILE-LINK DDDATAR1,ADAyyyyy.DATA
/SET-FILE-LINK DDWORKR1,ADAyyyyy.WORK   
/START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
ADARUN PROG=ADADEF,DB=yyyyy,IDTNAME=ADABAS5B
ADADEF DEFINE DBNAME=EXAMPLE-DB
ADADEF ASSOSIZE=100,DATASIZE=200,WORKSIZE=40
ADADEF MAXFILES=120
ADADEF FILE=1,CHECKPOINT
ADADEF NAME= CHECKPOINT ,MAXISN=5000,UISIZE=10B
ADADEF DSSIZE=500B,NISIZE=100B
/LOGOFF SYS-OUTPUT=DEL

ISP フォーマットの場合:

/.ADADEF LOGON
/OPTION MSG=FH,DUMP=YES
/REMARK *
/REMARK * A D A D E F DEFINE DATABASE
/REMARK *
/SYSFILE SYSLST=L.DEF.DEFI
/FILE ADA.MOD,LINK=DDLIB
/FILE ADAyyyyy.ASSO ,LINK=DDASSOR1
/FILE ADAyyyyy.DATA ,LINK=DDDATAR1
/FILE ADAyyyyy.WORK ,LINK=DDWORKR1
/EXEC (ADARUN,ADA.MOD)
ADARUN PROG=ADADEF,DB=yyyyy,IDTNAME=ADABAS5B
ADADEF DEFINE DBNAME=EXAMPLE-DB
ADADEF ASSOSIZE=100,DATASIZE=200,WORKSIZE=40
ADADEF MAXFILES=120
ADADEF FILE=1,CHECKPOINT
ADADEF NAME= CHECKPOINT ,MAXISN=5000,UISIZE=10B
ADADEF DSSIZE=500B,NISIZE=100B
/LOGOFF NOSPOOL

Top of page

z/OS

データセット DD 名 ストレージ 追加情報
アソシエータ DDASSORn ディスク  
データストレージ DDDATARn ディスク  
ワーク(現在) DDWORKR1
DDWORKR4
ディスク  
ADARUN パラメータ DDCARD リーダー オペレーションマニュアル
ADADEF パラメータ DDKARTE リーダー  
ADARUN メッセージ DDPRINT プリンタ メッセージおよびコード
ADADEF メッセージ DDDRUCK プリンタ メッセージおよびコード

ADADEF JCL 例(z/OS)

データベース定義

//ADADEF    JOB
//*
//*   ADADEF:
//*      DEFINE THE PHYSICAL LAYOUT OF THE DATABASE
//*      DEFINE THE NUCLEUS SYSTEMFILE: CHECKPOINT FILE
//*
//DEF       EXEC PGM=ADARUN
//STEPLIB   DD   DISP=SHR,DSN=ADABAS.Vvrs.LOAD      <=== ADABAS LOAD
//*
//DDASSOR1  DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.ASSOR1 <=== ASSO
//DDDATAR1  DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.DATAR1 <=== DATA
//DDWORKR1  DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.WORKR1 <=== WORK
//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X
//DDCARD    DD   *
ADARUN PROG=ADADEF,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
ADADEF DEFINE DBNAME=EXAMPLE-DB,DBIDENT=YYYYY
ADADEF        ASSOSIZE=100,DATASIZE=200,WORKSIZE=40
ADADEF        MAXFILES=120
*

ADADEF FILE=19,CHECKPOINT
ADADEF   NAME='CHECKPOINT',MAXISN=5000
ADADEF   DSSIZE=100B,NISIZE=3B,UISIZE=3B
/*

この例については、MVSJOBS データセットの ADADEF を参照してください。

新しいワークの定義

//ADADEFNW  JOB
//*
//*    ADADEF: DEFINE NEW WORK
//*
//DEF       EXEC PGM=ADARUN
//STEPLIB   DD   DISP=SHR,DSN=ADABAS.Vvrs.LOAD      <=== ADABAS LOAD
//*
//DDASSOR1  DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.ASSOR1 <=== ASSO
//DDDATAR1  DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.DATAR1 <=== DATA
//DDWORKR1  DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.WORKR1 <=== WORK
//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X
//DDCARD    DD   *
ADARUN PROG=ADADEF,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
ADADEF NEWWORK WORKSIZE=60,WORKDEV=eeee
/*

この例については、MVSJOBS データセットの ADADEFNW を参照してください。

Top of page

z/VM

データセット DD 名 ストレージ 追加情報
アソシエータ DDASSORn ディスク  
データストレージ DDDATARn ディスク  
ワーク DDWORKR1
DDWORKR4
ディスク  
ADARUN パラメータ DDCARD ディスク/端末/リーダー オペレーションマニュアル
ADADEF パラメータ DDKARTE ディスク/端末/リーダー  
ADARUN メッセージ DDPRINT ディスク/端末/プリンタ メッセージおよびコード
ADADEF メッセージ DDDRUCK ディスク/端末/プリンタ  

ADADEF JCL 例(z/VM)

データベース定義

DATADEF DDASSOR1,DSN=ADABASVv.ASSO,VOL=ASSOV1
DATADEF DDDATAR1,DSN=ADABASVv.ASSO,VOL=DATAV1
DATADEF DDWORKR1,DSN=ADABASVv.WORK,VOL=WORKV1
DATADEF DDPRINT,DSN=ADADEF.DDPRINT,MODE=A
DATADEF DUMP,DUMMY                                                     
        
DATADEF DDDRUCK,DSN=ADADEF.DDDRUCK,MODE=A
DATADEF DDCARD,DSN=RUNDEF.CONTROL,MODE=A
DATADEF DDKARTE,DSN=ADADEF.CONTROL,MODE=A
ADARUN

RUNDEF CONTROL A1 の内容

ADARUN PROG=ADADEF,DEVICE=dddd,DB=yyyyy

ADADEF CONTROL A1 の内容

ADADEF DEFINE DBNAME=EXAMPLE-DB
ADADEF        ASSOSIZE=100,DATASIZE=200,WORKSIZE=40
ADADEF        MAXFILE=120
*                                                                    
        
ADADEF FILE=1,CHECKPOINT
ADADEF NAME='CHECKPOINT',MAXISN=5000,UISIZE=10B
ADADEF                   DSSIZE=500B,NISIZE=100B

新しいワークの定義

DATADEF DDASSOR1,DSN=ADABASVv.ASSO,VOL=ASSOV1
DATADEF DDDATAR1,DSN=ADABASVv.ASSO,VOL=DATAV1
DATADEF DDWORKR1,DSN=ADABASVv.WORK,VOL=WORKV1
DATADEF DDPRINT,DSN=ADADEF.DDPRINT,MODE=A
DATADEF DUMP,DUMMY                                                     
        
DATADEF DDDRUCK,DSN=ADADEF.DDDRUCK,MODE=A
DATADEF DDCARD,DSN=RUNDEF.CONTROL,MODE=A
DATADEF DDKARTE,DSN=ADADEF.CONTROL,MODE=A
ADARUN

RUNDEF CONTROL A1 の内容

ADARUN PROG=ADADEF,DEVICE=dddd,DB=yyyyy                
                       

ADADEF CONTROL A1 の内容

ADADEF NEWWORK WORKSIZE=60,WORKDEV=eeee                
                 

Top of page

VSE

ファイル 記号名 ストレージ 論理ユニット 追加情報
アソシエータ ASSORn ディスク *  
データストレージ DATARn ディスク *  
ワーク(現在) WORKR1 ディスク *  
ADARUN パラメータ -
CARD
CARD
リーダー
テープ
ディスク
SYSRDR
SYS000
*
 
ADADEF パラメータ - リーダー SYSIPT  
ADARUN メッセージ - プリンタ SYSLST  
ADADEF メッセージ - プリンタ SYS009 メッセージおよびコード

* すべてのプログラマ論理ユニットを使用できます。

ADADEF JCS 例(VSE)

VSE プロシージャの内容については、「VSE 用のライブラリおよびファイルプロシージャの例」を参照してください。

データベース定義

この例については ADADEF.X を参照してください。

* $$ JOB JNM=ADADEF,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
// JOB ADADEF
*       DEFINE THE PHYSICAL LAYOUT OF THE DATABASE
*       DEFINE THE NUCLEUS SYSTEMFILE: CHECKPOINT FILE
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADADEF,MODE=SINGLE,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADADEF DEFINE DBNAME=EXAMPLE-DB,DBIDENT=yyyyy
ADADEF        ASSOSIZE=100,DATASIZE=200,WORKSIZE=40
ADADEF        MAXFILES=120
*

ADADEF FILE=19,CHECKPOINT
ADADEF   NAME='CHECKPOINT',MAXISN=5000
ADADEF   DSSIZE=100B,NISIZE=3B,UISIZE=3B
/*
/&
* $$ EOJ

新しいワークの定義

この例については ADADEFNW.X を参照してください。

* $$ JOB JNM=ADADEFNW,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
// JOB ADADEFNW
*       DEFINE NEW WORK
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADADEF,MODE=SINGLE,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADADEF NEWWORK WORKSIZE=60,WORKDEV=eeee
/*
/&
* $$ EOJ

Top of page