DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
179
Procs/DTSRMVD
Normal file
179
Procs/DTSRMVD
Normal file
@ -0,0 +1,179 @@
|
||||
//*****
|
||||
//** 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
|
||||
//**
|
||||
Reference in New Issue
Block a user