//***** 00010000 //* 00020000 //* UI TAX DAILY UPDATE. 00030000 //* 00040000 //* HANDLE BD800 RPT ONLY 00041072 //* 00043016 //* PARMS NEEDED FOR THIS PROC: 00044091 //* 00045091 //* LDEST= PRINT DESTINATION/QUE E.G., LOCAL 00046091 //* LHOLD= YES/NO (GEN. HOLD) 00047099 //* LVDHOLD= YES/NO (SPEC. HOLD FOR VIEW-DIRECT) 00047199 //* LVLNODE= DEVL/TEST/PROD 00048091 //* S0910= RPT GEN (GDG) OR .GNNNNV00 00049099 //* 00050091 //********************************************************************* 00180000 //* 00210074 //**** /* 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 //* 00230099 //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 //DTSFMSTR INCLUDE MEMBER=DTSIMSTR 02331099 //DTSFVRI1 DD DSN=DOESTAX.&LVLNODE..SRTDAILY.RPT&S0910.,DISP=SHR 02340099 //** 02341099 //DOESVRO1 DD DSN=&&LBL901,DISP=(OLD,PASS,DELETE) 02344099 //** 02350019 //DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 02360019 // AMP=('BUFNI=5,BUFND=10') 02370019 //** 02380019 //PARMIN DD DUMMY 02390019 //** 02400019 //ATLSTIN DD DUMMY 02410019 //** NEW/REACT/DEACTIVATED EMPLYRS 02529594 //RPT116R1 DD SYSOUT=(Z,DTS116D1),HOLD=&LVDHOLD., 02529699 // DEST=&LDEST. 02529799 //** BATCH CONTROL SUMMARY 02531919 //RPT301R1 DD SYSOUT=(V,DTS301D1),HOLD=&LVDHOLD., 02532099 // DEST=&LDEST. 02532199 //** ACCT DTL RPT (GL) 02532419 //RPT302R1 DD SYSOUT=(E,DTS302D1),HOLD=&LVDHOLD., 02532599 // DEST=U@PRT155 02532699 //** LETTER FOR 303R1 (309R1 FORM) 02533399 //RPT303R2 DD SYSOUT=(O,DTS303D2),HOLD=&LVDHOLD., 02533499 // DEST=&LDEST. 02533599 //** LETTER FOR 303R1 (309R1 FORM) 02533699 //RPT319R1 DD SYSOUT=(V,DTS319D1),HOLD=&LVDHOLD., 02533799 // DEST=&LDEST. 02533899 //** LIEN PKG PRTED CONTROL RPT 02536719 //RPT404R1 DD SYSOUT=(Z,DTS404D1),HOLD=&LVDHOLD., 02536899 // DEST=&LDEST. 02536999 //** INCR IN TOTAL BAL DUE 02539988 //RPT424R1 DD SYSOUT=(Q,DTS424D1),HOLD=&LVDHOLD., 02540099 // DEST=&LDEST. 02540199 //** MISSING RPTS ESTB LST (FCO) 02540488 //RPT425R1 DD SYSOUT=(Z,DTS425D1),HOLD=&LVDHOLD., 02540599 // DEST=&LDEST. 02540699 //** ACCTS REC AUDIT TRAIL RPT 02540988 //RPT432R1 DD SYSOUT=(Z,DTS432D1),HOLD=&LVDHOLD., 02541099 // DEST=&LDEST. 02541199 //** RATE DISCREPANCY LST 02541988 //RPT502R1 DD SYSOUT=(Z,DTS502D1),HOLD=&LVDHOLD., 02542099 // DEST=&LDEST. 02542199 //** FLD ASSGN RPT - TAX DATA 02543488 //RPT603R1 DD SYSOUT=(Q,DTS603D1),HOLD=&LVDHOLD., 02543599 // DEST=&LDEST. 02543699 //** FLD ASSGN RPT - WAGE DATA 02543988 //RPT604R1 DD SYSOUT=(Q,DTS604D1),HOLD=&LVDHOLD., 02544099 // DEST=&LDEST. 02544199 //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 //** TICKLER TRIG OVERDUE LST 02545988 //** TRIG DTE<=(CURRDTE-#PARMDAYS) 02546088 //RPT724R1 DD SYSOUT=(Z,DTS724D1),HOLD=&LVDHOLD., 02546199 // DEST=&LDEST. 02546299 //** WAGE RPTS (UC-30/FORM 30) QTRLY 02547899 //DTS902F1 DD DUMMY 02547999 //** DAILY UPDATE CONTROL REPORT 02548999 //RPT904R1 DD SYSOUT=(Q,DTS904D1),HOLD=&LVDHOLD., 02549099 // DEST=&LDEST. 02549199 //** ONLINE RECOVERY/RESTART REPORT 02549399 //RPT905R1 DD SYSOUT=(Z,DTS905D1),HOLD=&LVDHOLD., 02549499 // DEST=&LDEST. 02549599 //** ONLINE UPDT LOG PARMS (MUST BE HERE*) 02549788 //PARM906 DD DUMMY,DCB=BLKSIZE=80 02549888 //** ONLINE UPDT LOG RPT 02549988 //** (DAILY (ALSO 'ON REQ' RPT??) MUST BE HERE*) 02550088 //RPT906R1 DD SYSOUT=(Z,DTS906D1),HOLD=&LVDHOLD., 02550199 // DEST=&LDEST. 02550299 //** UNUSUAL CONDITIONS ENCOUNTERED REPORT 02550488 //RPT907R1 DD SYSOUT=(Z,DTS907D1),HOLD=&LVDHOLD., 02550599 // DEST=&LDEST. 02550699 //** WAGE RPTS (UC-30H/HOUSEHOLD) YRLY 02550799 //DTS910F1 DD DUMMY 02550899 //** CONTROL REPORT SUMMARY 02551792 //RPT980R1 DD SYSOUT=(Q,DTS980D1),HOLD=&LVDHOLD., 02552099 // DEST=&LDEST. 02552292 //** EXPORT CONTROL REPORTS (JUST IN CASE) 02552392 //RPT991R1 DD SYSOUT=(Q,DTS991D1),HOLD=&LVDHOLD., 02552599 // DEST=&LDEST. 02552699 //** 02560019 //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, 02569399 // HOLD=&LHOLD. 02569499 //** 02569899