
	バージョン 8.1.3	検索索引目次 \| PDF BOOKS \| ホーム上へ戻る次へ

— ユーティリティ —

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

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

注意:

プロテクションログをコピーするために使用される DD/SIAUS1/2 デバイスタイプが IDRC（ハードウェア圧縮）デバイスである場合は、BACKOUT 機能がサポートされない可能性があります。詳細については、このマニュアルの PLCOPY 機能の説明を参照してください。
オプションの Recovery Aid（ADARAI）で実行している場合は、すべての中間データセットをジョブ制御にカタログする必要もあります。

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

BS2000
z/OS
z/VM
VSE

BS2000

データセット	リンク名	ストレージ	追加情報
シーケンシャルプロテクションログまたは ADASAV DDSAVEn 出力	DDSIIN	テープ／ディスク	COPY、REGENERATE、REPAIR 機能の入力ログ
マルチプロテクションログ	DDPLOGRn	ディスク	PLCOPY 機能の入力ログおよび BACKOUT DPLOG
マルチコマンドログ	DDCLOGRn	ディスク	CLCOPY 機能の入力ログ
シーケンシャルプロテクションログ	DDBACK	テープ	BACKOUT 機能（BACKOUT DPLOG ではない）の入力ログ
コピーしたログ	DDSIAUS1	テープ／ディスク	COPY、CLCOPY、PLCOPY 機能の出力
デュアルコピーログ	DDSIAUS2	テープ／ディスク	COPY 機能（TWOCOPIES を指定）で 2 部作成する場合のみ必須
データストレージ	DDDATARn	ディスク	REGENERATE で FROMCP= SYN1 または SYN4 が指定された場合のみ必要
アソシエータ	DDASSORn	ディスク
リカバリログ（RLOG）	DDRLOGR1	ディスク	ADARAI 使用時に必要
ADARUN パラメータ	DDCARD		オペレーションマニュアル
ADARES パラメータ	SYSDTA/ DDKARTE
ADARUN メッセージ	SYSOUT/ DDPRINT		メッセージおよびコード
ADARES メッセージ	SYSLST DDDRUCK		メッセージおよびコード

ADARES JCL の例（BS2000）

デュアル／マルチコマンドログのコピー

SDF フォーマットの場合：

/.ADARES LOGON
 /MODIFY-TEST-OPTIONS DUMP=YES
 /REMARK *
 /REMARK * A D A R E S COPY DUAL/MULTIPLE COMMAND LOG
 /REMARK *
 /DELETE-FILE ADAyyyyy.AUS1  
 /SET-JOB-STEP
 /CREATE-FILE ADAyyyyy.AUS1,PUB(SPACE=(960,480))
 /SET-JOB-STEP
 /ASS-SYSLST L.RES.CLCO
 /ASS-SYSDTA *SYSCMD
 /SET-FILE-LINK DDLIB,ADAvrs.MOD
 /SET-FILE-LINK DDASSOR1,ADAyyyyy.ASSO,SHARE-UPD=YES
 /SET-FILE-LINK DDCLOGR1,ADAyyyyy.CLOGR1,SHARE-UPD=YES
 /SET-FILE-LINK DDCLOGR2,ADAyyyyy.CLOGR2,SHARE-UPD=YES
 /SET-FILE-LINK DDSIAUS1,ADAyyyyy.AUS1   
 /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
 ADARUN PROG=ADARES,DB=yyyyy,IDTNAME=ADABAS5B
 ADARES CLCOPY
 /LOGOFF SYS-OUTPUT=DEL

ISP フォーマットの場合：

/.ADARES LOGON
 /OPTION MSG=FH,DUMP=YES
 /REMARK *
 /REMARK * A D A R E S COPY DUAL/MULTIPLE COMMAND LOG
 /REMARK *
 /SYSFILE SYSLST=L.RES.CLCO
 /FILE ADA.MOD,LINK=DDLIB
 /FILE ADAyyyyy.ASSO ,LINK=DDASSOR1,SHARUPD=YES
 /FILE ADAyyyyy.CLOGR1 ,LINK=DDCLOGR1,SHARUPD=YES
 /FILE ADAyyyyy.CLOGR2 ,LINK=DDCLOGR2,SHARUPD=YES
 /FILE ADAyyyyy.AUS1 ,LINK=DDSIAUS1,SPACE=(960,480)
 /EXEC (ADARUN,ADA.MOD)
 ADARUN PROG=ADARES,DB=yyyyy,IDTNAME=ADABAS5B
 ADARES CLCOPY
 /LOGOFF NOSPOOL

シーケンシャルプロテクションログのコピー

SDF フォーマットの場合：

/.ADARES LOGON
 /MODIFY-TEST-OPTIONS DUMP=YES
 /REMARK *
 /REMARK * A D A R E S COPY SEQUENTIAL PLOG
 /REMARK *
 /DELETE-FILE ADAyyyyy.SIBA.COP1
 /SET-JOB-STEP
 /CREATE-FILE ADAyyyyy.SIBA.COP1,PUB(SPACE=(960,480))
 /SET-JOB-STEP
 /ASS-SYSLST L.RES.COPY
 /ASS-SYSDTA *SYSCMD
 /SET-FILE-LINK DDLIB,ADAvrs.MOD
 /SET-FILE-LINK DDASSOR1,ADAyyyyy.ASSO,SHARE-UPD=YES
 /SET-FILE-LINK DDSIIN,ADAyyyyy.SIBA
 /SET-FILE-LINK DDSIAUS1,ADAyyyyy.SIBA.COP1
 /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
 ADARUN PROG=ADARES,DB=yyyyy,IDTNAME=ADABAS5B
 ADARES COPY PLOGNUM=ppp
 /LOGOFF SYS-OUTPUT=DEL

ISP フォーマットの場合：

/.ADARES LOGON
 /OPTION MSG=FH,DUMP=YES
 /REMARK *
 /REMARK * A D A R E S COPY SEQUENTIAL PLOG
 /REMARK *
 /SYSFILE SYSLST=L.RES.COPY
 /FILE ADA.MOD,LINK=DDLIB
 /FILE ADAyyyyy.ASSO ,LINK=DDASSOR1,SHARUPD=YES
 /FILE ADAyyyyy.SIBA ,LINK=DDSIIN
 /FILE ADAyyyyy.SIBA.COP1,LINK=DDSIAUS1,SPACE=(960,480)
 /EXEC (ADARUN,ADA.MOD)
 ADARUN PROG=ADARES,DB=yyyyy,IDTNAME=ADABAS5B
 ADARES COPY PLOGNUM=ppp
 /LOGOFF NOSPOOL

デュアル／マルチプロテクションログのコピー

SDF フォーマットの場合：

/.ADARES LOGON
 /MODIFY-TEST-OPTIONS DUMP=YES
 /REMARK *
 /REMARK * A D A R E S COPY DUAL/MULTIPLE PROTECTION LOG
 /REMARK *
 /DELETE-FILE ADAyyyyy.AUS1  
 /SET-JOB-STEP
 /CREATE-FILE ADAyyyyy.AUS1,PUB(SPACE=(960,480))
 /SET-JOB-STEP
 /DELETE-FILE ADAyyyyy.AUS2  
 /SET-JOB-STEP
 /CREATE-FILE ADAyyyyy.AUS2,PUB(SPACE=(960,480))
 /SET-JOB-STEP
 /ASS-SYSLST L.RES.PLCO
 /ASS-SYSDTA *SYSCMD
 /SET-FILE-LINK DDLIB,ADAvrs.MOD
 /SET-FILE-LINK DDASSOR1,ADAyyyyy.ASSO,SHARE-UPD=YES
 /SET-FILE-LINK DDPLOGR1,ADAyyyyy.PLOGR1,SHARE-UPD=YES
 /SET-FILE-LINK DDPLOGR2,ADAyyyyy.PLOGR2,SHARE-UPD=YES
 /SET-FILE-LINK DDSIAUS1,ADAyyyyy.AUS1
 /SET-FILE-LINK DDSIAUS2,ADAyyyyy.AUS2
 /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
 ADARUN PROG=ADARES,DB=yyyyy,IDTNAME=ADABAS5B
 ADARES PLCOPY TWOCOPIES
 /LOGOFF SYS-OUTPUT=DEL

ISP フォーマットの場合：

/.ADARES LOGON
 /OPTION MSG=FH,DUMP=YES
 /REMARK *
 /REMARK * A D A R E S COPY DUAL/MULTIPLE PROTECTION LOG
 /REMARK *
 /SYSFILE SYSLST=L.RES.PLCO
 /FILE ADA.MOD,LINK=DDLIB
 /FILE ADAyyyyy.ASSO ,LINK=DDASSOR1,SHARUPD=YES
 /FILE ADAyyyyy.PLOGR1 ,LINK=DDPLOGR1,SHARUPD=YES
 /FILE ADAyyyyy.PLOGR2 ,LINK=DDPLOGR2,SHARUPD=YES
 /FILE ADAyyyyy.AUS1 ,LINK=DDSIAUS1,SPACE=(960,480)
 /FILE ADAyyyyy.AUS2 ,LINK=DDSIAUS2,SPACE=(960,480)
 /EXEC (ADARUN,ADA.MOD)
 ADARUN PROG=ADARES,DB=yyyyy,IDTNAME=ADABAS5B
 ADARES PLCOPY TWOCOPIES
 /LOGOFF NOSPOOL

シーケンシャルプロテクションログを使用したバックアウト

SDF フォーマットの場合：

/.ADARES LOGON
 /MODIFY-TEST-OPTIONS DUMP=YES
 /REMARK *
 /REMARK * A D A R E S BACKOUT FROM SEQUENTIAL PLOG
 /REMARK *
 /ASS-SYSLST L.RES.BACK
 /ASS-SYSDTA *SYSCMD
 /SET-FILE-LINK DDLIB,ADAvrs.MOD
 /SET-FILE-LINK DDASSOR1,ADAyyyyy.ASSO,SHARE-UPD=YES
 /SET-FILE-LINK DDBACK,ADAyyyyy.BACK
 /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
 ADARUN PROG=ADARES,DB=yyyyy,IDTNAME=ADABAS5B
 ADARES BACKOUT
 /LOGOFF SYS-OUTPUT=DEL

ISP フォーマットの場合：

/.ADARES LOGON
 /OPTION MSG=FH,DUMP=YES
 /REMARK *
 /REMARK * A D A R E S BACKOUT FROM SEQUENTIAL PLOG
 /REMARK *
 /SYSFILE SYSLST=L.RES.BACK
 /FILE ADA.MOD,LINK=DDLIB
 /FILE ADAyyyyy.ASSO ,LINK=DDASSOR1,SHARUPD=YES
 /FILE ADAyyyyy.BACK ,LINK=DDBACK
 /EXEC (ADARUN,ADA.MOD)
 ADARUN PROG=ADARES,DB=yyyyy,IDTNAME=ADABAS5B
 ADARES BACKOUT
 /LOGOFF NOSPOOL

デュアル／マルチプロテクションログのバックアウト

SDF フォーマットの場合：

/.ADARES LOGON
 /MODIFY-TEST-OPTIONS DUMP=YES
 /REMARK *
 /REMARK * A D A R E S BACKOUT FROM DUAL/MULTIPLE PLOG
 /REMARK *
 /ASS-SYSLST L.RES.BADP
 /ASS-SYSDTA *SYSCMD
 /SET-FILE-LINK DDLIB,ADAvrs.MOD
 /SET-FILE-LINK DDASSOR1,ADAyyyyy.ASSO,SHARE-UPD=YES
 /SET-FILE-LINK DDPLOGR1,ADAyyyyy.PLOGR1,SHARE-UPD=YES
 /SET-FILE-LINK DDPLOGR2,ADAyyyyy.PLOGR2,SHARE-UPD=YES
 /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
 ADARUN PROG=ADARES,DB=yyyyy,IDTNAME=ADABAS5B
 ADARES BACKOUT DPLOG
 /LOGOFF SYS-OUTPUT=DEL

ISP フォーマットの場合：

/.ADARES LOGON
 /OPTION MSG=FH,DUMP=YES
 /REMARK *
 /REMARK * A D A R E S BACKOUT FROM DUAL/MULTIPLE PLOG
 /REMARK *
 /SYSFILE SYSLST=L.RES.BADP
 /FILE ADA.MOD,LINK=DDLIB
 /FILE ADAyyyyy.ASSO ,LINK=DDASSOR1,SHARUPD=YES
 /FILE ADAyyyyy.PLOGR1 ,LINK=DDPLOGR1,SHARUPD=YES
 /FILE ADAyyyyy.PLOGR2 ,LINK=DDPLOGR2,SHARUPD=YES
 /EXEC (ADARUN,ADA.MOD)
 ADARUN PROG=ADARES,DB=yyyyy,IDTNAME=ADABAS5B
 ADARES BACKOUT DPLOG
 /LOGOFF NOSPOOL

再生成機能

SDF フォーマットの場合：

/.ADARES LOGON
 /MODIFY-TEST-OPTIONS DUMP=YES
 /REMARK *
 /REMARK * A D A R E S REGENERATE
 /REMARK *
 /ASS-SYSLST L.RES.REGE
 /ASS-SYSDTA *SYSCMD
 /SET-FILE-LINK DDLIB,ADAvrs.MOD
 /SET-FILE-LINK DDASSOR1,ADAyyyyy.ASSO,SHARE-UPD=YES
 /SET-FILE-LINK DDSIIN,ADAyyyyy.SIBA
 /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
 ADARUN PROG=ADARES,DB=yyyyy,IDTNAME=ADABAS5B
 ADARES REGENERATE FILE=1,CONTINUE,PLOGNUM=ppp
 /LOGOFF SYS-OUTPUT=DEL

ISP フォーマットの場合：

/.ADARES LOGON
 /OPTION MSG=FH,DUMP=YES
 /REMARK *
 /REMARK * A D A R E S REGENERATE
 /REMARK *
 /SYSFILE SYSLST=L.RES.REGE
 /FILE ADA.MOD,LINK=DDLIB
 /FILE ADAyyyyy.ASSO ,LINK=DDASSOR1,SHARUPD=YES
 /FILE ADAyyyyy.SIBA ,LINK=DDSIIN
 /EXEC (ADARUN,ADA.MOD)
 ADARUN PROG=ADARES,DB=yyyyy,IDTNAME=ADABAS5B
 ADARES REGENERATE FILE=1,CONTINUE,PLOGNUM=ppp
 /LOGOFF NOSPOOL

データストレージの修復

SDF フォーマットの場合：

/.ADARES LOGON
 /MODIFY-TEST-OPTIONS DUMP=YES
 /REMARK *
 /REMARK * A D A R E S REPAIR DATASTORAGE
 /REMARK *
 /ASS-SYSLST L.RES.REPA
 /ASS-SYSDTA *SYSCMD
 /SET-FILE-LINK DDLIB,ADAvrs.MOD
 /SET-FILE-LINK DDASSOR1,ADAyyyyy.ASSO,SHARE-UPD=YES
 /SET-FILE-LINK DDSIIN,ADAyyyyy.SAVE
 /SET-FILE-LINK DDSIIN01,ADAyyyyy.PLOG5
 /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
 ADARUN PROG=ADARES,DB=yyyyy,IDTNAME=ADABAS5B
 ADARES REPAIR DSRABN=3456 3490
 /LOGOFF SYS-OUTPUT=DEL

ISP フォーマットの場合：

/.ADARES LOGON
 /OPTION MSG=FH,DUMP=YES
 /REMARK *
 /REMARK * A D A R E S REPAIR DATASTORAGE
 /REMARK *
 /SYSFILE SYSLST=L.RES.REPA
 /FILE ADA.MOD,LINK=DDLIB
 /FILE ADAyyyyy.ASSO ,LINK=DDASSOR1,SHARUPD=YES
 /FILE ADAyyyyy.SAVE ,LINK=DDSIIN
 /FILE ADAyyyyy.PLOG5 ,LINK=DDSIIN01
 /EXEC (ADARUN,ADA.MOD)
 ADARUN PROG=ADARES,DB=yyyyy,IDTNAME=ADABAS5B
 ADARES REPAIR DSRABN=3456 3490
 /LOGOFF NOSPOOL

z/OS

データセット	DD 名	ストレージ	追加情報
シーケンシャルプロテクションログまたは ADASAV DDSAVEn 出力	DDSIIN	テープ／ディスク	COPY、REGENERATE、REPAIR 機能の入力ログ
マルチプロテクションログ	DDPLOGRn	ディスク	PLCOPY 機能の入力ログおよび BACKOUT DPLOG/MPLOG
マルチコマンドログ	DDCLOGRn	ディスク	CLCOPY 機能の入力ログ
シーケンシャルプロテクションログ	DDBACK	テープ	BACKOUT 機能（BACKOUT DPLOG ではない）の入力ログ
コピーしたログ	DDSIAUS1	テープ／ディスク	COPY、CLCOPY、PLCOPY 機能の出力
デュアルコピーログ	DDSIAUS2	テープ／ディスク	COPY 機能（TWOCOPIES を指定）で 2 部作成する場合のみ必須
リカバリログ（RLOG）	DDRLOGR1	ディスク	ADARAI 使用時に必要
データストレージ	DDDATARn	ディスク	REGENERATE で FROMCP= SYN1 または SYN4 が指定された場合のみ必要
アソシエータ	DDASSORn	ディスク
ADARUN パラメータ	DDCARD	リーダー	オペレーションマニュアル
ADARES パラメータ	DDKARTE	リーダー
ADARUN メッセージ	DDPRINT	プリンタ	メッセージおよびコード
ADARES メッセージ	DDDRUCK	プリンタ	メッセージおよびコード

ADARES JCL の例（z/OS）

シーケンシャルプロテクションログのコピー

//ADARESCP  JOB
//*
//*    ADARES: COPY SEQUENTIAL PROTECTION LOG
//*
//RES      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
//DDSIIN    DD   DSN=EXAMPLE.DByyyyy.SIBA,            <=== PLOG
//            VOL=SER=vvvvvv,DISP=OLD,UNIT=TAPE       
//DDSIAUS1  DD   DSN=EXAMPLE.DByyyyy.PLOG(+1),        <=== PLOG COPY
//            VOL=SER=vvvvvv,UNIT=TAPE,DISP=(NEW,CATLG)
//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X
//DDCARD    DD   *
ADARUN PROG=ADARES,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
ADARES COPY
/*

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

デュアル／マルチプロテクションログのコピー

//ADARESCD  JOB
//*
//*    ADARES: COPY DUAL/MULTIPLE PROTECTION LOG
//*             TWO COPIES OF OUTPUT ARE TO BE CREATED
//*
//RES      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
//DDPLOGR1  DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.PLOGR1  <=== PLOG1
//DDPLOGR2  DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.PLOGR2  <=== PLOG2
//DDSIAUS1  DD   DSN=EXAMPLE.DByyyyy.PLOG1(+1),       <=== PLOG COPY 1
//            VOL=SER=vvvvvv,UNIT=TAPE,DISP=(NEW,CATLG)
//DDSIAUS2  DD   DSN=EXAMPLE.DByyyyy.PLOG2(+1),       <=== PLOG COPY 2
//            VOL=SER=vvvvvv,UNIT=TAPE,DISP=(NEW,CATLG)
//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X


//DDCARD    DD   *
ADARUN PROG=ADARES,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
ADARES PLCOPY TWOCOPIES
/*

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

ニュークリアスクラスタの自動コピー／マージプロテクションログ

注意:
中間データセットが CLCOPY と PLCOPY の両方に使用されるとき、それらが上書きされないように、データセット名をユニークにしなければならないことに注意してください。

必要な中間データセット MERGINT1 と MERGINT2 を割り当てるためのサンプル JCL は次のとおりです。

//ALLOC JOB 
//*
//* Example to allocate the MERGINT1 and the MERGINT2 data sets 
//*
//ALLOC   EXEC PGM=IEFBR14
//MERGINT1 DD  DISP=(NEW,CATLG,DELETE),DSN=EXAMPLE.PINTERI,
//             SPACE=(CYL,(1,10,0)),UNIT=3390,VOL=SER=volser,
//             RECFM=VB,BLKSIZE=27998,LRECL=27994
//MERGINT2 DD  DISP=(NEW,CATLG,DELETE),DSN=EXAMPLE.PINTERO,
//             SPACE=(CYL,(1,10,0)),UNIT=3390,VOL=SER=volser,
//             RECFM=VB,BLKSIZE=27998,LRECL=27994

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

PPT を無視したニュークリアスクラスタプロテクションログの自動的なコピー／マージ

//ADARESIP  JOB                                        
            
//*                                                                 
//*    ADARES: COPY/MERGE DUAL/MULTIPLE PROTECTION LOGS FROM ALL   
//*             NUCLEI IN AN ADABAS CLUSTER                         
//*             PPT IS TO BE IGNORED                                
//*             THIS IS ONLY FOR EMERGENCY USE WHEN THE PPT HAS BEEN
//*             OVER-WRITTEN - USE CAUTION WHEN SUBMITTING          
//*                                                                 

//RES      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      
//DDPLOG01  DD   DISP=SHR,DSN=EXAMPLE.DBYYYYY.PLOGR1   <=== PLOG1 NUC1
//DDPLOG02  DD   DISP=SHR,DSN=EXAMPLE.DBYYYYY.PLOGR2   <=== PLOG2 NUC1
//DDPLOG03  DD   DISP=SHR,DSN=EXAMPLE.DBYYYYY.PLOGR1A  <=== PLOG1 NUC2
//DDPLOG04  DD   DISP=SHR,DSN=EXAMPLE.DBYYYYY.PLOGR2A  <=== PLOG2 NUC2
//DDPLOG05  DD   DISP=SHR,DSN=EXAMPLE.DBYYYYY.PLOGR1B  <=== PLOG1 NUC3
//DDPLOG06  DD   DISP=SHR,DSN=EXAMPLE.DBYYYYY.PLOGR2B  <=== PLOG2 NUC3
//MERGINT2  DD   DISP=SHR,DSN=EXAMPLE.INTERO           <=== INTER     
//MERGINT1  DD   DISP=SHR,DSN=EXAMPLE.INTERI           <=== INTER    
//DDSIAUS1  DD   DSN=EXAMPLE.DBYYYYY.PLOG1(+1),        <=== PLOG COPY 
//            VOL=SER=ADAXXX,UNIT=TAPE,DISP=(NEW,CATLG)            
//DDDRUCK   DD   SYSOUT=X                                          
//DDPRINT   DD   SYSOUT=X                                          
//SYSUDUMP  DD   SYSOUT=X                                          
//DDCARD    DD   *                                                 
ADARUN PROG=ADARES,MODE=MULTI,SVC=XXX,DEVICE=3390,DBID=YYYYY       
/*                                                                 
//DDKARTE   DD   *                                                 
ADARES PLCOPY NOPPT                                                
/*                                                                 
//

MVSJOBS データセットの ADARESIP を参照してください。

デュアル／マルチコマンドログのコピー

//ADARESCC  JOB
//*
//*     ADARES: COPY DUAL/MULTIPLE COMMAND LOG
//*
//RES      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
//DDCLOGR1  DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.CLOGR1 <=== CLOG1
//DDCLOGR2  DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.CLOGR2 <=== CLOG2
//DDSIAUS1  DD   DSN=EXAMPLE.DByyyyy.CLOG,           <=== OUTPUT OF
//            VOL=SER=vvvvvv,UNIT=TAPE,DISP=(NEW,CATLG)       CLCOPY

//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X
//DDCARD    DD   *
ADARUN PROG=ADARES,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
ADARES CLCOPY
/*

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

ニュークリアスクラスタの自動コピー／マージコマンドログ

必要な中間データセット MERGINT1 と MERGINT2 を割り当てるためのサンプル JCL は次のとおりです。

//ALLOC JOB 
//*
//* Example to allocate the MERGINT1 and the MERGINT2 data sets 
//*
//ALLOC   EXEC PGM=IEFBR14
//MERGINT1 DD  DISP=(NEW,CATLG,DELETE),DSN=EXAMPLE.CINTERI,
//             SPACE=(CYL,(1,10,0)),UNIT=3390,VOL=SER=volser,
//             RECFM=VB,BLKSIZE=27998,LRECL=27994
//MERGINT2 DD  DISP=(NEW,CATLG,DELETE),DSN=EXAMPLE.CINTERO,
//             SPACE=(CYL,(1,10,0)),UNIT=3390,VOL=SER=volser,
//             RECFM=VB,BLKSIZE=27998,LRECL=27994

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

ニュークリアスクラスタ環境でのシーケンシャルコマンドログの手動マージ

//ADARESCM  JOB                                        
//*                                                                    
//*    ADARES: MERGE SEQUENTIAL COMMAND LOGS                          
//*             FOR USE WITH AN ADABAS NUCLEUS CLUSTER                 
//*                                                                    

//RES      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      
//DDCLOG01  DD   DISP=SHR,DSN=EXAMPLE.DBYYYYY.CLOGR1A <=== CLOG1     
//DDCLOG02  DD   DISP=SHR,DSN=EXAMPLE.DBYYYYY.CLOGR1B <=== CLOG2     
//DDCLOG03  DD   DISP=SHR,DSN=EXAMPLE.DBYYYYY.CLOGR1C <=== CLOG3     
//DDSIAUS1  DD   DSN=EXAMPLE.DBYYYYY.CLOGM,           <=== OUTPUT OF  
//            VOL=SER=ADAXXX,UNIT=TAPE,DISP=(NEW,CATLG)       CLOG MERGE    
//DDDRUCK   DD   SYSOUT=X                                              
//DDPRINT   DD   SYSOUT=X                                              
//SYSUDUMP  DD   SYSOUT=X                                              
//DDCARD    DD   *                                                     
ADARUN PROG=ADARES,MODE=MULTI,SVC=XXX,DEVICE=3390,DBID=YYYYY           
/*                                                                     
//DDKARTE   DD   *                                                     
ADARES MERGE CLOG,NUMLOG=3  
/*                          
//

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

シーケンシャルプロテクションログのバックアウト

//ADARESSP  JOB
//*
//*    ADARES: BACKOUT FROM A SEQUENTIAL PLOG
//*
//RES      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
//DDBACK    DD   DSN=EXAMPLE.DByyyyy.PLOG(-5),       <=== PLOG TAPE
//               UNIT=TAPE,DISP=OLD
//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X
//DDCARD    DD   *
ADARUN PROG=ADARES,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*

//DDKARTE   DD   *
ADARES BACKOUT PLOGNUM=nnn
/*

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

デュアル／マルチプロテクションログのバックアウト

//ADARESB   JOB
//*
//*    ADARES: BACKOUT FROM DUAL/MULTIPLE PLOG
//*
//RES      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
//DDPLOGR1  DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.PLOGR1 <=== PLOG1
//DDPLOGR2  DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.PLOGR2 <=== PLOG2
//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X
//DDCARD    DD   *
ADARUN PROG=ADARES,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
ADARES BACKOUT DPLOG
/*

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

再生成機能

//ADARESR   JOB
//*
//*    ADARES: REGENERATE
//*
//RES      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
//DDSIIN    DD   DSN=EXAMPLE.DByyyyy.PLOG(-5),       <=== PLOG TAPE
//            UNIT=TAPE,DISP=OLD
//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X
//DDCARD    DD   *
ADARUN PROG=ADARES,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
ADARES REGENERATE FILE=1
/*

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

データストレージの修復

//ADARESRP  JOB
//*
//*    ADARES:  REPAIR DATASTORAGE
//*
//RES      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
//DDSIIN    DD   DSN=EXAMPLE.DByyyyy.SAVE,           <=== SAVE
OUTPUT
//             DISP=OLD,UNIT=TAPE
//          DD   DSN=EXAMPLE.DByyyyy.PLOG(-5),       <=== PLOG TAPE
//             DISP=OLD,UNIT=TAPE
//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X
//DDCARD    DD   *
ADARUN PROG=ADARES,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
ADARES REPAIR DSRABN=3456-3490

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

z/VM

データセット	DD 名	ストレージ	追加情報
シーケンシャルプロテクションログまたは ADASAV DDSAVEn 出力	DDSIIN	テープ／ディスク	COPY、REGENERATE、REPAIR 機能の入力ログ
マルチプロテクションログ	DDPLOGRn	ディスク	PLCOPY および BACKOUT DPLOG の入力ログ
マルチコマンドログ	DDCLOGRn	ディスク	CLCOPY の入力ログ
シーケンシャルプロテクションログ	DDBACK	テープ	BACKOUT（BACKOUT DPLOG ではない）の入力ログ
コピーしたログ	DDSIAUS1	テープ／ディスク	CLCOPY および PLCOPY の出力
デュアルコピーログ	DDSIAUS2	テープ／ディスク	TWOCOPIES に必須
データストレージ	DDDATARn	ディスク	REGENERATE で FROMCP= SYN1 または SYN4 が指定された場合のみ必要
アソシエータ	DDASSORn	ディスク
リカバリログ（RLOG）	DDRLOGR1	ディスク	ADARAI 使用時に必要
ADARUN パラメータ	DDCARD	ディスク／端末／リーダー	オペレーションマニュアル
ADARES パラメータ	DDKARTE	ディスク／端末／リーダー
ADARUN メッセージ	DDPRINT	ディスク／端末／プリンタ	メッセージおよびコード
ADARES メッセージ	DDDRUCK	ディスク／端末／プリンタ	メッセージおよびコード

ADARES JCL の例（z/VM）

シーケンシャルプロテクションログのコピー

DATADEF DDASSOR1,DSN=ADABASVv.ASSO,VOL=ASSOV1
DATADEF DDSIIN,DSN=ADABASVv.SIBA,MODE=A
DATADEF DDSIAUS1,DSN=ADABASVv.SIAUS1,UNIT=181,VOL=SIBA01
DATADEF DDPRINT,DSN=ADARES.DDPRINT,MODE=A
DATADEF DUMP,DUMMY
DATADEF DDDRUCK,DSN=ADARES.DDDRUCK,MODE=A
DATADEF DDCARD,DSN=RUNRES.CONTROL,MODE=A
DATADEF DDKARTE,DSN=ADARES.CONTROL,MODE=A
ADARUN

RUNRES CONTROL A1 の内容

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

ADARES CONTROL A1 の内容

ADARES COPY PLOGNUM=ppp

デュアル／マルチプロテクションログのコピー

DATADEF DDASSOR1,DSN=ADABASVv.ASSO,VOL=ASSOV1
DATADEF DDPLOGR1,DSN=ADABASVv.PLOG1,VOL=PLOGV1
DATADEF DDPLOGR2,DSN=ADABASVv.PLOG2,VOL=PLOGV2
DATADEF DDSIAUS1,DSN=ADABASVv.SIAUS1,UNIT=181,VOL=SIBA01
DATADEF DDSIAUS2,DSN=ADABASVv.SIAUS2,UNIT=182,VOL=SIBA02
DATADEF DDPRINT,DSN=ADARES.DDPRINT,MODE=A
DATADEF DUMP,DUMMY
DATADEF DDDRUCK,DSN=ADARES.DDDRUCK,MODE=A
DATADEF DDCARD,DSN=RUNRES.CONTROL,MODE=A
DATADEF DDKARTE,DSN=ADARES.CONTROL,MODE=A
ADARUN

RUNRES CONTROL A1 の内容

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

ADARES CONTROL A1 の内容

ADARES PLCOPY TWOCOPIES

デュアル／マルチコマンドログのコピー

DATADEF DDASSOR1,DSN=ADABASVv.ASSO,VOL=ASSOV1
DATADEF DDCLOGR1,DSN=ADABASVv.CLOG1,VOL=CLOGV1
DATADEF DDCLOGR1,DSN=ADABASVv.CLOG1,VOL=CLOGV2
DATADEF DDSIAUS1,DSN=ADABASVv.CLOG1,UNIT=181,VOL=CLOG01
DATADEF DDPRINT,DSN=ADARES.DDPRINT,MODE=A
DATADEF DUMP,DUMMY
DATADEF DDDRUCK,DSN=ADARES.DDDRUCK,MODE=A
DATADEF DDCARD,DSN=RUNRES.CONTROL,MODE=A
DATADEF DDKARTE,DSN=ADARES.CONTROL,MODE=A
LOAD ADARUN ( START

RUNRES CONTROL A1 の内容

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

ADARES CONTROL A1 の内容

ADARES CLCOPY

シーケンシャルプロテクションログを使用したバックアウト

DATADEF DDASSOR1,DSN=ADABASVv.ASSO,VOL=ASSOV1
DATADEF DDBACK,DSN=ADABASVv.SIBA,MODE=A
DATADEF DDPRINT,DSN=ADARES.DDPRINT,MODE=A
DATADEF DUMP,DUMMY
DATADEF DDDRUCK,DSN=ADARES.DDDRUCK,MODE=A
DATADEF DDCARD,DSN=RUNRES.CONTROL,MODE=A
DATADEF DDKARTE,DSN=BACKOUT.CONTROL,MODE=A
LOAD ADARUN ( START

RUNRES CONTROL A1 の内容

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

BACKOUT CONTROL A1 の内容

ADARES BACKOUT

デュアル／マルチプロテクションログのバックアウト

DATADEF DDASSOR1,DSN=ADABASVv.ASSO,VOL=ASSOV1
DATADEF DDPLOGR1,DSN=ADABASVv.PLOG1,VOL=PLOGV1
DATADEF DDPLOGR2,DSN=ADABASVv.PLOG2,VOL=PLOGV2
DATADEF DDPRINT,DSN=ADARES.DDPRINT,MODE=A
DATADEF DUMP,DUMMY
DATADEF DDDRUCK,DSN=ADARES.DDDRUCK,MODE=A
DATADEF DDCARD,DSN=RUNRES.CONTROL,MODE=A
DATADEF DDKARTE,DSN=BACKOUT.CONTROL,MODE=A
LOAD ADARUN ( START

RUNRES CONTROL A1 の内容

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

BACKOUT CONTROL A1 の内容

ADARES BACKOUT DPLOG

再生成機能

DATADEF DDASSOR1,DSN=ADABASVv.ASSO,VOL=ASSOV1
DATADEF DDSIIN,DSN=ADABASVv.SIBA,MODE=A
DATADEF DDPRINT,DSN=ADARES.DDPRINT,MODE=A
DATADEF DUMP,DUMMY
DATADEF DDDRUCK,DSN=ADARES.DDDRUCK,MODE=A
DATADEF DDCARD,DSN=RUNRES.CONTROL,MODE=A
DATADEF DDKARTE,DSN=REGENER.CONTROL,MODE=A
LOAD ADARUN ( START

RUNRES CONTROL A1 の内容

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

REGENER CONTROL A1 の内容

ADARES REGENERATE FILE=1

データストレージの修復

DATADEF DDASSOR1,DSN=ADABASVv.ASSO,VOL=ASSOV1
DATADEF DDSIIN,DSN=ADABASVv.SAVE,MODE=A
DATADEF DDSIIN,DSN=ADABASVv.SIBA,MODE=A,CONCAT=1
DATADEF DDPLOGR1,DSN=ADABASVv.PLOG1,VOL=PLOGV1
DATADEF DDPLOGR2,DSN=ADABASVv.PLOG2,VOL=PLOGV2
DATADEF DDPRINT,DSN=ADARES.DDPRINT,MODE=A
DATADEF DUMP,DUMMY
DATADEF DDDRUCK,DSN=ADARES.DDDRUCK,MODE=A
DATADEF DDCARD,DSN=RUNRES.CONTROL,MODE=A
DATADEF DDKARTE,DSN=BACKOUT.CONTROL,MODE=A
LOAD ADARUN ( START

RUNRES CONTROL A1 の内容

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

BACKOUT CONTROL A1 の内容

ADARES REPAIR DSRABN=3456-3490

VSE

データセット	記号	ストレージ	論理ユニット	追加情報
シーケンシャルプロテクションログまたは ADASAV SAVEn 出力	SIIN	テープディスク	SYS020 注参照	COPY、 REGENERATE、REPAIR の入力ログ
マルチプロテクションログ	PLOGRn	ディスク	注参照	PLCOPY および BACKOUT DPLOG の入力ログ
マルチコマンドログ	CLOGRn	ディスク	注参照	CLCOPY の入力ログ
シーケンシャルプロテクションログ	BACK	テープ	SYS020	BACKOUT（BACKOUT DPLOG ではない）の入力ログ
コピーしたログ	SIAUS1	テープディスク	SYS021 注参照	COPY、CLCOPY、PLCOPY の出力
デュアルコピーログ	SIAUS2	テープディスク	SYS022 注参照	TWOCOPIES に必須
データストレージ	DATARn	ディスク		REGENERATE で FROMCP= SYN1 または SYN4 が指定された場合のみ必要
アソシエータ	ASSORn		注参照
リカバリログ（RLOG）	RLOGR1	ディスク		ADARAI 使用時に必要
ADARUN パラメータ	- CARD CARD	リーダーテープディスク	SYSRDR SYS000 注参照
ADARES パラメータ		リーダー	SYSIPT
ADARUN メッセージ		プリンタ	SYSLST
ADARES メッセージ		プリンタ	SYS009

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

ADARES JCS の例（VSE）

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

以下に例とメンバの対応表を示します。

例	メンバ
シーケンシャルプロテクションログのコピー	ADARESCP.X
デュアル／マルチプロテクションログのコピー	ADARESCD.X
デュアル／マルチコマンドログのコピー	ADARESCC.X
再生成	ADARESR.X
シーケンシャルプロテクションログのバックアウト	ADARESSP.X
デュアルプロテクションログのバックアウト	ADARESB.X
データストレージの修復	ADARESRP.X

シーケンシャルプロテクションログのコピー

* $$ JOB JNM=ADARESCP,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
// JOB ADARESCP
*       COPY SEQUENTIAL PLOG(TAPE)
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// ASSGN SYS020,TAPE,D0
// PAUSE MOUNT INPUT TAPE ON TAPE cuu
// MTC REW,SYS020
// TLBL SIIN,'ADABAS.Vvr.SIBA'
// ASSGN SYS022,TAPE,D0
// PAUSE MOUNT SCRATCH TAPE ON TAPE cuu
// MTC REW,SYS022
// MTC WTM,SYS022,5
// MTC REW,SYS022
// TLBL SIAUS1,'ADABAS.Vvr.SIAUS1'
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADARES,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADARES COPY
/*
/&
* $$ EOJ

デュアル／マルチプロテクションログのコピー

* $$ JOB JNM=ADARESCD,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
// JOB ADARESCD
*       CLCOPY WITH OPTION TWOCOPIES(TAPE)
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// ASSGN SYS021,TAPE,D0
// ASSGN SYS022,TAPE,D0
// PAUSE MOUNT SCRATCH TAPE ON TAPES cu1 AND cu2
// MTC REW,SYS022
// MTC WTM,SYS022,5
// MTC REW,SYS022
// MTC REW,SYS021
// MTC WTM,SYS021,5
// MTC REW,SYS021
// TLBL SIAUS1,'ADABAS.Vvr.PLOGC1'
// TLBL SIAUS2,'ADABAS.Vvr.PLOGC2'
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADARES,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADARES PLCOPY TWOCOPIES
/*
/&
* $$ EOJ

デュアル／マルチコマンドログのコピー

* $$ JOB JNM=ADARESCC,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
// JOB ADARESCC
*       COPY DUAL/MULTIPLE COMMAND LOG
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// ASSGN SYS022,DISK,VOL=vvvvvv,SHR
// DLBL SIAUS1,'ADABAS.Vvr.CLOG',0,SD
// EXTENT SYS022,vvvvvv,1,0,sssss,nnnnn
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADARES,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADARES CLCOPY
/*
/&
* $$ EOJ

再生成

* $$ JOB JNM=ADARESR,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
// JOB ADARESR
*       REGENERATE
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// ASSGN SYS020,DISK,VOL=vvvvvv,SHR
// DLBL SIIN,'EXAMPLE.DByyyyy.PLOG'
// EXTENT SYS020,vvvvvv
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADARES,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADARES REGENERATE FILE=1
/*
/&
* $$ EOJ

シーケンシャルプロテクションログのバックアウト

* $$ JOB JNM=ADARESSP,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
// JOB ADARESSP
*       BACKOUT FROM A SEQUENTIAL PLOG
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// ASSGN SYS020,TAPE
// PAUSE  ***  PLEASE MOUNT TAPE ***
// MTC REW,SYS020
// TLBL BACK,'DByyyyy.PLCOPY.TAPE'
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADARES,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADARES BACKOUT PLOGNUM=ppp
/*
/&
* $$ EOJ

デュアルプロテクションログのバックアウト

* $$ JOB JNM=ADARESB,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
// JOB ADARESB
*       BACKOUT FROM DUAL PLOG
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADARES,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADARES BACKOUT DPLOG
/*
/&
* $$ EOJ

データストレージの修復

* $$ JOB JNM=ADARESRP,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
// JOB ADARESRP
*       REPAIR DATASTORAGE
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// ASSGN SYS020,TAPE
// PAUSE MOUNT INPUT TAPE ON cuu
// MTC REW,SYS020
// TLBL SIIN,'EXAMPLE.ADAyyyyy.SAVE1'
// TLBL SIIN01,'ADABAS.ADAyyyyy.PLOG5'       (*)
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADARES,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADARES REPAIR DSRABN=3456-3490
/*
/&
* $$ EOJ

（*）シーケンシャル入力ファイル、VSE 連結のセクションを参照。

検索索引目次 | PDF BOOKS | ホーム上へ戻る次へ

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

BS2000

ADARES JCL の例（BS2000）

デュアル／マルチコマンドログのコピー

SDF フォーマットの場合：

ISP フォーマットの場合：

シーケンシャルプロテクションログのコピー

SDF フォーマットの場合：

ISP フォーマットの場合：

デュアル／マルチプロテクションログのコピー

SDF フォーマットの場合：

ISP フォーマットの場合：

シーケンシャルプロテクションログを使用したバックアウト

SDF フォーマットの場合：

ISP フォーマットの場合：

デュアル／マルチプロテクションログのバックアウト

SDF フォーマットの場合：

ISP フォーマットの場合：

再生成機能

SDF フォーマットの場合：

ISP フォーマットの場合：

データストレージの修復

SDF フォーマットの場合：

ISP フォーマットの場合：

z/OS

ADARES JCL の例（z/OS）

シーケンシャルプロテクションログのコピー

デュアル／マルチプロテクションログのコピー

ニュークリアスクラスタの自動コピー／マージ プロテクションログ

PPT を無視したニュークリアスクラスタプロテクションログの自動的なコピー／マージ

デュアル／マルチコマンドログのコピー

ニュークリアスクラスタの自動コピー／マージ コマンドログ

ニュークリアスクラスタ環境でのシーケンシャルコマンドログの手動マージ

シーケンシャルプロテクションログのバックアウト

デュアル／マルチプロテクションログのバックアウト

再生成機能

データストレージの修復

z/VM

ADARES JCL の例（z/VM）

シーケンシャルプロテクションログのコピー

RUNRES CONTROL A1 の内容

ADARES CONTROL A1 の内容

デュアル／マルチプロテクションログのコピー

RUNRES CONTROL A1 の内容

ADARES CONTROL A1 の内容

デュアル／マルチコマンドログのコピー

RUNRES CONTROL A1 の内容

ADARES CONTROL A1 の内容

シーケンシャルプロテクションログを使用したバックアウト

RUNRES CONTROL A1 の内容

BACKOUT CONTROL A1 の内容

デュアル／マルチプロテクションログのバックアウト

RUNRES CONTROL A1 の内容

BACKOUT CONTROL A1 の内容

再生成機能

RUNRES CONTROL A1 の内容

REGENER CONTROL A1 の内容

データストレージの修復

RUNRES CONTROL A1 の内容

BACKOUT CONTROL A1 の内容

VSE

ADARES JCS の例（VSE）

シーケンシャルプロテクションログのコピー

デュアル／マルチプロテクションログのコピー

デュアル／マルチコマンドログのコピー

再生成

シーケンシャルプロテクションログのバックアウト

デュアルプロテクションログのバックアウト

データストレージの修復

ニュークリアスクラスタの自動コピー／マージプロテクションログ

ニュークリアスクラスタの自動コピー／マージコマンドログ