バージョン 8.1.3 検索   索引   目次   |   PDF BOOKS   |   ホーム   上へ   戻る   次へ
 —  ユーティリティ  —

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

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

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

BS2000

データセット リンク名 ストレージ 追加情報
アソシエータ DDASSORn ディスク  
データストレージ DDDATARn ディスク  
ワーク DDWORKR1
DDWORKR4 		ディスク Adabas ニュークリアスがアクティブでないときのみ必要
マルチプロテクションログ DDPLOGRn ディスク RESTORE および RESTONL
データベース／GCB ではオプション
マルチコマンドログ DDCLOGRn ディスク RESTORE および RESTONL
データベース／GCB ではオプション
リカバリログ（RLOG） DDRLOGR1 ディスク ADARAI の場合に必要
バックアップコピー DDSAVE1～8 テープ／ディスク SAVE 機能にのみ必要
デュアルコピー DDDUAL1～8 テープ／ディスク SAVE 機能でバックアップを 2 部
作成する場合のみ必要
バックアップコピー（RESTORE 機能の入力） DDREST1～8 テープ／ディスク RESTORE および RESTONL
機能に必要
シーケンシャルプロテクションログ DDPLOG テープ／ディスク RESTONL および RESTPLOG
機能に必要
ADARUN パラメータ DDCARD   オペレーションマニュアル
ADASAV パラメータ SYSDTA/ DDKARTE    
ADARUN メッセージ SYSOUT/ DDPRINT   メッセージおよびコード
ADASAV メッセージ SYSLST/ DDDRUCK   メッセージおよびコード

注意:
RESTONL では、入力 SAVE テープとシーケンシャルプロテクションログは、DDREST1 を使用して連結できます。

ADASAV JCL の例（BS2000）

ファイルのセーブ、データベースのセーブ

SDF フォーマットの場合：

/.ADASAV LOGON
 /MODIFY-TEST-OPTIONS DUMP=YES
 /REMARK *
 /REMARK * A D A S A V SAVE FILES, SAVE DATABASE
 /REMARK *
 /DELETE-FILE ADAyyyyy.SAVE1
 /SET-JOB-STEP
 /CREATE-FILE ADAyyyyy.SAVE1,SUP=TAPE(DEVICE=TAPE-C1,VOL=SAV101),-
 /  PROT=(USER-ACCESS=ALL-USERS)
 /SET-JOB-STEP
 /DELETE-FILE ADAyyyyy.DUAL1
 /SET-JOB-STEP
 /CREATE-FILE ADAyyyyy.DUAL1,SUP=TAPE(DEVICE=TAPE-C1,VOL=SAV101),-
 /  PROT=(USER-ACCESS=ALL-USERS)
 /SET-JOB-STEP
 /ASS-SYSLST L.SAV.SAVE
 /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
 /SET-FILE-LINK DDWORKR1,ADAyyyyy.WORK,SHARE-UPD=YES
 /SET-FILE-LINK DDSSAVE1,ADAyyyyy.SAVE1,TAPE(FILE-SEQ=1)
 /SET-FILE-LINK DDSDUAL1,ADAyyyyy.DUAL1,TAPE(FILE-SEQ=1)
 /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
 ADARUN PROG=ADASAV,DB=yyyyy,IDTNAME=ADABAS5B
 ADASAV SAVE TWOCOPIES
 /LOGOFF SYS-OUTPUT=DEL

ファイルのセーブ、データベースのセーブ（続き）

ISP フォーマットの場合：

/.ADASAV LOGON
 /OPTION MSG=FH,DUMP=YES
 /REMARK *
 /REMARK * A D A S A V SAVE FILES, SAVE DATABASE
 /REMARK *

/SYSFILE SYSLST=L.SAV.SAVE
 /FILE ADA.MOD,LINK=DDLIB
 /FILE ADAyyyyy.ASSO ,LINK=DDASSOR1,SHARUPD=YES
 /FILE ADAyyyyy.DATA ,LINK=DDDATAR1,SHARUPD=YES
 /FILE ADAyyyyy.WORK ,LINK=DDWORKR1,SHARUPD=YES
 /FILE ADAyyyyy.SAVE1 ,LINK=DDSAVE1 ,DEVICE=TAPE-C1,VOLUME=SAV101
 /FILE ADAyyyyy.DUAL1 ,LINK=DDDUAL1 ,DEVICE=TAPE-C1,VOLUME=SAV201
 /EXEC (ADARUN,ADA.MOD)
 ADARUN PROG=ADASAV,DB=yyyyy,IDTNAME=ADABAS5B
 ADASAV SAVE TWOCOPIES
 /LOGOFF NOSPOOL

オンラインで作成された SAVE データセットからのファイルのリストア

SDF フォーマットの場合：

/.ADASAV LOGON
 /MODIFY-TEST-OPTIONS DUMP=YES
 /REMARK *
 /REMARK * A D A S A V RESTORE FILES, RESTORE DATABASE
 /REMARK * FROM ONLINE CREATED SAVE DATASETS
 /REMARK *
 /ASS-SYSLST L.SAV.REON
 /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
 /SET-FILE-LINK DDWORKR1,ADAyyyyy.WORK,SHARE-UPD=YES
 /SET-FILE-LINK DDPLOGR1,ADAyyyyy.PLOGR1,SHARE-UPD=YES
 /SET-FILE-LINK DDPLOGR2,ADAyyyyy.PLOGR2,SHARE-UPD=YES
 /SET-FILE-LINK DDREST1,ADAyyyyy.SAVE1                  
 /SET-FILE-LINK DDPLOG,ADAyyyyy.PLOG                   
 /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
 ADARUN PROG=ADASAV,DB=yyyyy,IDTNAME=ADABAS5B
 ADASAV RESTONL FILES=2,PLOGNUM=ppp,SYN1=43
 /LOGOFF SYS-OUTPUT=DEL

オンラインで作成された SAVE データセットからのファイルのリストア（続き）

ISP フォーマットの場合：

/.ADASAV LOGON
 /OPTION MSG=FH,DUMP=YES
 /REMARK *
 /REMARK * A D A S A V RESTORE FILES, RESTORE DATABASE
 /REMARK * FROM ONLINE CREATED SAVE DATASETS
 /REMARK *

/SYSFILE SYSLST=L.SAV.REON
 /FILE ADA.MOD,LINK=DDLIB
 /FILE ADAyyyyy.ASSO ,LINK=DDASSOR1,SHARUPD=YES
 /FILE ADAyyyyy.DATA ,LINK=DDDATAR1,SHARUPD=YES
 /FILE ADAyyyyy.WORK ,LINK=DDWORKR1,SHARUPD=YES
 /FILE ADAyyyyy.SAVE1 ,LINK=DDREST1
 /FILE ADAyyyyy.PLOG ,LINK=DDPLOG
 /EXEC (ADARUN,ADA.MOD)
 ADARUN PROG=ADASAV,DB=yyyyy,IDTNAME=ADABAS5B
 ADASAV RESTONL FILES=2,PLOGNUM=ppp,SYN1=43
 /LOGOFF NOSPOOL

データベースのリストア

SDF フォーマットの場合：

/.ADASAV LOGON
 /MODIFY-TEST-OPTIONS DUMP=YES
 /REMARK *
 /REMARK * ADASAV:
 /REMARK * EXAMPLE HOW TO USE ADASAV TO RESTORE THE
 /REMARK * ENTIRE DATABASE /REMARK *
 /REMARK *
 /DELETE-FILE ADAyyyyy.SAVE1
 /SET-JOB-STEP
 /IMPORT-FILE
SUP=TAPE(F-NAME=ADAyyyyy.SAVE1,DEV-TYPE=TAPE-C1,VOL=SAV101)
 /SET-JOB-STEP
 /ASS-SYSLST L.SAV.REST
 /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
 /SET-FILE-LINK DDWORKR1,ADAyyyyy.WORK,SHARE-UPD=YES
 /SET-FILE-LINK DDPLOGR1,ADAyyyyy.PLOGR1,SHARE-UPD=YES
 /SET-FILE-LINK DDPLOGR2,ADAyyyyy.PLOGR2,SHARE-UPD=YES
 /SET-FILE-LINK DDREST1,ADAyyyyy.SAVE1,TAPE(FILE-SEQ=1),ACC-METH=SAM,-
 /  BUFF-LEN=32768,REC-FORM=V
 /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
 ADARUN PROG=ADASAV,DB=yyyyy,IDTNAME=ADABAS5B
 ADASAV RESTORE OVERWRITE
 /LOGOFF SYS-OUTPUT=DEL

データベースのリストア（続き）

ISP フォーマットの場合：

/.ADASAV LOGON
 /OPTION MSG=FH,DUMP=YES
 /REMARK *
 /REMARK * ADASAV:
 /REMARK * EXAMPLE HOW TO USE ADASAV TO RESTORE THE
 /REMARK * ENTIRE DATABASE
 /REMARK *
 /SYSFILE SYSLST=L.SAV.REST
 /FILE ADA.MOD,LINK=DDLIB
 /FILE ADAyyyyy.ASSO ,LINK=DDASSOR1,SHARUPD=YES
 /FILE ADAyyyyy.DATA ,LINK=DDDATAR1,SHARUPD=YES
 /FILE ADAyyyyy.WORK ,LINK=DDWORKR1,SHARUPD=YES
 /FILE ADAyyyyy.SAVE1 ,LINK=DDREST1,DEVICE=TAPE-C1,VOLUME=ADA001,-
 /     STATE=FOREIGN.-                                              
 /     FCBTYPE=SAM,RECFORM=V,RECSIZE=,BLKSIZE=32768,LABEL=STD       
 /FILE ADAyyyyy.PLOGR1,LINK=DDPLOGR1,SHARUPD=YES
 /FILE ADAyyyyy.PLOGR2,LINK=DDPLOGR2,SHARUPD=YES
 /EXEC (ADARUN,ADA.MOD)
 ADARUN PROG=ADASAV,DB=yyyyy,IDTNAME=ADABAS5B
 ADASAV RESTORE OVERWRITE
 /LOGOFF NOSPOOL

RESTONL 機能中断後のプロテクションログのリストア

SDF フォーマットの場合：

/.ADASAV LOGON
 /MODIFY-TEST-OPTIONS DUMP=YES
 /REMARK *
 /REMARK * A D A S A V RESTORE PROTECTION LOG
 /REMARK *
 /ASS-SYSLST L.SAV.REPL
 /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
 /SET-FILE-LINK DDWORKR1,ADAyyyyy.WORK,SHARE-UPD=YES
 /SET-FILE-LINK DDPLOG,ADAyyyyy.PLOG                   
 /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
 ADARUN PROG=ADASAV,DB=yyyyy,IDTNAME=ADABAS5B
 ADASAV RESTPLOG FILES=2,PLOGNUM=ppp,SYN1=43
 /LOGOFF SYS-OUTPUT=DEL

ISP フォーマットの場合：

/.ADASAV LOGON
 /OPTION MSG=FH,DUMP=YES
 /REMARK *
 /REMARK * A D A S A V RESTORE PROTECTION LOG
 /REMARK *
 /SYSFILE SYSLST=L.SAV.REPL
 /FILE ADA.MOD,LINK=DDLIB
 /FILE ADAyyyyy.ASSO ,LINK=DDASSOR1,SHARUPD=YES
 /FILE ADAyyyyy.DATA ,LINK=DDDATAR1,SHARUPD=YES
 /FILE ADAyyyyy.WORK ,LINK=DDWORKR1,SHARUPD=YES
 /FILE ADAyyyyy.PLOG ,LINK=DDPLOG
 /EXEC (ADARUN,ADA.MOD)
 ADARUN PROG=ADASAV,DB=yyyyy,IDTNAME=ADABAS5B
 ADASAV RESTPLOG FILES=2,PLOGNUM=ppp,SYN1=43
 /LOGOFF NOSPOOL

オフラインで作成された SAVE データセットからのファイルのリストア

SDF フォーマットの場合：

/.ADASAV LOGON
 /MODIFY-TEST-OPTIONS DUMP=YES
 /REMARK *
 /REMARK * A D A S A V RESTORE FILES, RESTORE DATABASE
 /REMARK * FROM OFFLINE CREATED SAVE DATASETS
 /REMARK *
 /ASS-SYSLST L.SAV.REFM
 /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
 /SET-FILE-LINK DDWORKR1,ADAyyyyy.WORK,SHARE-UPD=YES
 /SET-FILE-LINK DDREST1,ADAyyyyy.SAVE1                  
 /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
 ADARUN PROG=ADASAV,DB=yyyyy,IDTNAME=ADABAS5B
 ADASAV RESTORE FMOVE=2
 /LOGOFF SYS-OUTPUT=DEL

ISP フォーマットの場合：

/.ADASAV LOGON
 /OPTION MSG=FH,DUMP=YES
 /REMARK *
 /REMARK * A D A S A V RESTORE FILES, RESTORE DATABASE
 /REMARK * FROM OFFLINE CREATED SAVE DATASETS
 /REMARK *
 /SYSFILE SYSLST=L.SAV.REFM
 /FILE ADA.MOD ,LINK=DDLIB
 /FILE ADAyyyyy.ASSO ,LINK=DDASSOR1,SHARUPD=YES
 /FILE ADAyyyyy.DATA ,LINK=DDDATAR1,SHARUPD=YES
 /FILE ADAyyyyy.WORK ,LINK=DDWORKR1,SHARUPD=YES
 /FILE ADAyyyyy.SAVE1 ,LINK=DDREST1
 /EXEC (ADARUN,ADA.MOD)
 ADARUN PROG=ADASAV,DB=yyyyy,IDTNAME=ADABAS5B
 ADASAV RESTORE FMOVE=2
 /LOGOFF NOSPOOL

Top of page

z/OS

データセット DD 名 ストレージ 追加情報
アソシエータ DDASSORn ディスク  
データストレージ DDDATARn ディスク  
ワーク DDWORKR1
DDWORKR4 		ディスク Adabas ニュークリアスがアクティブでないときのみ必要
マルチプロテクションログ DDPLOGRn ディスク RESTORE および RESTONL
データベース／GCB ではオプション
マルチコマンドログ DDCLOGRn ディスク RESTORE および RESTONL
データベース／GCB ではオプション
リカバリログ（RLOG） DDRLOGR1 ディスク ADARAI の場合に必要
バックアップコピー DDSAVE1～8 テープ／ディスク SAVE 機能にのみ必要
デュアルコピー DDDUAL1～8 テープ／ディスク SAVE 機能でバックアップを 2 部作成する場合のみ必要
バックアップコピー（RESTORE 機能の入力） DDREST1～8 テープ／ディスク RESTORE および RESTONL
機能に必要
シーケンシャルプロテクションログ DDPLOG テープ／ディスク RESTONL および RESTPLOG
機能に必要
ADARUN パラメータ DDCARD リーダー オペレーションマニュアル
ADASAV パラメータ DDKARTE リーダー  
ADARUN メッセージ DDPRINT プリンタ メッセージおよびコード
ADASAV メッセージ DDDRUCK プリンタ メッセージおよびコード

注意:
RESTONL では、入力 SAVE テープとシーケンシャルプロテクションログは、DDREST1 を使用して連結できます。

ADASAV JCL の例（z/OS）

データベースのセーブ

//ADASAV    JOB
//*
//*    ADASAV:
//*       EXAMPLE HOW TO USE ADASAV TO SAVE THE
//*       ENTIRE DATABASE
//*
//SAVE     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
//DDSAVE1   DD   DSN=EXAMPLE.DByyyyy.DDSAVE1,UNIT=TAPE, <=== OUTPUT
//            DISP=(,CATLG),VOL=SER=ADABCK
//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X
//DDCARD    DD   *
ADARUN PROG=ADASAV,SVC=xxx,DE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
ADASAV SAVE
/*

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

データベースのセーブ（出力コピーを 2 つ作成）

//ADASAVT   JOB
//*
//*    ADASAV:
//*       EXAMPLE HOW TO USE ADASAV TO SAVE THE
//*       ENTIRE DATABASE CREATING TWO COPIES OF THE OUTPUT
//*
//SAVE     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
//DDSAVE1   DD   DSN=EXAMPLE.DByyyyy.DDSAVE1,UNIT=TAPE, <=== OUTPUT
//            DISP=(,CATLG),VOL=SER=ADABCK
//DDDUAL1   DD   DSN=EXAMPLE.DByyyyy.DDSAVD1,UNIT=TAPE, <=== OUTPUT
//            DISP=(,CATLG),VOL=SER=ADABCK1
//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X
//DDCARD    DD   *
ADARUN PROG=ADASAV,SVC=xxx,DE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
ADASAV SAVE TWOCOPIES
/*

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

データベースのリストア

//ADASAVR   JOB
//*
//*    ADASAV:
//*       EXAMPLE HOW TO USE ADASAV TO RESTORE THE
//*       ENTIRE DATABASE
//*
//RESTORE  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
//DDREST1   DD   DSN=EXAMPLE.DByyyyy.SAVE,           <=== SAVE OUTPUT
//          DISP=OLD,UNIT=TAPE,VOL=SER=ADABCK
//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X

//DDCARD    DD   *
ADARUN PROG=ADASAV,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
ADASAV RESTORE OVERWRITE
/*

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

オフラインで作成された SAVE データセットからのファイルのリストア

//ADASAVRF  JOB
//*
//*    ADASAV:
//*       EXAMPLE HOW TO USE ADASAV TO RESTORE A FILE
//*       TO ANY RABNS FROM AN OFFLINE SAVE
//*
//RESTORE  EXEC PGM=ADARUN
//STEPLIB   DD   DISP=SHR,DSN=ADABAS.Vvrs.LOAD       <=== ADABASLOAD
//*
//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
//DDREST1   DD   DSN=EXAMPLE.DByyyyy.SAVE,           <=== SAVE OUTPUT
//          DISP=OLD,UNIT=TAPE,VOL=SER=ADABCK
//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X
//DDCARD    DD   *
ADARUN PROG=ADASAV,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
ADASAV RESTORE FMOVE=2
/*

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

オンラインで作成された SAVE データセットからのファイルのリストア

//ADASAVRO  JOB
//*
//*    ADASAV:
//*       EXAMPLE HOW TO USE ADASAV TO RESTORE FILES
//*       FROM SAVE DATA SETS CREATED ONLINE
//*
//RESTORE  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
//DDREST1   DD   DSN=EXAMPLE.DByyyyy.SAVE,           <=== SAVE OUTPUT
//          DISP=OLD,UNIT=TAPE,VOL=SER=ADABCK
//DDPLOG    DD   DSN=EXAMPLE.DByyyyy.PLOG,           <=== PLOG OUTPUT
//          DISP=OLD,UNIT=TAPE,VOL=SER=PLOGD1
//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X
//DDCARD    DD   *
ADARUN PROG=ADASAV,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
ADASAV RESTONL FILES=2,PLOGNUM=ppp,SYN1=1
/*

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

RESTONL 機能中断後のプロテクションログのリストア

//ADASAVRP  JOB
//*
//*    ADASAV:
//*       EXAMPLE HOW TO USE ADASAV TO RESTORE THE
//*       PROTECTION LOG AFTER AN INTERRUPTED RESTONL
//*
//RESTORE  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
//DDPLOG    DD   DSN=EXAMPLE.DByyyyy.PLOG,           <=== PLOG INPUT
//          DISP=OLD,UNIT=TAPE,VOL=SER=PLOGD1
//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X
//DDCARD    DD   *
ADARUN PROG=ADASAV,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
ADASAV RESTPLOG PLOGNUM=ppp,SYN1=1
/*

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

Top of page

z/VM

データセット DD 名 ストレージ 追加情報
アソシエータ DDASSORn ディスク  
データストレージ DDDATARn ディスク  
ワーク DDWORKR1
DDWORKR4 		ディスク Adabas ニュークリアスがアクティブでないときのみ必要
マルチプロテクションログ DDPLOGRn ディスク RESTORE および RESTONL
データベース／GCB ではオプション
マルチコマンドログ DDCLOGRn ディスク RESTORE および RESTONL
データベース／GCB ではオプション
リカバリログ（RLOG） DDRLOGR1 ディスク ADARAI の場合に必要
バックアップコピー DDSAVE1～8 テープ／ディスク SAVE 機能にのみ必要
デュアルコピー DDDUAL1～8 テープ／ディスク SAVE 機能でバックアップを 2 部作成する場合のみ必要
バックアップコピー（RESTORE 機能の入力） DDREST1～8 テープ／ディスク RESTORE および RESTONL
機能に必要
シーケンシャルプロテクションログ DDPLOG テープ／ディスク RESTONL および RESTPLOG 機能に必要
ADARUN パラメータ DDCARD ディスク／端末／リーダー オペレーションマニュアル
ADASAV パラメータ DDKARTE ディスク／端末／リーダー  
ADARUN メッセージ DDPRINT ディスク／端末／プリンタ メッセージおよびコード
ADASAV メッセージ DDDRUCK ディスク／端末／プリンタ メッセージおよびコード

注意:
RESTONL では、入力 SAVE テープとシーケンシャルプロテクションログは、DDREST1 を使用して連結できます。

ADASAV ジョブ制御の例（z/VM）

データベースのセーブ

DATADEF DDASSOR1,DSN=ADABASVv.ASSO,VOL=ASSOV1
DATADEF DDDATAR1,DSN=ADABASVv.DATA,VOL=DATAV1
DATADEF DDWORKR1,DSN=ADABASVv.WORK,VOL=WORKV1
DATADEF DDSAVE1,DSN=ADABASVv.COPY1,MODE=A
DATADEF DDDUAL1,DSN=ADABASVv.COPY2,MODE=A
DATADEF DDPRINT,DSN=ADASAV.DDPRINT,MODE=A
DATADEF DUMP,DUMMY
DATADEF DDDRUCK,DSN=ADASAV.DDDRUCK,MODE=A
DATADEF DDCARD,DSN=RUNSAV.CONTROL,MODE=A
DATADEF DDKARTE,DSN=ADASAV.CONTROL,MODE=A
ADARUN

RUNSAV CONTROL A1 の内容 

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

ADASAV CONTROL A1 の内容 

ADASAV SAVE TWOCOPIES

オンラインで作成された SAVE データセットからのファイルのリストア

DATADEF DDASSOR1,DSN=ADABASVv.ASSO,VOL=ASSOV1
DATADEF DDDATAR1,DSN=ADABASVv.DATA,VOL=DATAV1
DATADEF DDWORKR1,DSN=ADABASVv.WORK,VOL=WORKV1
DATADEF DDREST1,DSN=ADABASVv.SAVE,MODE=A
DATADEF DDPLOG,DSN=ADABASVv.SIBA,MODE=A
DATADEF DDPRINT,DSN=ADASAV.DDPRINT,MODE=A
DATADEF DUMP,DUMMY
DATADEF DDDRUCK,DSN=ADASAV.DDDRUCK,MODE=A
DATADEF DDCARD,DSN=RUNSAV.CONTROL,MODE=A
DATADEF DDKARTE,DSN=RESTONL.CONTROL,MODE=A
ADARUN

RUNSAV CONTROL A1 の内容 

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

RESTONL CONTROL A1 の内容 

ADASAV RESTONL FILES=2,PLOGNUM=ppp,SYN1=1

RESTONL 機能中断後のプロテクションログのリストア

DATADEF DDASSOR1,DSN=ADABASVv.ASSO,VOL=ASSOV1
DATADEF DDDATAR1,DSN=ADABASVv.DATA,VOL=DATAV1
DATADEF DDWORKR1,DSN=ADABASVv.WORK,VOL=WORKV1
DATADEF DDPLOG,DSN=ADABASVv.PLOG,MODE=A
DATADEF DDPRINT,DSN=ADASAV.DDPRINT,MODE=A
DATADEF DUMP,DUMMY
DATADEF DDDRUCK,DSN=ADASAV.DDDRUCK,MODE=A
DATADEF DDCARD,DSN=RUNSAV.CONTROL,MODE=A
DATADEF DDKARTE,DSN=RESTFILE.CONTROL,MODE=A
ADARUN

RUNSAV CONTROL A1 の内容 

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

RESTFILE CONTROL A1 の内容 

ADASAV RESTPLOG FILES=2,PLOGNUM=ppp,SYN1=1

オフラインで作成された SAVE データセットからのファイルのリストア

DATADEF DDASSOR1,DSN=ADABASVv.ASSO,VOL=ASSOV1
DATADEF DDDATAR1,DSN=ADABASVv.DATA,VOL=DATAV1
DATADEF DDWORKR1,DSN=ADABASVv.WORK,VOL=WORKV1
DATADEF DDREST1,DSN=ADABASVv.SAVE,MODE=A
DATADEF DDPRINT,DSN=ADASAV.DDPRINT,MODE=A
DATADEF DUMP,DUMMY
DATADEF DDDRUCK,DSN=ADASAV.DDDRUCK,MODE=A
DATADEF DDCARD,DSN=RUNSAV.CONTROL,MODE=A
DATADEF DDKARTE,DSN=RESTORE.CONTROL,MODE=A
ADARUN

RUNSAV CONTROL A1 の内容 

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

RESTORE CONTROL A1 の内容 

ADASAV RESTORE FMOVE=2

Top of page

VSE

ファイル 記号名 ストレージ 論理ユニット 情報
アソシエータ ASSORn ディスク 注 1 参照  
データストレージ DATARn ディスク 注 1 参照  
ワーク WORKR1 ディスク 注 1 参照 Adabas ニュークリアスがアクティブでないときのみ必要
マルチプロテクションログ PLOGRn ディスク   RESTORE および RESTONL データベース／GCB に対して任意に指定します。
マルチコマンドログ CLOGRn ディスク   RESTORE および RESTONL データベース／GCB に対して任意に指定します。
リカバリログ（RLOG） RLOGR1 ディスク   ADARAI の場合に必要
バックアップコピー SAVE1-8 テープ
ディスク 		SYS011-
SYS018
注 1 参照 		SAVE 機能にのみ必要
デュアルコピー DUAL1-8 テープ
ディスク 		SYS021-
SYS028
注 1 参照 		SAVE 機能でバックアップを 2 部作成する場合のみ必要
バックアップコピー（RESTORE 機能の入力） REST1-8 テープ
ディスク 		SYS011-
SYS018
注 1 参照 		RESTORE および RESTONL 機能にのみ必要
シーケンシャルプロテクションログ PLOG テープ
ディスク 		SYS010
注 1 参照 		RESTONL および RESTPLOG 機能に必要
ADARUN パラメータ SYSRDR CARD CARD リーダー
テープ
ディスク 		SYSRDR
SYS000
注 1 参照 		 
ADASAV パラメータ   リーダー SYSIPT  
ADARUN メッセージ   プリンタ SYSLST  
ADASAV メッセージ   プリンタ SYS009  

注意:

  1. すべてのプログラマ論理ユニットを使用できます。
  2. RESTONL では、入力 SAVE テープとシーケンシャルプロテクションログは、名前 REST1 を使用して連結できます。

ADASAV JCS の例（VSE）

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

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

例 メンバ
データベースのセーブ ADASAV.X
データベースのセーブ（出力コピーを 2 つ作成） ADASAVT.X
データベースのリストア ADASAVR.X
オンラインで作成された SAVE データセットからのファイルのリストア ADASAVRO.X
RESTONL 機能中断後のプロテクションログの
リストア 		ADASAVRP.X
オフラインで作成された SAVE データセットからのファイルのリストア ADASAVRF.X

データベースのセーブ

* $$ JOB JNM=ADASAV,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
// JOB ADASAV
*       SAVE THE ENTIRE DATABASE
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// ASSGN SYS011,TAPE
// PAUSE MOUNT LOAD SAVE FILE ON TAPE cuu
// TLBL SAVE1,'EXAMPLE.DByyyyy.SAVE'
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADASAV,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADASAV SAVE
/*
/&
* $$ EOJ

データベースのセーブ（出力コピーを 2 つ作成）

* $$ JOB JNM=ADASAVT,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
// JOB ADASAVT
*       SAVE THE ENTIRE DATABASE CREATING TWO COPIES OF THE OUTPUT
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// PAUSE MOUNT LOAD SAVE TAPES ON cu1 AND cu2
// ASSGN SYS011,TAPE
// TLBL SAVE1,'EXAMPLE.DByyyyy.SAVE'
// ASSGN SYS021,TAPE
// TLBL DUAL1,'EXAMPLE.DByyyyy.SAVE.COPY'
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADASAV,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADASAV SAVE TWOCOPIES
/*
/&
* $$ EOJ

データベースのリストア

* $$ JOB JNM=ADASAVR,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
// JOB ADASAVR
*       RESTORE THE ENTIRE DATABASE
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// ASSGN SYS011,TAPE
// PAUSE MOUNT LOAD SAVE FILE ON TAPE cuu
// TLBL REST1,'EXAMPLE.DByyyyy.SAVE'
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADASAV,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADASAV RESTORE OVERWRITE
/*
/&
* $$ EOJ

オンラインで作成された SAVE データセットからのファイルのリストア

* $$ JOB JNM=ADASAVRO,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
// JOB ADASAVRO
*       RESTORE FILES FROM SAVE DATA SETS CREATED ONLINE
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// PAUSE MOUNT LOAD SAVE FILE ON TAPE cu1 AND PLOG ON TAPE cu2
// ASSGN SYS011,TAPE
// TLBL REST1,'EXAMPLE.DByyyyy.SAVE'
// ASSGN SYS010,TAPE
// TLBL PLOG,'EXAMPLE.DByyyyy.PLOG5'
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADASAV,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADASAV RESTONL FILES=2,PLOGNUM=ppp,SYN1=1
/*
/&
* $$ EOJ

RESTONL 機能中断後のプロテクションログのリストア

* $$ JOB JNM=ADASAVRP,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
// JOB ADASAVRP
*       RESTORE THE PROTECTION LOG AFTER AN INTERRUPTED RESTONL
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// PAUSE MOUNT LOAD PLOG FILE ON TAPE cuu
// ASSGN SYS010,TAPE
// TLBL PLOG,'EXAMPLE.DByyyyy.PLOG5'
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADASAV,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADASAV RESTPLOG PLOGNUM=ppp,SYN1=1
/*
/&
* $$ EOJ

オフラインで作成された SAVE データセットからのファイルのリストア

* $$ JOB JNM=ADASAVRF,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
// JOB ADASAVRF
*       RESTORE A FILE TO ANY RABNS FROM AN OFFLINE SAVE
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// ASSGN SYS011,TAPE
// PAUSE MOUNT LOAD SAVE FILE ON TAPE cuu
// TLBL REST1,'EXAMPLE.DByyyyy.SAVE'
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADASAV,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADASAV RESTORE FMOVE=2
/*
/&
* $$ EOJ

Top of page

 www.softwareag.com  Copyright © Software AG 1971-2008. All rights reserved.  検索   索引   目次   |   PDF BOOKS   |   ホーム   上へ   戻る   次へ