//***** 00010000 //* UI TAX DAILY UPDATE. 00030099 //* HANDLE BD800 RPT ONLY 00041099 //* PARMS NEEDED FOR THIS PROC: 00044099 //* - LDEST= PRINT DESTINATION/QUE E.G., LOCAL 00046099 //* - LHOLD= YES/NO 00047099 //* - LVLNODE= DEVL/TEST/PROD 00048099 //* - S0910= RPT GEN (GDG) 00049099 //**** 00180099 //**** /* GEN A DUMMY RECORD FOR THE LABELS FILE 00212099 //DOESLBL1 EXEC PGM=IEBDG, 00213099 // COND=(0,LT) 00213199 //SYSPRINT DD SYSOUT=* 00214099 //LBLOUT DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE), 00215099 // UNIT=SYSDA, 00216099 // SPACE=(TRK,1), 00217099 // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00218099 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL01), 00219099 // DISP=SHR 00219199 //**** /* POPULATE THE LABELS WORK FILE 00219299 //DOESLBL2 EXEC PGM=IDCAMS, 00219399 // COND=(0,LT) 00219499 //SYSPRINT DD SYSOUT=* 00219599 //FILEIN DD DSN=&&TMP901, 00219699 // DISP=(OLD,DELETE,DELETE), 00219799 // UNIT=SYSDA 00219899 //DOESVRO1 DD DSN=&&LBL901, 00219999 // DISP=(NEW,PASS,DELETE), 00220099 // UNIT=SYSDA, 00220199 // SPACE=(8192,(1000,1000),RLSE), 00221099 // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00222099 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL02), 00223099 // DISP=SHR 00224099 //**** 00225099 //STEP0990 EXEC PGM=DTSBD800, OUTPUT GENERATION 02270006 // COND=(0,LT) 02280040 //SYSOUT DD SYSOUT=* 02300006 //SYSABOUT DD SYSOUT=* 02310006 //SYSUDUMP DD SYSOUT=* 02320006 //SYSPRINT DD SYSOUT=* 02321065 //** 02330006 //DTSFVRI1 DD DSN=DOESTAX.&LVLNODE..SRTDAILY.RPT(&S0910.),DISP=SHR 02340076 //** 02341099 //DOESVRO1 DD DSN=&&LBL901,DISP=(OLD,PASS,DELETE) 02342099 //** 02350019 //DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 02360019 // AMP=('BUFNI=5,BUFND=10') 02370019 //** 02381099 //PARMIN DD DUMMY 02390019 //** 02400019 //ATLSTIN DD DUMMY 02410019 //** GEN. 1ST LETTER, REG. CYCLE A 02420019 //RPT102R1 DD SYSOUT=I, 02430019 // DEST=&LDEST., 02440088 // HOLD=&LHOLD. 02441088 //** GEN. 2ND LETTER, REG. CYCLE A 02450019 //RPT103R1 DD SYSOUT=I, 02460019 // DEST=&LDEST., 02461088 // HOLD=&LHOLD. 02471088 //** LTR TO OUT-OF-STATE AGENCY 02480019 //RPT105R1 DD SYSOUT=I, 02490019 // DEST=&LDEST., 02491088 // HOLD=&LHOLD. 02492088 //** NOT LIABLE LTR 02510019 //RPT108R1 DD SYSOUT=W, 02511019 // DEST=U@PRT155, 02512088 // HOLD=&LHOLD. 02513088 //** MISSING CONTRIB & WAGE RPTS 02522019 //RPT109R1 DD SYSOUT=I, 02523019 // DEST=&LDEST., 02523188 // HOLD=&LHOLD. 02523288 //** HOUSEHOLD - ANNUAL VERS. 02523399 //RPT109R2 DD SYSOUT=I, 02523499 // DEST=&LDEST., 02523599 // HOLD=&LHOLD. 02523699 //** NOTICE OF SUBJECTIVETY 02525019 //RPT112R1 DD SYSOUT=I, 02526019 // DEST=&LDEST., 02526188 // HOLD=&LHOLD. 02526288 //** HOUSEHOLD - ANNUAL VERS. 02526399 //RPT112R2 DD SYSOUT=I, 02526499 // DEST=&LDEST., 02526599 // HOLD=&LHOLD. 02526699 //** WELCOME LETTER 02528019 //RPT115R1 DD SYSOUT=I, 02529064 // DEST=&LDEST., 02529188 // HOLD=&LHOLD. 02529288 //** NEW/REACT/DEACTIVATED EMPLYRS 02529594 //RPT116R1 DD SYSOUT=Z, 02529619 // DEST=&LDEST., 02529788 // HOLD=&LHOLD. 02529888 //** (FOR FUTURE USE) 02529919 //RPT116R2 DD SYSOUT=Z, 02530019 // DEST=&LDEST., 02530188 // HOLD=&LHOLD. 02530288 //** GENRC/DEMAND/'8 QTRS 0' INACTVATN LTR 02530494 //RPT117R1 DD SYSOUT=W, 02530519 // DEST=U@PRT155, 02530688 // HOLD=&LHOLD. 02530788 //** FR-500 EMPLYR REG. 02531419 //RPT127R1 DD SYSOUT=I, 02531558 // DEST=&LDEST., 02531688 // HOLD=&LHOLD. 02531788 //** HOUSEHOLD REQUESTS 02531899 //RPT131R1 DD SYSOUT=I, 02531999 // DEST=&LDEST., 02532099 // HOLD=&LHOLD. 02532199 //** HOUSEHOLD CONFIRMATIONS 02532299 //RPT131R2 DD SYSOUT=W, 02532399 // DEST=U@PRT155, 02532499 // HOLD=&LHOLD. 02532599 //** BATCH CONTROL SUMMARY 02532619 //RPT301R1 DD SYSOUT=Z, 02532719 // DEST=&LDEST., 02532888 // HOLD=&LHOLD. 02532988 //** ACCT DTL RPT (GL) 02533019 //RPT302R1 DD SYSOUT=E, 02533183 // DEST=U@PRT155, 02533288 // HOLD=&LHOLD. 02533388 //** REVENUE REFUND VOUCHER 02533459 //RPT303R1 DD SYSOUT=O, 02533572 // DEST=&LDEST., 02533688 // HOLD=&LHOLD. 02533788 //** LETTER FOR 303R1 (309R1 FORM) 02533898 //RPT303R2 DD SYSOUT=O, 02533998 // DEST=&LDEST., 02534098 // HOLD=&LHOLD. 02534198 //** STATEMENT OF ACCT (CREDIT MEMO-SM) 02534219 //** (DAILY - NORMALLY A CICS DIRECT PRINT) 02534370 //RPT309R1 DD SYSOUT=W, 02534419 // DEST=U@PRT155, 02534588 // HOLD=&LHOLD. 02534688 //** STATEMENT OF ACCT (CREDIT MEMO-PC) 02534719 //RPT309R2 DD SYSOUT=I, 02534819 // DEST=&LDEST., 02534988 // HOLD=&LHOLD. 02535088 //** STATEMENT OF ACCT (CONTROL RPT) 02535119 //RPT310R1 DD SYSOUT=Z, 02535219 // DEST=&LDEST., 02535388 // HOLD=&LHOLD. 02535488 //** ESTIMATED REPORT LETTER 02535569 //RPT316R1 DD SYSOUT=W, 02535686 // DEST=U@PRT155, 02535788 // HOLD=&LHOLD. 02535888 //** LIEN FORMS (& R3?) 02535919 //RPT403R1 DD SYSOUT=I, 02536019 // DEST=&LDEST., 02536188 // HOLD=&LHOLD. 02536288 //** LICENSE LIEN LTR 02536319 //** (NO LONGER PRODUCED IN THIS FORM 991025) 02536471 //RPT403R2 DD SYSOUT=*,DEST=U@PRT65,HOLD=YES 02536585 //**RPT403R2 DD SYSOUT=I, 02536671 //** DEST=&LDEST., 02536788 //** HOLD=&LHOLD. 02536888 //** LIEN PKG PRTED CONTROL RPT 02536919 //RPT404R1 DD SYSOUT=Z, 02537019 // DEST=&LDEST., 02537188 // HOLD=&LHOLD. 02537288 //** STATEMENT OF ACCT (DEBIT MEMO-SM) 02537319 //** (DAILY - NORMALLY A CICS DIRECT PRINT) 02537429 //RPT414R1 DD SYSOUT=W, 02537519 // DEST=U@PRT155, 02537688 // HOLD=&LHOLD. 02537788 //** STATEMENT OF ACCT (PAGE 2) 02537885 //RPT414R2 DD SYSOUT=W, 02537973 // DEST=U@PRT155, 02538088 // HOLD=&LHOLD. 02538188 //** COPY FOR DEPT. 02538385 //** (NO LONGER PRODUCED IN THIS FORM 991125) 02538485 //**RPT414R3 DD SYSOUT=I, 02538585 //** DEST=&LDEST., 02538688 //** HOLD=&LHOLD. 02538788 //** SUMMARY FOR DEPT. 02538988 //RPT414R3 DD SYSOUT=Z, 02539089 // DEST=&LDEST., 02539188 // HOLD=&LHOLD. 02539288 //** STATEMENT OF ACCT (CONTROL RPT) 02539488 //RPT416R1 DD SYSOUT=Z, 02539588 // DEST=&LDEST., 02539688 // HOLD=&LHOLD. 02539788 //** INCR IN TOTAL BAL DUE 02539988 //RPT424R1 DD SYSOUT=Q,COPIES=2, 02540093 // DEST=&LDEST., 02540188 // HOLD=&LHOLD. 02540288 //** MISSING RPTS ESTB LST (FCO) 02540488 //RPT425R1 DD SYSOUT=Z, 02540588 // DEST=&LDEST., 02540688 // HOLD=&LHOLD. 02540788 //** ACCTS REC AUDIT TRAIL RPT 02540988 //RPT432R1 DD SYSOUT=Z, 02541088 // DEST=&LDEST., 02541188 // HOLD=&LHOLD. 02541288 //** DEFERRED PAYMENT CONTRACT 02541488 //RPT434R1 DD SYSOUT=I,COPIES=3, 02541599 // DEST=&LDEST., 02541688 // HOLD=&LHOLD. 02541788 //** RATE DISCREPANCY LST 02541988 //RPT502R1 DD SYSOUT=Z, 02542088 // DEST=&LDEST., 02542188 // HOLD=&LHOLD. 02542288 //** RATE NOTICES (632) 02542488 //RPT503R1 DD SYSOUT=W, 02542588 // DEST=U@PRT155, 02542688 // HOLD=&LHOLD. 02542788 //** RATE NOTICES (632A) 02542988 //RPT503R2 DD SYSOUT=W, 02543088 // DEST=U@PRT155, 02543188 // HOLD=&LHOLD. 02543288 //** FLD ASSGN RPT - TAX DATA 02543488 //RPT603R1 DD SYSOUT=Q, 02543596 // DEST=&LDEST., 02543688 // HOLD=&LHOLD. 02543788 //** FLD ASSGN RPT - WAGE DATA 02543988 //RPT604R1 DD SYSOUT=Q, 02544096 // DEST=&LDEST., 02544188 // HOLD=&LHOLD. 02544288 //EWG960F1 DD DSN=UI.PROD.DOCS.EWG960F1,DISP=SHR 02544488 //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 02544588 //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 02544688 //** 02544788 //** AUDIT SURVEY CARDS 02544888 //RPT608R1 DD SYSOUT=W, 02544988 // DEST=U@PRT155, 02545088 // HOLD=&LHOLD. 02545188 //** REQ FOR FEIN LETTER 02545388 //** (DISTINCT FROM RPT903R1) 02545488 //RPT712R1 DD SYSOUT=W, 02545599 // DEST=U@PRT155, 02545688 // HOLD=&LHOLD. 02545788 //** TICKLER TRIG OVERDUE LST 02545988 //** TRIG DTE<=(CURRDTE-#PARMDAYS) 02546088 //RPT724R1 DD SYSOUT=Z, 02546188 // DEST=&LDEST., 02546288 // HOLD=&LHOLD. 02546388 //** LMI MISSING EMPLOYEE LTR 02546599 //RPT726R1 DD SYSOUT=W, 02546688 // DEST=U@PRT155, 02546788 // HOLD=&LHOLD. 02546888 //** EMPLOYER WAGE REQUEST 02546999 //RPT751R1 DD SYSOUT=I, 02547099 // DEST=&LDEST., 02547199 // HOLD=&LHOLD. 02547299 //** /* NO LONGER PRODUCED THIS WAY (05/17/01) 02547399 //** /* EXTRACT & PRINT LABELS (5-LINE) 02547499 //**RPT901R1 DD SYSOUT=(C,,6662),FCB=P663, 02547599 //** DEST=&LDEST., 02547699 //** HOLD=&LHOLD. 02547799 //** WAGE RPTS (UC-30/FORM 30) DAILY 02547899 //RPT902R1 DD SYSOUT=I, 02547999 // DEST=&LDEST., 02548088 // HOLD=&LHOLD. 02548188 //** WAGE RPTS (UC-30/FORM 30) QTRLY 02548299 //DTS902F1 DD DUMMY 02548399 //** REQ FOR FED ID (UC-643) 02548488 //RPT903R1 DD SYSOUT=W, 02548588 // DEST=U@PRT155, 02548688 // HOLD=&LHOLD. 02548788 //** DAILY UPDATE CONTROL REPORT 02548888 //RPT904R1 DD SYSOUT=Q, 02548988 // DEST=&LDEST., 02549088 // HOLD=&LHOLD. 02549188 //** ONLINE RECOVERY/RESTART REPORT 02549288 //RPT905R1 DD SYSOUT=Z, 02549388 // DEST=&LDEST., 02549488 // HOLD=&LHOLD. 02549588 //** ONLINE UPDT LOG PARMS (MUST BE HERE*) 02549688 //PARM906 DD DUMMY,DCB=BLKSIZE=80 02549788 //** ONLINE UPDT LOG RPT 02549888 //** (DAILY (ALSO 'ON REQ' RPT??) MUST BE HERE*) 02549988 //RPT906R1 DD SYSOUT=Z, 02550088 // DEST=&LDEST., 02550188 // HOLD=&LHOLD. 02550288 //** UNUSUAL CONDITIONS ENCOUNTERED REPORT 02550388 //RPT907R1 DD SYSOUT=Z, 02550490 // DEST=&LDEST., 02550588 // HOLD=&LHOLD. 02550688 //** UNUSUAL CONDITIONS ENCOUNTERED REPORT 02550888 //RPT907R2 DD SYSOUT=Z,COPIES=2, 02550999 // DEST=&LDEST., 02551088 // HOLD=&LHOLD. 02551188 //** UC-30 CNTS RPTN (USUALLY A MONTHLY) 02551388 //RPT908R1 DD SYSOUT=Z, 02551488 // DEST=&LDEST., 02551588 // HOLD=&LHOLD. 02551688 //** WAGE RPTS (UC-30H/HOUSEHOLD) QTRLY 02551799 //DTS910F1 DD DUMMY 02551899 //** UC-30 NOTICES - HOUSEHOLD DAILY 02551999 //RPT910R1 DD SYSOUT=I, 02552099 // DEST=&LDEST., 02552199 // HOLD=&LHOLD. 02552299 //** CONTROL REPORT SUMMARY 02552492 //RPT980R1 DD SYSOUT=Q,COPIES=2, 02552592 // HOLD=&LHOLD., 02552692 // DEST=&LDEST. 02552792 //** EXPORT CONTROL REPORTS (JUST IN CASE) 02552892 //RPT991R1 DD SYSOUT=Q, 02552995 // DEST=&LDEST., 02553088 // HOLD=&LHOLD. 02554088 //**** 02560099 //DOESLBLP EXEC PGM=DOESLABL, /* PRINT DOES LABELS 02562099 // COND=(0,LT), 02563099 // REGION=4096K 02564099 //DOESVRI1 DD DSN=&&LBL901, 02565099 // DISP=(OLD,DELETE,DELETE) 02566099 //SYSOUT DD SYSOUT=* 02567099 //SYSABOUT DD SYSOUT=* 02568099 //SYSABEND DD SYSOUT=* 02569099 //CAIMRPTS DD SYSOUT=* 02569199 //DOESLBL1 DD SYSOUT=(C),FCB=P104, 02569299 // DEST=U@PRT155, 02569499 // HOLD=&LHOLD. 02569599 //** 02570099