//***** 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