//***** 00010000 //* UI TAX DAILY UPDATE. -BACKUP COPY OF DTSD0A AS OF 11/4/04 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.&LVLNODE..APPL.PARMLIB(DTSLBL01), 00219000 // 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.&LVLNODE..APPL.PARMLIB(DTSLBL02), 00223000 // 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=DOESTAX.&LVLNODE..SRTDAILY.RPT(&S0910.),DISP=SHR 02340000 //** 02341000 //DOESVRO1 DD DSN=&&LBL901,DISP=(OLD,PASS,DELETE) 02342000 //** 02350000 //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, 02430000 // DEST=&LDEST. 02440000 //** GEN. 2ND LETTER, REG. CYCLE A 02450000 //RPT103R1 DD SYSOUT=I, 02460000 // DEST=&LDEST. 02470000 //** LTR TO OUT-OF-STATE AGENCY 02480000 //RPT105R1 DD SYSOUT=I, 02490000 // DEST=&LDEST. 02500000 //** NOT LIABLE LTR 02510000 //RPT108R1 DD SYSOUT=W, 02511000 // DEST=U@PRT155 02521000 //** MISSING CONTRIB & WAGE RPTS 02522000 //RPT109R1 DD SYSOUT=I, 02523000 // DEST=&LDEST. 02524000 //** HOUSEHOLD - ANNUAL VERS. 02524100 //RPT109R2 DD SYSOUT=I, 02524200 // DEST=&LDEST. 02524300 //** NOTICE OF SUBJECTIVETY 02525000 //RPT112R1 DD SYSOUT=I, 02526000 // DEST=&LDEST. 02527000 //** HOUSEHOLD - ANNUAL VERS. 02527100 //RPT112R2 DD SYSOUT=I, 02527200 // DEST=&LDEST. 02527300 //** WELCOME LETTER 02528000 //RPT115R1 DD SYSOUT=I, 02529000 // DEST=&LDEST. 02529100 //** NEW/REACT/ACTIVATED EMPLYRS 02529200 //RPT116R1 DD SYSOUT=Z,HOLD=&LVDHOLD., 02529300 // DEST=&LDEST. 02529400 //** (FOR FUTURE USE) 02529500 //RPT116R2 DD SYSOUT=Z, 02529600 // DEST=&LDEST. 02529700 //** GEN INACT LTR 02529800 //RPT117R1 DD SYSOUT=W, 02529900 // DEST=U@PRT155 02530000 //** '8 QTRS NONE' CANCELLATION LTR 02530100 //RPT117R3 DD SYSOUT=I, 02530200 // DEST=&LDEST. 02530300 //** FR-500 EMPLYR REG. 02530400 //RPT127R1 DD SYSOUT=I, 02530500 // DEST=&LDEST. 02530600 //** HOUSEHOLD REQUESTS 02530700 //RPT131R1 DD SYSOUT=I, 02530800 // DEST=&LDEST. 02530900 //** HOUSEHOLD CONFIRMATIONS 02531000 //RPT131R2 DD SYSOUT=W, 02531100 // DEST=U@PRT155 02531200 //** ACCOUNT NUMBER CHANGED 02531300 //RPT204R1 DD SYSOUT=O, 02531400 // DEST=&LDEST. 02531500 //** BATCH CONTROL SUMMARY 02531600 //RPT301R1 DD SYSOUT=Z,HOLD=&LVDHOLD., 02531700 // DEST=&LDEST. 02531800 //** ACCT DTL RPT (GL) 02531900 //RPT302R1 DD SYSOUT=E,HOLD=&LVDHOLD., 02532000 // DEST=U@PRT155 02532100 //** REVENUE REFUND VOUCHER 02532200 //RPT303R1 DD SYSOUT=O, 02532300 // DEST=&LDEST. 02532400 //** LETTER FOR 303R1 (309R1 FORM) 02532500 //RPT303R2 DD SYSOUT=I, 02532600 // DEST=&LDEST. 02532700 //** STATEMENT OF ACCT (CREDIT MEMO-SM) 02532800 //** (DAILY - NORMALLY A CICS DIRECT PRINT) 02532900 //RPT309R1 DD SYSOUT=W, 02533000 // DEST=U@PRT155 02533100 //** STATEMENT OF ACCT (CREDIT MEMO-PC) 02533200 //RPT309R2 DD SYSOUT=I, 02533300 // DEST=&LDEST. 02533400 //** ESTIMATED REPORT LETTER 02533500 //RPT316R1 DD SYSOUT=W, 02533600 // DEST=U@PRT155 02533700 //** TAXABLE WAGE ERROR LETTER 02533800 //RPT317R1 DD SYSOUT=W, 02533900 // DEST=U@PRT155, 02534000 // HOLD=&LVDHOLD. 02534100 //** ELECTRONIC PAYMENT LISTING 1 02534200 //RPT318R1 DD SYSOUT=O, 02534300 // DEST=&LDEST., 02534400 // HOLD=&LVDHOLD. 02534500 //** ELECTRONIC PAYMENT LISTING 2 02534600 //RPT318R2 DD SYSOUT=O, 02534700 // DEST=&LDEST., 02534800 // HOLD=&LVDHOLD. 02534900 //** DAILY CREDIT REPORT 02535000 //RPT319R1 DD SYSOUT=Z, 02535100 // DEST=&LDEST., 02535200 // HOLD=&LVDHOLD. 02535300 //** DAILY DEBIT REPORT 02535400 //RPT319R2 DD SYSOUT=Z, 02535500 // DEST=&LDEST., 02535600 // HOLD=&LVDHOLD. 02535700 //** LIEN FORMS (& R3?) 02535800 //RPT403R1 DD SYSOUT=I, 02535900 // DEST=&LDEST. 02536000 //** LICENSE LIEN LTR 02536100 //** (NO LONGER PRODUCED IN THIS FORM 991025) 02536200 //RPT403R2 DD SYSOUT=*,DEST=U@PRT65,HOLD=YES 02536300 //**RPT403R2 DD SYSOUT=I, 02536400 //** DEST=&LDEST. 02536500 //** LIEN PKG PRTED CONTROL RPT 02536600 //RPT404R1 DD SYSOUT=Z, 02536700 // DEST=&LDEST. 02536800 //** STATEMENT OF ACCT (DEBIT MEMO-SM) 02536900 //** (DAILY - NORMALLY A CICS DIRECT PRINT) 02537000 //RPT414R1 DD SYSOUT=W, 02537100 // DEST=U@PRT155 02537200 //** STATEMENT OF ACCT (PAGE 2) 02537300 //RPT414R2 DD SYSOUT=W, 02537400 // DEST=U@PRT155 02537500 //** COPY FOR DEPT. 02537600 //** (NO LONGER PRODUCED IN THIS FORM 991125) 02537700 //RPT414R3 DD SYSOUT=*,DEST=U@PRT65,HOLD=YES 02537800 //**RPT414R3 DD SYSOUT=I, 02537900 //** DEST=&LDEST. 02538000 //** INCR IN TOTAL BAL DUE 02538100 //RPT424R1 DD SYSOUT=Q,HOLD=&LVDHOLD., 02538200 // DEST=&LDEST. 02538300 //** MISSING RPTS ESTB LST (FCO) 02538400 //RPT425R1 DD SYSOUT=Z,HOLD=&LVDHOLD., 02538500 // DEST=&LDEST. 02538600 //** ACCTS REC AUDIT TRAIL RPT 02538700 //RPT432R1 DD SYSOUT=Z,HOLD=&LVDHOLD., 02538800 // DEST=&LDEST. 02538900 //** DEFERRED PAYMENT CONTRACT 02539000 //RPT434R1 DD SYSOUT=I,COPIES=3, 02539100 // DEST=&LDEST. 02539200 //** RATE DISCREPANCY LST 02539300 //RPT502R1 DD SYSOUT=Z,HOLD=&LVDHOLD., 02539400 // DEST=&LDEST. 02539500 //** RATE NOTICES (632) 02539600 //RPT503R1 DD SYSOUT=W, 02539700 // DEST=U@PRT155 02539800 //** RATE NOTICES (632A) 02539900 //RPT503R2 DD SYSOUT=W, 02540000 // DEST=U@PRT155 02540100 //** FLD ASSGN RPT - TAX DATA 02540200 //RPT603R1 DD SYSOUT=Q, 02540300 // DEST=&LDEST. 02540400 //** FLD ASSGN RPT - WAGE DATA 02540500 //RPT604R1 DD SYSOUT=Q, 02540600 // DEST=&LDEST. 02540700 //EWG960F1 DD DSN=UI.PROD.DOCS.EWG960F1,DISP=SHR 02540800 //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 02540900 //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 02541000 //** 02541100 //** AUDIT SURVEY CARDS 02541200 //RPT608R1 DD SYSOUT=W, 02541300 // DEST=U@PRT155 02541400 //** REQ FOR FEIN LETTER 02541500 //** (DISTINCT FROM RPT903R1) 02541600 //RPT712R1 DD SYSOUT=W, 02541700 // DEST=U@PRT155 02541800 //** TICKLER TRIG OVERDUE LST 02541900 //** TRIG DTE<=(CURRDTE-#PARMDAYS) 02542000 //RPT724R1 DD SYSOUT=Z,HOLD=&LVDHOLD., 02542100 // DEST=&LDEST. 02542200 //** LMI MISSING EMPLOYEE LTR 02542300 //RPT726R1 DD SYSOUT=W, 02542400 // DEST=U@PRT155 02542500 //** EMPLOYER WAGE REQUEST 02542600 //RPT751R1 DD SYSOUT=I, 02542700 // DEST=&LDEST. 02542800 //** /* NO LONGER PRODUCED THIS WAY (05/17/01) 02542900 //** /* EXTRACT & PRINT LABELS (8-LINE) 02543000 //**RPT901R1 DD SYSOUT=(C,,6662),FCB=P663, 02543100 //** DEST=&LDEST. 02543200 //** WAGE RPTS (UC-30/FORM 30) DAILY 02543300 //RPT902R1 DD SYSOUT=I, 02543400 // DEST=&LDEST. 02543500 //** WAGE RPTS (UC-30/FORM 30) QTRLY 02543600 //DTS902F1 DD DUMMY 02543700 //** REQ FOR FED ID (UC-643) 02543800 //RPT903R1 DD SYSOUT=W, 02543900 // DEST=U@PRT155 02544000 //** DAILY UPDATE CONTROL REPORT 02544100 //RPT904R1 DD SYSOUT=Q,HOLD=&LVDHOLD., 02544200 // DEST=&LDEST. 02544300 //** ONLINE RECOVERY/RESTART REPORT 02544400 //RPT905R1 DD SYSOUT=Z,HOLD=&LVDHOLD., 02544500 // DEST=&LDEST. 02544600 //** ONLINE UPDT LOG PARMS (MUST BE HERE*) 02544700 //PARM906 DD DUMMY,DCB=BLKSIZE=80 02544800 //** ONLINE UPDT LOG RPT 02544900 //** (DAILY -NORMALLY AN 'ON REQ' RPT 02545000 //RPT906R1 DD SYSOUT=Z,HOLD=&LVDHOLD., 02545100 // DEST=&LDEST. 02545200 //** UNUSUAL CONDITIONS ENCOUNTERED REPORT 02545300 //RPT907R1 DD SYSOUT=Z,HOLD=&LVDHOLD., 02545400 // DEST=&LDEST. 02545500 //** UNUSUAL CONDITIONS ENCOUNTERED REPORT 02545600 //RPT907R2 DD SYSOUT=Z,HOLD=&LVDHOLD., 02545700 // DEST=&LDEST. 02545800 //** WAGE RPTS (UC-30H/HOUSEHOLD) YRLY 02545900 //DTS910F1 DD DUMMY 02546000 //** UC-30 NOTICES - HOUSEHOLD DAILY 02546100 //RPT910R1 DD SYSOUT=I, 02546200 // DEST=&LDEST. 02546300 //** CONTROL REPORT SUMMARY 02546400 //RPT980R1 DD SYSOUT=Q,COPIES=2, 02546500 // DEST=&LDEST. 02546600 //** EXPORT CONTROL REPORTS 02546700 //RPT991R1 DD SYSOUT=Q,HOLD=&LVDHOLD., 02546800 // DEST=&LDEST. 02546900 //** 02547000 //DOESLBLP EXEC PGM=DOESLABL, /* PRINT DOES LABELS 02547100 // COND=(0,LT), 02547200 // REGION=4096K 02547300 //DOESVRI1 DD DSN=&&LBL901, 02547400 // DISP=(OLD,DELETE,DELETE) 02547500 //SYSOUT DD SYSOUT=* 02547600 //SYSABOUT DD SYSOUT=* 02547700 //SYSABEND DD SYSOUT=* 02547800 //CAIMRPTS DD SYSOUT=* 02547900 //DOESLBL1 DD SYSOUT=(C),FCB=P104, 02548000 // DEST=U@PRT155 02548100 //** 02549000