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

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

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

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


BS2000

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

ADADCK JCL 例(BS2000)

SDF フォーマットの場合:

/.ADADCK LOGON
/MODIFY-TEST-OPTIONS DUMP=YES
/REMARK *
/REMARK *A D A D C K DATA STORAGE CHECK
/REMARK *
/REMARK *
/ASS-SYSLST L.DCK.DATA
/ASS-SYSDTA *SYSCMD
/SET-FILE-LINK DDLIB,ADAvrs.MOD
/SET-FILE-LINK DDASSOR1,ADAyyyyy.ASSO,SHARE-UPD=YES
/SET-FILE-LINK DDDATAR1,ADAyyyyy.DATA,SHARE-UPD=YES
/START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
ADARUN PROG=ADADCK,DB=yyyyy,IDTNAME=ADABAS5B
ADADCK DSCHECK FILE=27
/LOGOFF SYS-OUTPUT=DEL

ISP フォーマットの場合:

/.ADADCK LOGON
/OPTION MSG=FH,DUMP=YES
/REMARK *
/REMARK *A D A D C K DATA STORAGE CHECK
/REMARK *
/REMARK *
/SYSFILE SYSLST=L.DCK.DATA
/FILE ADA.MOD,LINK=DDLIB

/FILE ADAyyyyy.ASSO ,LINK=DDASSOR1,SHARUPD=YES
/FILE ADAyyyyy.DATA ,LINK=DDDATAR1,SHARUPD=YES
/EXEC (ADARUN,ADA.MOD)
ADARUN PROG=ADADCK,DB=yyyyy,IDTNAME=ADABAS5B
ADADCK DSCHECK FILE=27
/LOGOFF NOSPOOL

Top of page

z/OS

データセット DD 名 ストレージ 追加情報
アソシエータ DDASSORn または DDASSOnn ディスク  
データストレージ DDDATARn または DDDATAnn ディスク  
ADARUN パラメータ DDCARD リーダー オペレーションマニュアル
ADADCK パラメータ DDKARTE リーダー  
ADARUN メッセージ DDPRINT プリンタ メッセージおよびコード
ADADCK メッセージ DDDRUCK プリンタ メッセージおよびコード

ADADCK JCL 例(z/OS)

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

//ADADCK    JOB
//*
//*    ADADCK:
//*          DATA STORAGE CHECK
//*
//DCK       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
//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X
//DDCARD    DD   *
ADARUN PROG=ADADCK,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
ADADCK DSCHECK FILE=27
/*

Top of page

z/VM

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

ADADCK JCL 例(z/VM)

DATADEF DDASSOR1,DSN=ADABASVv.ASSO,VOL=ASSOV1
DATADEF DDDATAR1,DSN=ADABASVv.DATA,VOL=DATAV1
DATADEF DDPRINT,DSN=ADADCK.DDPRINT,MODE=A 
DATADEF DUMP,DUMMY
DATADEF DDDRUCK,DSN=ADADCK.DDDRUCK,MODE=A 
DATADEF DDCARD,DSN=RUNDCK.CONTROL,MODE=A
DATADEF DDKARTE,DSN=ADADCK.CONTROL,MODE=A
ADARUN 
 

RUNDCK CONTROL A1 の内容

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

ADADCK CONTROL A1 の内容

ADADCK DSCHECK FILE=27 
 

Top of page

VSE

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

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

ADADCK JCS 例(VSE)

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

この例についてはメンバ ADADCK.X を参照してください。

* $$ JOB JNM=ADADCK,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
// JOB ADADCK
*       DATA STORAGE CHECK
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADADCK,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADADCK DSCHECK FILE=27
/*
/&
* $$ EOJ

Top of page