■  データセットをコピー・移動するサンプル


その1~コピーの例

  //COPY    JOB  CLASS=x,MSGCLASS=x,REGION=4M
  //STEP01  EXEC PGM=ADRDSSU
  //SYSPRINT DD  SYSOUT=*
  //FROM     DD UNIT=3390,DISP=SHR,VOL=SER=DEV001
  //TO       DD UNIT=3390,DISP=SHR,VOL=SER=DEV002
  //SYSIN    DD *
    COPY    DATASET(INCLUDE(SYS1.**)) -
            INDDNAME(FROM) OUTDDNAME(TO)
  /*


その2~移動の例マニュアルより記載)

  //MOVER    JOB  CLASS=x,MSGCLASS=x,REGION=4M
  //STEP1    EXEC PGM=ADRDSSU
  //SYSPRINT DD   SYSOUT=*
  //SYSIN    DD   *
   COPY DATASET(         -
     INCLUDE(USER1.**)   -
     BY(MULTI,=,NO))     -
     INDYNAM (338000)    -
     OUTDYNAM(338001)    -
     DELETE
  /*
この例では、338000 というラベルのソース・ボリュームのデータ・セットのうち 第 1 レベル修飾子が USER1 のすべての単一ボリューム・データ・セットを、 338001 というラベルのターゲット・ボリュームにコピーするデータ・セット・コ ピー操作を示します。選択されたすべてのソース・データ・セットは削除されま す。コピーされる非 SMS、非 VSAM データ・セットはカタログされません。



BEFORE PAGE

TOP PAGE