Files
DUTAS/Procs/DTSUX306
2025-07-21 11:20:11 -04:00

23 lines
823 B
Plaintext

//*****
//* 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
//******************************************************************