//***** //** MONTH-END OUTPUT GENERATION //** //** PARMS NEEDED FOR THIS PROC: //** //* LDEST= PRINT DESTINATION/QUE E.G., LOCAL //* LHOLD= YES/NO //* LVDHOLD= YES/NO //* LR414H= YES/NO //* LVLNODE= DEVL/TEST/PROD //* RPTGEN= RPT GEN (GDG) //***** //DTSRMVD PROC //**** /* GEN A DUMMY RECORD FOR THE LABELS FILE 00001702 //DOESLBL1 EXEC PGM=IEBDG 00001801 //SYSPRINT DD SYSOUT=* 00001900 //LBLOUT DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE), 00002001 // UNIT=SYSDA, 00002100 // SPACE=(TRK,1), 00002202 // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00002300 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL01), 00002405 // DISP=SHR 00002505 //**** /* POPULATE THE LABELS WORK FILE 00003105 //DOESLBL2 EXEC PGM=IDCAMS 00003205 //SYSPRINT DD SYSOUT=* 00003305 //FILEIN DD DSN=&&TMP901, 00003405 // DISP=(OLD,DELETE,DELETE), 00003505 // UNIT=SYSDA 00003605 //DOESVRO1 DD DSN=&&LBL901, 00003705 // DISP=(NEW,PASS,DELETE), 00003805 // UNIT=SYSDA, 00003905 // SPACE=(8192,(1000,1000),RLSE), 00004005 // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00004105 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL02), 00004205 // DISP=SHR 00004305 //**** 00004705 //STEP0100 EXEC PGM=DTSBD800, OUTPUT GENERATION // COND=(0,LT), // REGION=0M //SYSOUT DD SYSOUT=* //SYSABOUT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //** //PARMIN DD DUMMY //** //ATLSTIN DD DUMMY //** //DTSFMSTR INCLUDE MEMBER=DTSIMSTR //DTSFVRI1 DD DSN=DOESTAX.&LVLNODE..SRTMONTH.RPT(&RPTGEN.), // DISP=SHR //** 00040001 //DOESVRO1 DD DSN=&&LBL901,DISP=(OLD,PASS,DELETE) 00100001 //** //DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, // AMP=('BUFNI=5,BUFND=10') //** //** EMPLOYER LIST //RPT123R1 DD SYSOUT=(Z,DTS123M1),HOLD=&LVDHOLD., // DEST=&LDEST. //** TRIAL BAL RPT //RPT305R1 DD SYSOUT=(Z,DTS305M1),HOLD=&LVDHOLD., // DEST=&LDEST. //** ACCT SUMMARY RPT //RPT306R1 DD SYSOUT=(Z,DTS306M1),HOLD=&LVDHOLD., // DEST=&LDEST. //** EMPLR ACCT CREDIT BAL RPT //RPT308R1 DD SYSOUT=(Z,DTS308M1),HOLD=&LVDHOLD., // DEST=&LDEST. //** FLD REP PYMNT TRX RPT //RPT311R1 DD SYSOUT=(Z,DTS311M1),HOLD=&LVDHOLD., // DEST=&LDEST. //** FLD REP TOTALS RPT //RPT311R2 DD SYSOUT=(Z,DTS311M2),HOLD=&LVDHOLD., // DEST=&LDEST. //** FLD REP TRX RPT //RPT312R1 DD SYSOUT=(Z,DTS312M1),HOLD=&LVDHOLD., // DEST=&LDEST. //** FLD REP TOTALS RPT //RPT312R2 DD SYSOUT=(Z,DTS312M2),HOLD=&LVDHOLD., // DEST=&LDEST. //** REIMBR SI EMPLRS PAST DUE //RPT313R1 DD SYSOUT=(Z,DTS313M1),HOLD=&LVDHOLD., // DEST=&LDEST. //** LIEN RELEASE CANDIDATES //RPT405R1 DD SYSOUT=(Z,DTS405M1),HOLD=&LVDHOLD., // DEST=&LDEST. //** LIEN RELEASE LETTER //RPT405R2 DD SYSOUT=(E,DTS405M2),HOLD=&LVDHOLD., // DEST=U@PRT155 //** PYMNT PLAN SATISFIED //RPT408R1 DD SYSOUT=(Z,DTS408M1),HOLD=&LVDHOLD., // DEST=&LDEST. //** OPEN APPEAL LST //RPT410R1 DD SYSOUT=(Z,DTS410M1),HOLD=&LVDHOLD., // DEST=&LDEST. //** STATEMENT OF ACCT (DEBIT MEMO-SM) //RPT414R1 DD SYSOUT=W, (UC-223) // DEST=U@PRT155, // HOLD=&LR414H. //** STATEMENT OF ACCT (W/ A PAGE 2) //RPT414R2 DD SYSOUT=W, // DEST=U@PRT155, // HOLD=&LR414H. //** COPY FOR DEPT. //** (NO LONGER PRODUCED IN THIS FORM 991125) //**RPT414R3 DD SYSOUT=I,DEST=LOCAL,HOLD=YES //** STATEMENT OF ACCT (SUMMARY RPT) //**RPT414R3 DD SYSOUT=Z, /* TURNS OUT TO BE USELESS IN THIS FORM. //** DEST=&LDEST., /* IN ZIP ORDER BUT NO ZIP SHOWN ON RPT. //** HOLD=&LHOLD. /* MORE USEFULL IN FLD REP/ZIP/EMPLYR # //** /* ORDER (010606) //** STATEMENT OF ACCT (SUMMARY RPT) //RPT414R3 DD DUMMY //RPT414R4 DD DUMMY //RPT414R5 DD DUMMY //** STATEMENT OF ACCT (CONTROL RPT) //RPT416R1 DD SYSOUT=(Z,DTS416M1),HOLD=&LVDHOLD., // DEST=&LDEST. //** COLLECTIONS SUMMARY RPT //RPT426R1 DD SYSOUT=(Z,DTS426M1),HOLD=&LVDHOLD., // DEST=&LDEST. //** TOTAL BAL DUE > $?? RPT //RPT429R1 DD SYSOUT=(Z,DTS429M1),HOLD=&LVDHOLD., /* COPIES=2, // DEST=&LDEST. //** MONTHLY TAX ACTIVITY SUMMARY //RPT440R1 DD SYSOUT=(Q,DTS440M1),HOLD=&LVDHOLD., // DEST=&LDEST. //** ASSIGNMENT SUMMARY (BY FLD REP) //RPT606R1 DD SYSOUT=(Z,DTS606M1),HOLD=&LVDHOLD., // DEST=&LDEST. //** ASSIGNMENT DETAIL (BY FLD REP) //RPT607R1 DD SYSOUT=(O,DTS607M1),HOLD=&LVDHOLD., // DEST=&LDEST. //** FLD ASSIGNMENT MANAGEMNT RPTS(DTL) //RPT609R1 DD SYSOUT=(Z,DTS609M1),HOLD=&LVDHOLD., // DEST=&LDEST. //** FLD ASSIGNMENT MANAGEMNT RPTS(SUM) //RPT609R2 DD SYSOUT=(Z,DTS609M2),HOLD=&LVDHOLD., // DEST=&LDEST. //** LMI NEW/INACTIVATED EMPLYRS (EXPORT) //RPT727R1 DD DSN=DOESTAX.&LVLNODE..RPT727,DISP=SHR //**RPT727R1 DD SYSOUT=*,DEST=LOCAL,HOLD=YES //** //** EMPLYRS W/A MISSING SIC //RPT792R1 DD SYSOUT=(Z,DTS792M1),HOLD=&LVDHOLD., // DEST=&LDEST. //** NO LONGER PRODUCED THIS WAY (05.17.01) //** PRINT LIEN RELEASES LABELS(5-LINE) //**RPT901R1 DD SYSOUT=(C,,6662),FCB=P662, //** DEST=&LDEST., //** HOLD=&LHOLD. //** UNUSUAL CONDITIONS ENCOUNTERED REPORT //RPT907R1 DD SYSOUT=(Z,DTS907M1),HOLD=&LVDHOLD., // DEST=&LDEST. //** UNUSUAL CONDITIONS ENCOUNTERED REPORT //RPT907R2 DD SYSOUT=Z, // DEST=&LDEST., // HOLD=&LHOLD. //** CONTROL REPORT SUMMARY //RPT980R1 DD SYSOUT=(Q,DTS980M1),HOLD=&LVDHOLD., // DEST=&LDEST. //** EXPORT CONTROL REPORTS //RPT991R1 DD SYSOUT=(Q,DTS991M1),HOLD=&LVDHOLD., // DEST=&LDEST. //** //DOESLBLP EXEC PGM=DOESLABL, /* PRINT DOES LABELS 00131001 // COND=(0,LT), 00140000 // REGION=4096K 00150000 //DOESVRI1 DD DSN=&&LBL901, 00150101 // DISP=(OLD,DELETE,DELETE) 00150201 //SYSOUT DD SYSOUT=* 00151000 //SYSABOUT DD SYSOUT=* 00152000 //SYSABEND DD SYSOUT=* 00153000 //CAIMRPTS DD SYSOUT=* 00154000 //DOESLBL1 DD SYSOUT=(C), 00155101 // FCB=P104, 00155201 // DEST=U@PRT155, 00155302 // HOLD=&LHOLD. 00155403 //**