IEBGENER usage examples

• Copy datasets

//STEPCOPY EXEC PGM=IEBGENER
//SYSUT1   DD DSN=G1SG00AT.OLDFILE1,DISP=SHR
//SYSUT2   DD DSN=G1SG00AT.NEWFILE,
//         DISP=(NEW,CATLG,DELETE),
//         UNIT=SYSDA,
//         SPACE=(CYL(2,2),RLSE),
//         DCB=(LRECL=80,BLKSIZE=0,RECFM=FB,DSORG=PS),
//         MGMTCLAS=TSONORM
//SYSPRINT DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSIN    DD DUMMY
Index

• Concatenate datasets

//STEPCONC EXEC PGM=IEBGENER
//SYSUT1   DD DSN=G1SG00AT.OLDFILE1,DISP=SHR
//         DD DSN=G1SG00AT.OLDFILE2,DISP=SHR
//         DD DSN=G1SG00AT.OLDFILE3,DISP=SHR
//SYSUT2   DD DSN=G1SG00AT.NEWFILE,
//         DISP=(NEW,CATLG,DELETE),
//         UNIT=SYSDA,
//         SPACE=(CYL(2,2),RLSE),
//         DCB=(LRECL=80,BLKSIZE=0,RECFM=FB,DSORG=PS),
//         MGMTCLAS=TSONORM
//SYSPRINT DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSIN    DD DUMMY
Index

• Empty existing files

//STEPEMPT EXEC PGM=IEBGENER
//SYSUT1   DD DUMMY,
//         DCB=(LRECL=80,BLKSIZE=0,RECFM=FB,DSORG=PS)
//SYSUT2   DD DSN=G1SG00AT.EMPTFILE,
//         DISP=(OLD)
//SYSPRINT DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSIN    DD DUMMY
Index

• Allocate empty files

//STEPEMPT EXEC PGM=IEBGENER
//SYSUT1   DD DUMMY,
//         DCB=(LRECL=80,BLKSIZE=0,RECFM=FB,DSORG=PS)
//SYSUT2   DD DSN=G1SG00AT.EMPTFILE,
//         DISP=(NEW,CATLG,DELETE),
//         UNIT=SYSDA,
//         SPACE=(CYL(2,2),RLSE),
//         DCB=(LRECL=80,BLKSIZE=0,RECFM=FB,DSORG=PS),
//         MGMTCLAS=TSONORM
//SYSPRINT DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSIN    DD DUMMY
Index
• Create a PDS from sequential dataset

//CREATPDS EXEC PGM=IEBGENER
//SYSUT1   DD DSN=MY.SEQ.FILE.LIB,DISP=SHR
//SYSUT2   DD DSN= MY.PDS.FILE.LIB,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSIN    DD *
GEN1  GENERATE MAXNAME=4,MAXGPS=3
MEM1  MEMBER  NAME=JOBCARD
GRP1  RECORD   IDENT=(8,'//* NJOB',1),
MEM2  MEMBER  NAME=JESCARDS
GRP2  RECORD   IDENT=(8,'//* NJES',1),
MEM3  MEMBER  NAME=JCLCARDS
GRP3  RECORD   IDENT=(7,'* TOP *',1),
MEM4  MEMBER  NAME=RPTDATA
GRP4  RECORD   IDENT=(8,'*BOTTOM*',1)
Index

• Copy CMS file to disk having data in first 35 characters

//COPYSTEP EXEC PGM=IEBGENER
//SYSUT1   DD DSN=<file to be copied>,DISP=SHR
//SYSUT2   DD DSN=<target file name>,DISP=OLD
//SYSPRINT DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSIN    DD *
  GENERATE MAXFIELDS=1
  RECORD FIELDS=(35,1,,1)
Index
• Copy file to disk after inserting an identifier

//COPYSTEP EXEC PGM=IEBGENER
//SYSUT1   DD DSN=<file to be copied>,DISP=SHR
//SYSUT2   DD DSN=<target file name>,DISP=OLD
//SYSPRINT DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSIN    DD *
  GENERATE MAXFIELDS=2,MAXLITS=7
  RECORD FIELDS=(7,'USC1280',,1),FIELD=(80,1,,8)