IEBCOPY

区分データセットのメンバー複写。

//STEP01  EXEC PGM=IEBCOPY
//INDD01    DD DSN=FROM.DATASET.NAME.A,DISP=SHR,
//             UNIT=3390,VOL=SER=VOLSER
//INDD02    DD DSN=FROM.DATASET.NAME.B,DISP=SHR,
//             UNIT=3390,VOL=SER=VOLSER
//EXDD01    DD DSN=TO.DATASET.NAME,DISP=SHR,
//             UNIT=3390,VOL=SER=VOLSER
//SYSUT3    DD UNIT=SYSDA,SPACE=(CYL,(20,5))
//SYSUT4    DD UNIT=SYSDA,SPACE=(CYL,(20,5))
//SYSPRINT  DD SYSOUT=*
//SYSIN     DD *
  COPY INDD=INDD01,OUTDD=EXDD01
  SELECT MEMBER=((MEMBER01,,R))
  SELECT MEMBER=((MEMBER02,,R))
  SELECT MEMBER=((MEMBER03,,R))
  COPY INDD=INDD02,OUTDD=EXDD01
  SELECT MEMBER=((MEMBER01,MEMBER04))
  SELECT MEMBER=((MEMBER02,MEMBER05))
  SELECT MEMBER=((MEMBER03,MEMBER06))
/*

Tips

複写に失敗しても戻りコードは00になるので注意が必要。 IEB1098Iメッセージを確認するとよい。

トップメニューへ