//FUSERCH2 JOB ,'CREUSER',CLASS=F,MSGCLASS=W,NOTIFY=FSUPP17 //JOBCAT DD DSN=stepcat,DISP=SHR //DEL EXEC PGM=IEFBR14 //DD1 DD DSN=SYS1.UADS.OUTLIST,DISP=(OLD,DELETE), // UNIT=SYSDA,VOL=SER=volser //DD2 DD DSN=SYS1.UADS.SUMMARY,DISP=(OLD,DELETE), // UNIT=SYSDA,VOL=SER=volser //DD3 DD DSN=SYS1.UADS.SUMMAR2,DISP=(OLD,DELETE), // UNIT=SYSDA,VOL=SER=volser //STEP01 EXEC PGM=IKJEFT01 //SYSUADS DD DSN=SYS1.UADS,DISP=SHR, // UNIT=DASD,VOL=SER=serial <- CHANGE //SYSLBCS DD DSN=SYS1.BRODCAST,DISP=SHR, // UNIT=DASD,VOL=SER=serial <- CHANGE //SYSTSPRT DD DSN=SYS1.UADS.OUTLIST,DISP=(,KEEP), // UNIT=SYSDA,VOL=SER=volser,SPACE=(TRK,(10,10)), // DCB=(RECFM=FB,LRECL=133,BLKSIZE=13300) //SYSTSIN DD * ACCOUNT L (*) END /* //STEP02 EXEC PGM=IKJEFT01 //SYSPROC DD DSN=procedure library,DISP=SHR //SYSTSPRT DD SYSOUT=* //IN1 DD DSN=SYS1.UADS.OUTLIST,DISP=SHR,UNIT=DASD,VOL=SER=volser //OUTF DD DSN=SYS1.UADS.SUMMARY,DISP=(,KEEP), // UNIT=SYSDA,VOL=SER=volser,SPACE=(TRK,(10,10),RLSE), // DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120) //OUT2 DD DSN=SYS1.UADS.SUMMAR2,DISP=(,KEEP), // UNIT=SYSDA,VOL=SER=volser,SPACE=(TRK,(10,10),RLSE), // DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120) //SYSTSIN DD * %UA /*