IEBGENER

順次データセットの複写。SYSINがDUMMYだと そのまま複写される。SYSUT2のDCB指定を省略するとSYSUT1に 合わせられる。

//STEP01  EXEC PGM=IEBGENER
//SYSUT1    DD DSN=FROM.DATASET.NAME,DISP=SHR,
//             UNIT=3390,VOL=SER=VOLSER
//SYSUT2    DD DSN=TO.DATASET.NAME,DISP=(NEW,KEEP),
//             UNIT=3390,VOL=SER=VOLSER
//SYSPRINT  DD SYSOUT=*
//SYSIN     DD DUMMY

指定桁位置部分のみの複写。 この例では10桁目からの40文字が複写される。

//STEP01  EXEC PGM=IEBGENER
//SYSUT1    DD DSN=FROM.DATASET.NAME,DISP=SHR,
//             UNIT=3390,VOL=SER=VOLSER
//SYSUT2    DD DSN=TO.DATASET.NAME,DISP=(NEW,KEEP),
//             UNIT=3390,VOL=SER=VOLSER,
//             SPACE=(CYL,(1,1)),
//             DCB=(DSORG=PS,RECFM=FB,LRECL=40,BLKSIZE=4000)
//SYSPRINT  DD SYSOUT=*
//SYSIN     DD *
  GENERATE     MAXFLDS=1
  RECORD       FIELD=(40,10,,1)
/*

トップメニューへ