DFSMSdss (DF/DSS)

データセットの複写。ありのままを複写するためには ALLD(*) ALLXの指定が必要。


//STEP01  EXEC PGM=ADRDSSU
//SYSPRINT  DD SYSOUT=*
//INVOL1    DD UNIT=3390,DISP=SHR,VOL=SER=INVOL1
//EXVOL1    DD UNIT=3390,DISP=SHR,VOL=SER=EXVOL1
//SYSIN     DD *
  COPY DATASET( -
         INCLUDE(DATASET.NAME) -
         ) -
       INDD(INVOL1) OUTDD(EXVOL1) -
       ALLD(*) ALLX SHR
/*

データセットの改名複写。


//STEP01  EXEC PGM=ADRDSSU
//SYSPRINT  DD SYSOUT=*
//INVOL1    DD UNIT=3390,DISP=SHR,VOL=SER=INVOL1
//EXVOL1    DD UNIT=3390,DISP=SHR,VOL=SER=EXVOL1
//SYSIN     DD *
  COPY DATASET( -
         INCLUDE(OLD.DATASET.NAME) -
         ) -
       RENAMEU(( -
         OLD.DATA.SET.NAME, -
         NEW.DATA.SET.NAME -
         )) -
       INDD(INVOL1) OUTDD(EXVOL1) -
       ALLD(*) ALLX SHR
/*

データセットの接頭部（プリフィクス）改名複写。 この例ではOLDPFX.DATASET.NAMEがNEWPFX.DATASET.NAMEに改名されて 複写される。


//STEP01  EXEC PGM=ADRDSSU
//SYSPRINT  DD SYSOUT=*
//INVOL1    DD UNIT=3390,DISP=SHR,VOL=SER=INVOL1
//EXVOL1    DD UNIT=3390,DISP=SHR,VOL=SER=EXVOL1
//SYSIN     DD *
  COPY DATASET( -
         INCLUDE(OLDPFX.DATASET.NAME) -
         ) -
       RENAMEU(NEWPFX) -
       INDD(INVOL1) OUTDD(EXVOL1) -
       ALLD(*) ALLX SHR
/*

トップメニューへ

inserted by FC2 system