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

406 lines
32 KiB
Plaintext

//***** 00010000
//* UI TAX DAILY UPDATE. 00020000
//* HANDLE BD800 RPT ONLY 00030072
//**** /* GEN A DUMMY RECORD FOR THE LABELS FILE 00040094
//DOESLBL1 EXEC PGM=IEBDG, 00050099
// COND=(0,LT) 00060099
//SYSPRINT DD SYSOUT=* 00070094
//LBLOUT DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE), 00080094
// UNIT=SYSDA, 00090094
// SPACE=(TRK,1), 00100094
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00110094
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL01), 00120094
// DISP=SHR 00130094
//**** /* POPULATE THE LABELS WORK FILE 00140094
//DOESLBL2 EXEC PGM=IDCAMS, 00150099
// COND=(0,LT) 00160099
//SYSPRINT DD SYSOUT=* 00170094
//FILEIN DD DSN=&&TMP901, 00180094
// DISP=(OLD,DELETE,DELETE), 00190094
// UNIT=SYSDA 00200094
//DOESVRO1 DD DSN=&&LBL901, 00210094
// DISP=(NEW,PASS,DELETE), 00220094
// UNIT=SYSDA, 00230094
// SPACE=(8192,(1000,1000),RLSE), 00240094
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00250094
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL02), 00260094
// DISP=SHR 00270094
//** 00280094
//STEP0990 EXEC PGM=DTSBD800, OUTPUT GENERATION 00290006
// COND=(0,LT) 00300040
//SYSOUT DD SYSOUT=* 00310006
//SYSABOUT DD SYSOUT=* 00320006
//SYSUDUMP DD SYSOUT=* 00330006
//SYSPRINT DD SYSOUT=* 00340065
//** 00350006
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00360099
//** 00370099
//DTSFVRI1 DD DSN=DOESTAX.&LVLNODE..SRTDAILY.RPT(&S0910.),DISP=SHR 00380076
//** 00390094
//DOESVRO1 DD DSN=&&LBL901,DISP=(OLD,PASS,DELETE) 00400094
//** 00410019
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00420019
// AMP=('BUFNI=5,BUFND=10') 00430019
//** 00440094
//PARMIN DD DUMMY 00450019
//** 00460019
//ATLSTIN DD DUMMY 00470019
//** GEN. 1ST LETTER, REG. CYCLE A 00480019
//RPT102R1 DD SYSOUT=I, 00490019
// DEST=&LDEST., 00500099
// HOLD=&PRTHOLD. 00501099
//** GEN. 2ND LETTER, REG. CYCLE A 00510019
//RPT103R1 DD SYSOUT=I, 00520019
// DEST=&LDEST., 00530099
// HOLD=&PRTHOLD. 00531099
//** LTR TO OUT-OF-STATE AGENCY 00540019
//RPT105R1 DD SYSOUT=I, 00550019
// DEST=&LDEST., 00560099
// HOLD=&PRTHOLD. 00561099
//** NOT LIABLE LTR 00570019
//RPT108R1 DD SYSOUT=W, 00580019
// HOLD=&PRTHOLD., 00581099
// DEST=U@PRT155 00590019
//** MISSING CONTRIB & WAGE RPTS 00600019
//RPT109R1 DD SYSOUT=I, 00610019
// DEST=&LDEST., 00620099
// HOLD=&PRTHOLD. 00621099
//** HOUSEHOLD - ANNUAL VERS. 00630099
//RPT109R2 DD SYSOUT=I, 00640099
// DEST=&LDEST., 00650099
// HOLD=&PRTHOLD. 00651099
//** NOTICE OF SUBJECTIVETY 00660019
//RPT112R1 DD SYSOUT=I, 00670019
// DEST=&LDEST., 00680099
// HOLD=&PRTHOLD. 00681099
//** HOUSEHOLD - ANNUAL VERS. 00690099
//RPT112R2 DD SYSOUT=I, 00700099
// DEST=&LDEST., 00710099
// HOLD=&PRTHOLD. 00711099
//** WELCOME LETTER 00720019
//RPT115R1 DD SYSOUT=I, 00730064
// DEST=&LDEST., 00740099
// HOLD=&PRTHOLD. 00741099
//** NEW/REACT/ACTIVATED EMPLYRS 00750019
//RPT116R1 DD SYSOUT=(V,DTS116D1),HOLD=&LVDHOLD., 00760099
// DEST=&LDEST. 00770019
//** (FOR FUTURE USE) 00780019
//RPT116R2 DD SYSOUT=Z, 00790019
// DEST=&LDEST, 00800099
// HOLD=&PRTHOLD. 00801099
//** GEN INACT LTR 00810019
//RPT117R1 DD SYSOUT=W, 00820019
// HOLD=&PRTHOLD., 00821099
// DEST=U@PRT155 00830019
//** '8 QTRS NONE' CANCELLATION LTR 00840082
//RPT117R2 DD SYSOUT=I, 00850099
// HOLD=&PRTHOLD., 00851099
// DEST=&LDEST. 00860082
//** '8 QTRS NONE' CANCELLATION LTR 00870099
//RPT117R3 DD SYSOUT=I, 00880099
// HOLD=&PRTHOLD., 00881099
// DEST=&LDEST. 00890099
//** FR-500 EMPLYR REG. 00900019
//RPT127R1 DD SYSOUT=I, 00910058
// HOLD=&PRTHOLD., 00911099
// DEST=&LDEST. 00920048
//** (FOR FUTURE USE) 00921099
//RPT128R1 DD SYSOUT=Z, 00922099
// DEST=&LDEST, 00923099
// HOLD=&PRTHOLD. 00924099
//** (FOR FUTURE USE) 00925099
//RPT128R2 DD SYSOUT=Z, 00926099
// DEST=&LDEST, 00927099
// HOLD=&PRTHOLD. 00928099
//** (FOR FUTURE USE) 00929099
//RPT128R3 DD SYSOUT=Z, 00929199
// DEST=&LDEST, 00929299
// HOLD=&PRTHOLD. 00929399
//** (FOR FUTURE USE) 00929499
//RPT128R4 DD SYSOUT=Z, 00929599
// DEST=&LDEST, 00929699
// HOLD=&PRTHOLD. 00929799
//** HOUSEHOLD REQUESTS 00930099
//RPT131R1 DD SYSOUT=I, 00940099
// HOLD=&PRTHOLD., 00941099
// DEST=&LDEST. 00950099
//** HOUSEHOLD CONFIRMATIONS 00960099
//RPT131R2 DD SYSOUT=W, 00970099
// HOLD=&PRTHOLD., 00971099
// DEST=U@PRT155 00980099
//* 00980199
//** WEB REGISTRATION ERROR REPORT 00980299
//RPT140R1 DD SYSOUT=Z,HOLD=&LVDHOLD., 00980399
// DEST=LOCAL 00980499
//** 00980599
//** WEB REGISTRATION ERROR REPORT FOR DOWNLOAD 00980699
//RPT140R2 DD DSN=DOESTAX.&MSTNODE..WEBREG.ERR, 00980799
//** DISP=(,CATLG,CATLG), 00980899
// DISP=(OLD,KEEP,KEEP), 00980999
// UNIT=SYSDA, 00981099
// SPACE=(29400,(100,100),RLSE), 00981199
// DCB=(RECFM=FB,LRECL=98,BLKSIZE=29400) 00981299
//* 00981399
//** ICESA DEPOSIT TRANSMITTAL EMAIL REPORT 00981499
//RPT202R1 DD DSN=DOESTAX.&LVLNODE..R202.ICESA,DISP=SHR 00982099
//** DEPOSIT TRANSMITTAL FOR WEB 00983099
//DTSX202F DD DSN=DOESTAX.&LVLNODE..DEPOSIT.X202EXP, 00984099
// DISP=(OLD,KEEP,KEEP), 00985099
// UNIT=SYSDA, 00986099
// SPACE=(CYL,(10,5),RLSE), 00987099
// DCB=(RECFM=FB,LRECL=55,BLKSIZE=5500) 00988099
//** ACCOUNT NUMBER CHANGED 00990099
//RPT204R1 DD DSN=DOESTAX.PROD.RPT204,DISP=SHR 01000099
//** DEST=&LDEST. 01010099
//** BATCH CONTROL SUMMARY 01020019
//RPT301R1 DD SYSOUT=(V,DTS301D1),HOLD=&LVDHOLD., 01030099
// DEST=&LDEST. 01040019
//** ACCT DTL RPT (GL) 01050019
//RPT302R1 DD SYSOUT=(V,DTS302D1),HOLD=&LVDHOLD., 01060099
// DEST=&LDEST. 01070083
//** REVENUE REFUND VOUCHER 01080059
//RPT303R1 DD SYSOUT=O, 01090099
// HOLD=&PRTHOLD., 01091099
// DEST=&LDEST. 01100019
//** LETTER FOR 303R1 (309R1 FORM) 01110093
//RPT303R2 DD SYSOUT=(V,DTS303D2),HOLD=&LVDHOLD., 01120099
// DEST=&LDEST. 01130093
//** CFO REFUND EXPORT FILE 01141099
//RPT303R3 DD DSN=DOESTAX.&LVLNODE..FTP.REFUND.X303EXP, 01142099
//* DISP=(NEW,CATLG,CATLG), 01143099
// DISP=(OLD,KEEP,KEEP), 01144099
// UNIT=SYSDA, 01145099
// SPACE=(CYL,(10,5),RLSE), 01146099
// DCB=(RECFM=FB,LRECL=750,BLKSIZE=7500) 01147099
//** 01148099
//** STATEMENT OF ACCT (CREDIT MEMO-SM) 01149099
//** (DAILY - NORMALLY A CICS DIRECT PRINT) 01150070
//RPT309R1 DD SYSOUT=W, 01160019
// HOLD=&PRTHOLD., 01161099
// DEST=U@PRT155 01170019
//** STATEMENT OF ACCT (CREDIT MEMO-PC) 01180019
//RPT309R2 DD SYSOUT=*, 01190099
// HOLD=&PRTHOLD., 01191099
// DEST=&LDEST. 01200019
//** ESTIMATED REPORT LETTER 01210069
//RPT316R1 DD SYSOUT=W, 01220086
// HOLD=&PRTHOLD., 01221099
// DEST=U@PRT155 01230069
//** TAXABLE WAGE ERROR LETTER 01240099
//RPT317R1 DD SYSOUT=W, 01250099
// DEST=U@PRT155, 01260099
// HOLD=&PRTHOLD. 01270099
//** ELECTRONIC PAYMENT LISTING 1 01280099
//RPT318R1 DD SYSOUT=O, 01290099
// DEST=&LDEST., 01300099
// HOLD=&PRTHOLD. 01310099
//** ELECTRONIC PAYMENT LISTING 2 01320099
//RPT318R2 DD SYSOUT=O, 01330099
// DEST=&LDEST., 01340099
// HOLD=&PRTHOLD. 01350099
//** DAILY RETURNED CHECKS 01360099
//RPT319R1 DD SYSOUT=W, 01370099
// DEST=U@PRT155 01380099
//* HOLD=&PRTHOLD. 01390099
//** DAILY DEBIT REPORT 01400099
//RPT319R2 DD SYSOUT=Z, 01410099
// DEST=&LDEST. 01420099
//* HOLD=&PRTHOLD. 01430099
//** SI ADMIN ASSESSMENT LETTER 01431099
//RPT325R1 DD SYSOUT=W, 01432099
//* HOLD=YES 01433099
// DEST=U@PRT155 01433199
//* HOLD=&PRTHOLD. 01434099
//** SI ADMIN ASSESSMENT RPT2 01435099
//RPT325R2 DD SYSOUT=Z, 01436099
// DEST=&LDEST. 01437099
//* HOLD=&PRTHOLD. 01438099
//** SI ADMIN ASSESSMENT RPT3 01439099
//RPT325R3 DD SYSOUT=Z, 01439199
// DEST=&LDEST. 01439299
//* HOLD=&PRTHOLD. 01439399
//** SI ADMIN ASSESSMENT RPT4 01439499
//RPT325R4 DD SYSOUT=Z, 01439599
// DEST=&LDEST. 01439699
//* HOLD=&PRTHOLD. 01439799
//** SI ADMIN ASSESSMENT RPT5 01440199
//RPT325R5 DD SYSOUT=Z, 01440299
// DEST=&LDEST. 01440399
//* HOLD=&PRTHOLD. 01440499
//** LIEN FORMS (& R3?) 01441019
//RPT403R1 DD SYSOUT=I, 01450019
// HOLD=&PRTHOLD., 01451099
// DEST=&LDEST. 01460019
//** LICENSE LIEN LTR 01470019
//** (NO LONGER PRODUCED IN THIS FORM 991025) 01480071
//RPT403R2 DD SYSOUT=*,DEST=U@PRT65,HOLD=YES 01490085
//**RPT403R2 DD SYSOUT=I, 01500071
//** DEST=&LDEST. 01510071
//** LIEN PKG PRTED CONTROL RPT 01520019
//*PT404R1 DD SYSOUT=(V,DTS404D1),HOLD=&LVDHOLD., 01530099
//RPT404R1 DD SYSOUT=Z, 01540099
// DEST=&LDEST. 01550099
//** STATEMENT OF ACCT (DEBIT MEMO-SM) 01560099
//** (DAILY - NORMALLY A CICS DIRECT PRINT) 01570099
//RPT414R1 DD SYSOUT=W, 01580099
// HOLD=&PRTHOLD., 01581099
// DEST=U@PRT155 01590099
//** STATEMENT OF ACCT (PAGE 2) 01600099
//RPT414R2 DD SYSOUT=W, 01610099
// HOLD=&PRTHOLD., 01611099
// DEST=U@PRT155 01620099
//** COPY FOR DEPT. 01630099
//** (NO LONGER PRODUCED IN THIS FORM 991125) 01640099
//RPT414R3 DD SYSOUT=*,DEST=U@PRT65,HOLD=YES 01650099
//**RPT414R3 DD SYSOUT=I, 01660099
//** DEST=&LDEST. 01670099
//** STATEMENT OF ACCT OVERNIGHT PRINTING 01671099
//RPT414R4 DD DSN=DOESTAX.PROD.R414.EXCL.RPT4,DISP=SHR 01671199
//RPT414R5 DD DSN=DOESTAX.PROD.R414.EXCL.RPT5,DISP=SHR 01671399
//RPT414R6 DD DSN=DOESTAX.PROD.R414.EXCL.RPT6,DISP=SHR 01671599
//** STATEMENT OF ACCT OVERNIGHT PRINTING 01671699
//RPT415R1 DD SYSOUT=W, 01672099
// HOLD=&PRTHOLD., 01672199
// DEST=U@PRT155 01673099
//** STATEMENT OF ACCT OVERNIGHT REPORT 01674099
//RPT416R1 DD SYSOUT=Z, 01675099
// HOLD=&PRTHOLD., 01675199
// DEST=&LDEST. 01676099
//** INCR IN TOTAL BAL DUE 01680099
//RPT424R1 DD SYSOUT=(V,DTS424D1),HOLD=&LVDHOLD., 01690099
// DEST=&LDEST. 01700099
//** MISSING RPTS ESTB LST (FCO) 01710099
//RPT425R1 DD SYSOUT=(V,DTS425D1),HOLD=&LVDHOLD., 01720099
// DEST=&LDEST. 01730019
//** ACCTS REC AUDIT TRAIL RPT 01740019
//RPT432R1 DD SYSOUT=(V,DTS432D1),HOLD=&LVDHOLD., 01750099
// DEST=&LDEST. 01760019
//** DEFERRED PAYMENT CONTRACT 01770027
//RPT434R1 DD SYSOUT=I,COPIES=3, 01780099
// HOLD=&PRTHOLD., 01781099
// DEST=&LDEST. 01790027
//** RATE DISCREPANCY LST 01800019
//RPT502R1 DD SYSOUT=(V,DTS502D1),HOLD=&LVDHOLD., 01810099
// DEST=&LDEST. 01820019
//** RATE NOTICES (632) 01830039
//RPT503R1 DD SYSOUT=W, 01840039
// HOLD=&PRTHOLD., 01841099
// DEST=U@PRT155 01850019
//** RATE NOTICES (632A) 01860039
//RPT503R2 DD SYSOUT=W, 01870039
// HOLD=&PRTHOLD., 01871099
// DEST=U@PRT155 01880029
//** FLD ASSGN RPT - TAX DATA 01890026
//RPT603R1 DD SYSOUT=(V,DTS603D1),HOLD=&LVDHOLD., 01900099
// DEST=&LDEST. 01910019
//** FLD ASSGN RPT - WAGE DATA 01920026
//RPT604R1 DD SYSOUT=(V,DTS604D1),HOLD=&LVDHOLD., 01930099
// DEST=&LDEST. 01940026
//DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR 01950099
//DTSFNAME DD DSN=DOESTAX.&MSTNODE..VSAM.WAGE.NAME,DISP=SHR 01960099
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 01970051
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 01980051
//** 01990051
//REPORTF1 DD DSN=&&REPORTF1, 02000099
// DISP=(,PASS,DELETE), 02010099
// UNIT=SYSDA, 02020099
// SPACE=(18000,(100,100),RLSE), 02030099
// DCB=(RECFM=FB,LRECL=18,BLKSIZE=18000) 02040099
//** 02050099
//** AUDIT SURVEY CARDS 02060099
//RPT608R1 DD SYSOUT=W, 02070019
// HOLD=&PRTHOLD., 02071099
// DEST=U@PRT155 02080019
//** AUDIT NOTIFICATION LETTER 02080199
//RPT615R1 DD SYSOUT=I, 02080299
// HOLD=&PRTHOLD., 02080399
// DEST=&LDEST. 02080499
//** FUTA CERTIFICATION OVERNIGHT PRINTING 02081099
//RPT711R1 DD SYSOUT=I, 02082099
// HOLD=&PRTHOLD., 02082199
// DEST=&LDEST. 02083099
//** REQ FOR FEIN LETTER 02090067
//** (DISTINCT FROM RPT903R1) 02100067
//RPT712R1 DD SYSOUT=W, 02110099
// HOLD=&PRTHOLD., 02111099
// DEST=U@PRT155 02120067
//** TICKLER TRIG OVERDUE LST 02130019
//** TRIG DTE<=(CURRDTE-#PARMDAYS) 02140019
//RPT724R1 DD SYSOUT=(V,DTS724D1),HOLD=&LVDHOLD., 02150099
// DEST=&LDEST. 02160019
//** LMI MISSING EMPLOYEE LTR 02170099
//RPT726R1 DD SYSOUT=W, 02180019
// HOLD=&PRTHOLD., 02181099
// DEST=U@PRT155 02190019
//** EMPLOYER WAGE REQUEST 02200099
//RPT751R1 DD SYSOUT=I, 02210099
// HOLD=&PRTHOLD., 02211099
// DEST=&LDEST. 02220099
//** /* NO LONGER PRODUCED THIS WAY (05/17/01) 02230099
//** /* EXTRACT & PRINT LABELS (8-LINE) 02240099
//**RPT901R1 DD SYSOUT=(C,,6662),FCB=P663, 02250099
//** DEST=&LDEST. 02260099
//** WAGE RPTS (UC-30/FORM 30) DAILY 02270099
//RPT902R1 DD SYSOUT=I, 02280099
// HOLD=&PRTHOLD., 02281099
// DEST=&LDEST. 02290099
//** SUR TAX (UC-30/FORM 30) DAILY 02291099
//RPT902R2 DD SYSOUT=I, 02292099
// HOLD=&PRTHOLD., 02293099
// DEST=&LDEST. 02294099
//** WAGE RPTS (UC-30/FORM 30) QTRLY 02300099
//DTS902F1 DD DUMMY 02310099
//** REQ FOR FED ID (UC-643) 02320099
//RPT903R1 DD SYSOUT=W, 02330099
// HOLD=&PRTHOLD., 02331099
// DEST=U@PRT155 02340099
//** DAILY UPDATE CONTROL REPORT 02350099
//RPT904R1 DD SYSOUT=Q,HOLD=&PRTHOLD., 02360099
// DEST=&LDEST. 02370099
//** ONLINE RECOVERY/RESTART REPORT 02380099
//RPT905R1 DD SYSOUT=Q,HOLD=&PRTHOLD., 02390099
// DEST=&LDEST. 02400099
//** ONLINE UPDT LOG PARMS (MUST BE HERE*) 02410099
//PARM906 DD DUMMY,DCB=BLKSIZE=80 02420099
//** ONLINE UPDT LOG RPT 02430099
//** (DAILY -NORMALLY AN 'ON REQ' RPT 02440099
//RPT906R1 DD SYSOUT=Q,HOLD=YES, 02450099
// DEST=&LDEST. 02460099
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT 02470099
//RPT907R1 DD SYSOUT=Q,HOLD=&PRTHOLD., 02480099
// DEST=&LDEST. 02490099
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT 02500099
//RPT907R2 DD SYSOUT=Q,HOLD=&PRTHOLD., 02510099
// DEST=&LDEST. 02520099
//** WAGE RPTS (UC-30H/HOUSEHOLD) YRLY 02530099
//DTS910F1 DD DUMMY 02540099
//** UC-30 NOTICES - HOUSEHOLD DAILY 02550099
//RPT910R1 DD SYSOUT=I, 02560099
// HOLD=&PRTHOLD., 02561099
// DEST=&LDEST. 02570099
//** ADMIN ASSESSMENT UC-30 NOTICES - HOUSEHOLD DAILY 02571099
//RPT910R2 DD SYSOUT=I, 02572099
// HOLD=&PRTHOLD., 02573099
// DEST=&LDEST. 02574099
//** CONTROL REPORT SUMMARY 02580099
//RPT980R1 DD SYSOUT=Q,COPIES=2, 02590099
// HOLD=&PRTHOLD., 02591099
// DEST=&LDEST. 02600099
//** EXPORT CONTROL REPORTS 02610099
//RPT991R1 DD SYSOUT=Q, 02620099
// HOLD=&PRTHOLD., 02621099
// DEST=&LDEST. 02630099
//** 02640099
//DOESLBLP EXEC PGM=DOESLABL, /* PRINT DOES LABELS 02650099
// COND=(0,LT), 02660099
// REGION=4096K 02670099
//DOESVRI1 DD DSN=&&LBL901, 02680099
// DISP=(OLD,DELETE,DELETE) 02690099
//SYSOUT DD SYSOUT=* 02700099
//SYSABOUT DD SYSOUT=* 02710099
//SYSABEND DD SYSOUT=* 02720099
//CAIMRPTS DD SYSOUT=* 02730099
//DOESLBL1 DD SYSOUT=(C),FCB=P104, 02740099
// DEST=U@PRT155 02750099
//** 02760094