IEBGENER
//WRITE JOB CLASS=A,NOTIFY=FORM49,MSGCLASS=H,MSGLEVEL=(1,1)
//**************************************************************
//* WRITE SYSUT1 TO SYSUT2
//**************************************************************
//STEP1 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD *
ASSSSSSSSSSSSSSSSSSSSSSSSSSSS
DSEEEEEEEEEEEEEEEEEEEEEEEEEE
/*
//SYSUT2 DD DSN=FORM49.BAT.DATA.GENER,DISP=(MOD,CATLG),
// UNIT=3390,SPACE=(TRK,(2,2)),
// DCB=(LRECL=80,RECFM=FB,BLKSIZE=27920)
//SYSIN DD *