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

388 lines
31 KiB
Plaintext

//***** 00010000
//* UI TAX ARCHIVE REPORTING 00030001
//* HANDLE BD800 RPT ONLY 00041000
//**** /* GEN A DUMMY RECORD FOR THE LABELS FILE 00212000
//DOESLBL1 EXEC PGM=IEBDG, 00213000
// COND=(0,LT) 00213100
//SYSPRINT DD SYSOUT=* 00214000
//LBLOUT DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE), 00215000
// UNIT=SYSDA, 00216000
// SPACE=(TRK,1), 00217000
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00218000
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSLBL01), 00219007
// DISP=SHR 00219100
//**** /* POPULATE THE LABELS WORK FILE 00219200
//DOESLBL2 EXEC PGM=IDCAMS, 00219300
// COND=(0,LT) 00219400
//SYSPRINT DD SYSOUT=* 00219500
//FILEIN DD DSN=&&TMP901, 00219600
// DISP=(OLD,DELETE,DELETE), 00219700
// UNIT=SYSDA 00219800
//DOESVRO1 DD DSN=&&LBL901, 00219900
// DISP=(NEW,PASS,DELETE), 00220000
// UNIT=SYSDA, 00220100
// SPACE=(8192,(1000,1000),RLSE), 00221000
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00222000
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSLBL02), 00223007
// DISP=SHR 00224000
//** 00225000
//STEP0990 EXEC PGM=DTSBD800, OUTPUT GENERATION 02270000
// COND=(0,LT) 02280000
//SYSOUT DD SYSOUT=* 02300000
//SYSABOUT DD SYSOUT=* 02310000
//SYSUDUMP DD SYSOUT=* 02320000
//SYSPRINT DD SYSOUT=* 02321000
//** 02330000
//DTSFVRI1 DD DSN=&&RPTOUT, 02340118
//*TSFVRI1 DD DSN=DOESTAX.DEVL.REPORTS, 02340218
// DISP=(OLD,PASS,DELETE), 02340318
//* DISP=SHR, 02340418
// UNIT=SYSDA, 02340515
// SPACE=(8192,(1000,1000),RLSE), 02340615
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 02340715
//** 02341000
//DOESVRO1 DD DSN=&&LBL901,DISP=(OLD,PASS,DELETE) 02342000
//** 02350000
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 02351000
//* 02352000
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 02360000
// AMP=('BUFNI=5,BUFND=10') 02370000
//** 02381000
//PARMIN DD DUMMY 02390000
//** 02400000
//ATLSTIN DD DUMMY 02410000
//** GEN. 1ST LETTER, REG. CYCLE A 02420000
//RPT102R1 DD SYSOUT=I,HOLD=YES, 02430002
// DEST=&LDEST. 02440000
//** GEN. 2ND LETTER, REG. CYCLE A 02450000
//RPT103R1 DD SYSOUT=I,HOLD=YES, 02460004
// DEST=&LDEST. 02470000
//** LTR TO OUT-OF-STATE AGENCY 02480000
//RPT105R1 DD SYSOUT=I,HOLD=YES, 02490004
// DEST=&LDEST. 02500000
//** NOT LIABLE LTR 02510000
//RPT108R1 DD SYSOUT=I,HOLD=YES, 02511005
// DEST=&LDEST. 02521000
//** MISSING CONTRIB & WAGE RPTS 02522000
//RPT109R1 DD SYSOUT=I,HOLD=YES, 02523005
// DEST=&LDEST. 02524000
//** HOUSEHOLD - ANNUAL VERS. 02524100
//RPT109R2 DD SYSOUT=I,HOLD=YES, 02524205
// DEST=&LDEST. 02524300
//** NOTICE OF SUBJECTIVETY 02525000
//RPT112R1 DD SYSOUT=I,HOLD=YES, 02526005
// DEST=&LDEST. 02527000
//** HOUSEHOLD - ANNUAL VERS. 02527100
//RPT112R2 DD SYSOUT=I,HOLD=YES, 02527205
// DEST=&LDEST. 02527300
//** WELCOME LETTER 02528000
//RPT115R1 DD SYSOUT=I,HOLD=YES, 02529005
// DEST=&LDEST. 02529100
//** NEW/REACT/ACTIVATED EMPLYRS 02529200
//RPT116R1 DD SYSOUT=*, 02529300
// DEST=&LDEST. 02529400
//** (FOR FUTURE USE) 02529500
//RPT116R2 DD SYSOUT=Z, 02529600
// DEST=&LDEST. 02529700
//** GEN INACT LTR 02529800
//RPT117R1 DD SYSOUT=W,HOLD=YES, 02529906
// DEST=&LDEST. 02530000
//** REPORT INACTVATN LTR 02530100
//RPT117R2 DD SYSOUT=I, 02530206
// DEST=&LDEST., 02530300
// HOLD=&LVDHOLD. 02530400
//** '8 QTRS NONE' CANCELLATION LTR 02530500
//RPT117R3 DD SYSOUT=I,HOLD=YES, 02530605
// DEST=&LDEST. 02530700
//** FR-500 EMPLYR REG. 02530800
//RPT127R1 DD SYSOUT=I,HOLD=YES, 02530905
// DEST=&LDEST. 02531000
//RPT128R1 DD SYSOUT=I, 02531100
// DEST=&LDEST., 02531200
// HOLD=&LVDHOLD. 02531300
//** WEB REGISTRATIONS 02531400
//RPT128R2 DD SYSOUT=I, 02531500
// DEST=&LDEST., 02531600
// HOLD=&LVDHOLD. 02531700
//** WEB REGISTRATIONS 02531800
//RPT128R3 DD SYSOUT=I, 02531900
// DEST=&LDEST., 02532000
// HOLD=&LVDHOLD. 02532100
//** WEB REGISTRATIONS 02532200
//RPT128R4 DD SYSOUT=I, 02532300
// DEST=&LDEST., 02532400
// HOLD=&LVDHOLD. 02532500
//** HOUSEHOLD REQUESTS 02532600
//RPT131R1 DD SYSOUT=I,HOLD=YES, 02532705
// DEST=&LDEST. 02532800
//** HOUSEHOLD CONFIRMATIONS 02532900
//RPT131R2 DD SYSOUT=W,HOLD=YES, 02533006
// DEST=&LDEST. 02533100
//** ICESA DEPOSIT TRANSMITTAL EMAIL REPORT 02533200
//RPT202R1 DD DSN=DOESTAX.&LVLNODE..R202.ICESA,DISP=SHR 02533400
//** 02534100
//** ACCOUNT NUMBER CHANGED 02534200
//RPT204R1 DD SYSOUT=O,HOLD=&LVDHOLD., 02534300
// DEST=&LDEST. 02534400
//** BATCH CONTROL SUMMARY 02534500
//RPT301R1 DD SYSOUT=*, 02534600
// DEST=&LDEST. 02534700
//** ACCT DTL RPT (GL) 02534800
//RPT302R1 DD SYSOUT=*, 02534900
// DEST=&LDEST. 02535000
//** REVENUE REFUND VOUCHER 02535100
//RPT303R1 DD SYSOUT=O,HOLD=&LVDHOLD., 02535200
// DEST=&LDEST. 02535300
//** LETTER FOR 303R1 (309R1 FORM) 02535400
//RPT303R2 DD SYSOUT=I,HOLD=YES, 02535505
// DEST=&LDEST. 02535600
//** 02535700
//** 02536500
//** STATEMENT OF ACCT (CREDIT MEMO-SM) 02536600
//** (DAILY - NORMALLY A CICS DIRECT PRINT) 02536700
//RPT309R1 DD SYSOUT=W,HOLD=YES, 02536806
// DEST=&LDEST. 02536900
//** STATEMENT OF ACCT (CREDIT MEMO-PC) 02537000
//RPT309R2 DD SYSOUT=X,HOLD=YES, 02537106
// DEST=&LDEST. 02537200
//** STATEMENT OF ACCT (CONTROL RPT) 02537300
//RPT310R1 DD SYSOUT=Z, 02537400
// DEST=&LDEST. 02537500
//** ESTIMATED REPORT LETTER 02537600
//RPT316R1 DD SYSOUT=W,HOLD=YES, 02537706
// DEST=&LDEST. 02537800
//** TAXABLE WAGE ERROR LETTER 02537900
//RPT317R1 DD SYSOUT=W, 02538006
// DEST=&LDEST., 02538100
// HOLD=YES 02538205
//** ELECTRONIC PAYMENT LISTING 1 02538300
//RPT318R1 DD SYSOUT=O, 02538400
// DEST=&LDEST., 02538500
// HOLD=&LVDHOLD. 02538600
//** ELECTRONIC PAYMENT LISTING 2 02538700
//RPT318R2 DD SYSOUT=O, 02538800
// DEST=&LDEST., 02538900
// HOLD=&LVDHOLD. 02539000
//** DAILY RETURNED CHECKS 02539100
//RPT319R1 DD SYSOUT=W, 02539206
// DEST=&LDEST., 02539300
// HOLD=YES 02539405
//** DAILY DEBIT REPORT 02539500
//RPT319R2 DD SYSOUT=Z, 02539600
// DEST=&LDEST., 02539700
// HOLD=&LVDHOLD. 02539800
//** DAILY ADMIN ASSESS BILLS 02539900
//RPT325R1 DD SYSOUT=W, 02540006
// DEST=&LDEST., 02540100
// HOLD=YES 02540205
//** DAILY ADMIN ASSESS ALL WAGES 02540300
//RPT325R2 DD SYSOUT=Z, 02540400
// DEST=&LDEST., 02540500
// HOLD=&LVDHOLD. 02540600
//** DAILY ADMIN ASSESS TOLERATED 02540700
//RPT325R3 DD SYSOUT=Z, 02540800
// DEST=&LDEST., 02540900
// HOLD=&LVDHOLD. 02541000
//** DAILY ADMIN ASSESS NOT TOLERATED 02541100
//RPT325R4 DD SYSOUT=Z, 02541200
// DEST=&LDEST., 02541300
// HOLD=&LVDHOLD. 02541400
//** DAILY ADMIN ASSESS NO WAGES 02541500
//RPT325R5 DD SYSOUT=Z, 02541600
// DEST=&LDEST., 02541700
// HOLD=&LVDHOLD. 02541800
//** LIEN FORMS (& R3?) 02541900
//RPT403R1 DD SYSOUT=I,HOLD=YES, 02542005
// DEST=&LDEST. 02542100
//** LICENSE LIEN LTR 02542200
//** (NO LONGER PRODUCED IN THIS FORM 991025) 02542300
//RPT403R2 DD SYSOUT=*,DEST=LOCAL,HOLD=YES 02542400
//**RPT403R2 DD SYSOUT=I, 02542500
//** DEST=&LDEST. 02542600
//** LIEN PKG PRTED CONTROL RPT 02542700
//RPT404R1 DD SYSOUT=*, 02542800
// DEST=&LDEST. 02542900
//** STATEMENT OF ACCT (DEBIT MEMO-SM) 02543000
//** (DAILY - NORMALLY A CICS DIRECT PRINT) 02543100
//RPT414R1 DD SYSOUT=W,HOLD=YES, 02543206
// DEST=&LDEST. 02543300
//** STATEMENT OF ACCT (PAGE 2) 02543400
//RPT414R2 DD SYSOUT=W,HOLD=&LVDHOLD., 02543506
// DEST=&LDEST. 02543600
//** COPY FOR DEPT. 02543700
//** (NO LONGER PRODUCED IN THIS FORM 991125) 02543800
//RPT414R3 DD SYSOUT=*,DEST=LOCAL,HOLD=YES 02543900
//RPT414R4 DD SYSOUT=*,DEST=LOCAL,HOLD=YES 02544011
//RPT414R5 DD SYSOUT=*,DEST=LOCAL,HOLD=YES 02544113
//RPT414R6 DD SYSOUT=*,DEST=LOCAL,HOLD=YES 02544213
//**RPT414R3 DD SYSOUT=I, 02544313
//** DEST=&LDEST. 02544413
//** STATEMENT OF ACCT- OVERNIGHT 02544513
//** (DAILY - NORMALLY A CICS DIRECT PRINT) 02544613
//RPT415R1 DD SYSOUT=W, 02544713
// DEST=&LDEST., 02544813
// HOLD=YES 02544913
//** STATEMENT OF ACCT (CONTROL RPT) 02545013
//RPT416R1 DD SYSOUT=Z, 02545113
// DEST=&LDEST., 02545213
// HOLD=&LVDHOLD. 02545313
//** FIRST DELINQUENCY 02545413
//RPT417R1 DD SYSOUT=W,HOLD=YES, 02545513
// DEST=&LDEST. 02545613
//** FINAL DELINQUENCY 02545713
//RPT421R1 DD SYSOUT=W,HOLD=YES, 02545813
// DEST=&LDEST. 02545913
//** MISSING RPTS ESTB LST (FCO) 02546013
//** ACCTS REC AUDIT TRAIL RPT 02546113
//** INCR IN TOTAL BAL DUE 02546213
//RPT424R1 DD SYSOUT=*, 02546313
// DEST=&LDEST. 02546413
//** MISSING RPTS ESTB LST (FCO) 02546513
//RPT425R1 DD SYSOUT=*, 02546613
// DEST=&LDEST. 02546713
//** ACCTS REC AUDIT TRAIL RPT 02546813
//RPT432R1 DD SYSOUT=*, 02546913
// DEST=&LDEST. 02547013
//** SI SECOND NOTICE 02547113
//RPT433R1 DD SYSOUT=W,HOLD=YES, 02547213
// DEST=&LDEST. 02547313
//** SI SECOND NOTICE 02547413
//RPT433R2 DD SYSOUT=W,HOLD=YES, 02547513
// DEST=&LDEST. 02547613
//** DEFERRED PAYMENT CONTRACT 02547713
//RPT434R1 DD SYSOUT=I,HOLD=YES, 02547813
// DEST=&LDEST. 02547913
//** RATE DISCREPANCY LST 02548013
//RPT436R1 DD SYSOUT=W,HOLD=&LVDHOLD., 02548113
// DEST=&LDEST. 02548213
//** RATE DISCREPANCY LST 02548313
//RPT502R1 DD SYSOUT=*, 02548413
// DEST=&LDEST. 02548513
//** RATE NOTICES (632) 02548613
//RPT503R1 DD SYSOUT=W,HOLD=YES, 02548713
// DEST=&LDEST. 02548813
//** RATE NOTICES (632A) 02548913
//RPT503R2 DD SYSOUT=W,HOLD=&LVDHOLD., 02549013
// DEST=&LDEST. 02549113
//** FLD ASSGN RPT - TAX DATA 02549213
//RPT603R1 DD SYSOUT=*, 02549313
// HOLD=&LVDHOLD., 02549413
// DEST=&LDEST. 02549513
//** FLD ASSGN RPT - TAX DATA - TEXT 02549613
//*RPT603R1 DD DSN=DOESTAX.&LVLNODE..R603.EXP, 02549713
//* DISP=(NEW,CATLG,CATLG), 02549813
//* DISP=(OLD,KEEP,KEEP), 02549913
//* UNIT=SYSDA, 02550013
//* SPACE=(CYL,(10,5),RLSE), 02550113
//* DCB=(RECFM=FB,LRECL=134,BLKSIZE=26800) 02550213
//** 02550313
//** FLD ASSGN RPT - WAGE DATA 02550413
//RPT604R1 DD SYSOUT=*, 02550513
// HOLD=&LVDHOLD., 02550613
// DEST=&LDEST. 02550713
//** FLD ASSGN RPT - WAGE DATA - TEXT 02550813
//*RPT604R1 DD DSN=DOESTAX.&LVLNODE..R604.EXP, 02550913
//** DISP=(NEW,CATLG,CATLG), 02551013
//* DISP=(OLD,KEEP,KEEP), 02551113
//* UNIT=SYSDA, 02551213
//* SPACE=(CYL,(10,5),RLSE), 02551313
//* DCB=(RECFM=FB,LRECL=134,BLKSIZE=26800) 02551413
//** 02551513
//*EWG960F1 DD DSN=UI.PROD.DOCS.EWG960F1,DISP=SHR 02551613
//DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR 02551713
//DTSFNAME DD DSN=DOESTAX.&MSTNODE..VSAM.WAGE.NAME,DISP=SHR 02551813
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 02551913
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 02552013
//** 02552113
//REPORTF1 DD DSN=&&REPORTF1, 02552213
// DISP=(,PASS,DELETE), 02552313
// UNIT=SYSDA, 02552413
// SPACE=(18000,(100,100),RLSE), 02552513
// DCB=(RECFM=FB,LRECL=18,BLKSIZE=18000) 02552613
//** 02552713
//** AUDIT SURVEY CARDS 02552813
//RPT608R1 DD SYSOUT=W,HOLD=&LVDHOLD., 02552913
// DEST=&LDEST. 02553013
//** AUDIT NOTIFICATION LETTER 02553114
//RPT615R1 DD SYSOUT=I, 02553214
// DEST=&LDEST., 02553314
// HOLD=&LVDHOLD. 02553414
//** FUTA CERTIFICATION 02553513
//RPT711R1 DD SYSOUT=I, 02553613
// DEST=&LDEST., 02553713
// HOLD=&LVDHOLD. 02553813
//** REQ FOR FEIN LETTER 02553913
//** (DISTINCT FROM RPT903R1) 02554013
//RPT712R1 DD SYSOUT=W,HOLD=YES, 02554113
// DEST=&LDEST. 02554213
//** TICKLER TRIG OVERDUE LST 02554313
//** TRIG DTE<=(CURRDTE-#PARMDAYS) 02554413
//RPT724R1 DD SYSOUT=*, 02554513
// DEST=&LDEST. 02554613
//** LMI MISSING EMPLOYEE LTR 02554713
//RPT726R1 DD SYSOUT=W,HOLD=&LVDHOLD., 02554813
// DEST=&LDEST. 02554913
//** EMPLOYER WAGE REQUEST 02555013
//RPT751R1 DD SYSOUT=X,HOLD=&LVDHOLD., 02555113
// DEST=&LDEST. 02555213
//** /* NO LONGER PRODUCED THIS WAY (05/17/01) 02555313
//** /* EXTRACT & PRINT LABELS (8-LINE) 02555413
//**RPT901R1 DD SYSOUT=(C,,6662),FCB=P663, 02555513
//** DEST=&LDEST. 02555613
//** WAGE RPTS (UC-30/FORM 30) DAILY 02555713
//RPT902R1 DD SYSOUT=I,HOLD=YES, 02555813
// DEST=&LDEST. 02555913
//** SUR TAX (UC-30/FORM 30) DAILY 02556013
//RPT902R2 DD SYSOUT=I,HOLD=YES, 02556113
// DEST=&LDEST. 02556213
//** 02556313
//DTS902F1 DD DUMMY 02556413
//** REQ FOR FED ID (UC-643) 02556513
//RPT903R1 DD SYSOUT=W,HOLD=YES, 02556613
// DEST=&LDEST. 02556713
//** DAILY UPDATE CONTROL REPORT 02556813
//RPT904R1 DD SYSOUT=Q,HOLD=&LVDHOLD., 02556913
// DEST=&LDEST. 02557013
//** ONLINE RECOVERY/RESTART REPORT 02557113
//RPT905R1 DD SYSOUT=Q,HOLD=&LVDHOLD., 02557213
// DEST=&LDEST. 02557313
//** ONLINE UPDT LOG PARMS (MUST BE HERE*) 02557413
//PARM906 DD DUMMY,DCB=BLKSIZE=80 02557513
//** ONLINE UPDT LOG RPT 02557613
//** (DAILY -NORMALLY AN 'ON REQ' RPT 02557713
//RPT906R1 DD SYSOUT=Q,HOLD=&LVDHOLD., 02557813
// DEST=&LDEST. 02557913
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT 02558013
//RPT907R1 DD SYSOUT=Q,HOLD=&LVDHOLD., 02558113
// DEST=&LDEST. 02558213
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT 02558313
//RPT907R2 DD SYSOUT=Q,HOLD=&LVDHOLD., 02558413
// DEST=&LDEST. 02558513
//** WAGE RPTS (UC-30H/HOUSEHOLD) YRLY 02558613
//DTS910F1 DD DUMMY 02558713
//** UC-30 NOTICES - HOUSEHOLD DAILY 02558813
//RPT910R1 DD SYSOUT=I,HOLD=YES, 02558913
// DEST=&LDEST. 02559013
//** UC-30 NOTICES - HOUSEHOLD DAILY AFTER 2006 02559113
//RPT910R2 DD SYSOUT=I,HOLD=YES, 02559213
// DEST=&LDEST. 02559313
//** CONTROL REPORT SUMMARY 02559413
//RPT980R1 DD SYSOUT=Q,COPIES=2, 02559513
// DEST=&LDEST. 02559613
//** EXPORT CONTROL REPORTS 02559713
//RPT991R1 DD SYSOUT=Q, 02559813
// DEST=&LDEST. 02559913
//** 02560013
//DOESLBLP EXEC PGM=DOESLABL, /* PRINT DOES LABELS 02560113
// COND=(0,LT), 02560213
// REGION=4096K 02560313
//DOESVRI1 DD DSN=&&LBL901, 02560413
// DISP=(OLD,DELETE,DELETE) 02560513
//SYSOUT DD SYSOUT=* 02560613
//SYSABOUT DD SYSOUT=* 02560713
//SYSABEND DD SYSOUT=* 02560813
//CAIMRPTS DD SYSOUT=* 02560913
//DOESLBL1 DD SYSOUT=(C),FCB=P104, 02561013
// DEST=&LDEST. 02562000
//** 02570000