//***** //* UI TAX ACCOUNTING SUMMARY EXTRACT. //***** //DTSUX306 PROC CHKONLY='N', // RUNTYPE=' ', // RPTGEN='+1' //********************************************************************** //STEP0100 EXEC PGM=DTSBD510, ACCOUNTING SUMMARY EXTRACT // COND=(0,LT), //* TIME=(10,00), // PARM='&RUNTYPE.,&CHKONLY.' //SYSOUT DD SYSOUT=* //CEEDUMP DD SYSOUT=* //SYSABEND DD SYSOUT=* //CAIMRPTS DD SYSOUT=* //DTSFMSTR INCLUDE MEMBER=DTSIMSTR //DTSFVRO1 DD DSN=DOESTAX.PROD.PER.RPT(&RPTGEN), // DISP=(,CATLG,DELETE), // SPACE=(16394,(3900,3900),RLSE), // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) //SYSIN DD DUMMY,DCB=BLKSIZE=80 //******************************************************************