//***** 00010000 //* UI TAX DAILY UPDATE. 00020000 //* HANDLE BD800 RPT ONLY 00030000 //***** 00030100 //* REPRINT DTSPDAY1 REPORTS ZL1 00031001 //* FOR REPORT TO GO INTO TRMS CHANGE CLASS TO O 00032000 //***** 00033000 //**** /* GEN A DUMMY RECORD FOR THE LABELS FILE 00040000 //DOESLBL1 EXEC PGM=IEBDG, 00050000 // COND=(0,LT) 00060000 //SYSPRINT DD SYSOUT=* 00070000 //LBLOUT DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE), 00080000 // UNIT=SYSDA, 00090000 // SPACE=(TRK,1), 00100000 // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00110000 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL01), 00120000 // DISP=SHR 00130000 //**** /* POPULATE THE LABELS WORK FILE 00140000 //DOESLBL2 EXEC PGM=IDCAMS, 00150000 // COND=(0,LT) 00160000 //SYSPRINT DD SYSOUT=* 00170000 //FILEIN DD DSN=&&TMP901, 00180000 // DISP=(OLD,DELETE,DELETE), 00190000 // UNIT=SYSDA 00200000 //DOESVRO1 DD DSN=&&LBL901, 00210000 // DISP=(NEW,PASS,DELETE), 00220000 // UNIT=SYSDA, 00230000 // SPACE=(8192,(1000,1000),RLSE), 00240000 // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00250000 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL02), 00260000 // DISP=SHR 00270000 //** 00280000 //STEP0990 EXEC PGM=DTSBD800, OUTPUT GENERATION 00290000 // COND=(0,LT) 00300000 //SYSOUT DD SYSOUT=* 00310000 //SYSABOUT DD SYSOUT=* 00320000 //SYSUDUMP DD SYSOUT=* 00330000 //SYSPRINT DD SYSOUT=* 00340000 //** 00350000 //DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00360000 //** 00370000 //DTSFVRI1 DD DSN=DOESTAX.&LVLNODE..SRTDAILY.RPT(&S0910.),DISP=SHR 00380000 //** 00390000 //DOESVRO1 DD DSN=&&LBL901,DISP=(OLD,PASS,DELETE) 00400000 //** 00410000 //DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00420000 // AMP=('BUFNI=5,BUFND=10') 00430000 //** 00440000 //PARMIN DD DUMMY 00450000 //** 00460000 //ATLSTIN DD DUMMY 00470000 //** GEN. 1ST LETTER, REG. CYCLE A 00480000 //RPT102R1 DD SYSOUT=I, 00490000 // DEST=&LDEST., 00500000 // HOLD=&PRTHOLD. 00501000 //** GEN. 2ND LETTER, REG. CYCLE A 00510000 //RPT103R1 DD SYSOUT=I, 00520000 // DEST=&LDEST., 00530000 // HOLD=&PRTHOLD. 00531000 //** LTR TO OUT-OF-STATE AGENCY 00540000 //RPT105R1 DD SYSOUT=I, 00550000 // DEST=&LDEST., 00560000 // HOLD=&PRTHOLD. 00561000 //** NOT LIABLE LTR 00570000 //RPT108R1 DD SYSOUT=W, 00580000 // HOLD=&PRTHOLD., 00581000 // DEST=U@PRT155 00590000 //** MISSING CONTRIB & WAGE RPTS 00600000 //RPT109R1 DD SYSOUT=I, 00610000 // DEST=&LDEST., 00620000 // HOLD=&PRTHOLD. 00621000 //** HOUSEHOLD - ANNUAL VERS. 00630000 //RPT109R2 DD SYSOUT=I, 00640000 // DEST=&LDEST., 00650000 // HOLD=&PRTHOLD. 00651000 //** NOTICE OF SUBJECTIVETY 00660000 //RPT112R1 DD SYSOUT=I, 00670000 // DEST=&LDEST., 00680000 // HOLD=&PRTHOLD. 00681000 //** HOUSEHOLD - ANNUAL VERS. 00690000 //RPT112R2 DD SYSOUT=I, 00700000 // DEST=&LDEST., 00710000 // HOLD=&PRTHOLD. 00711000 //** WELCOME LETTER 00720000 //RPT115R1 DD SYSOUT=I, 00730000 // DEST=&LDEST., 00740000 // HOLD=&PRTHOLD. 00741000 //** NEW/REACT/ACTIVATED EMPLYRS 00750000 //RPT116R1 DD SYSOUT=X 00760001 //** (FOR FUTURE USE) 00780000 //RPT116R2 DD SYSOUT=Z, 00790000 // DEST=&LDEST, 00800000 // HOLD=&PRTHOLD. 00801000 //** GEN INACT LTR 00810000 //RPT117R1 DD SYSOUT=W, 00820000 // HOLD=&PRTHOLD., 00821000 // DEST=U@PRT155 00830000 //** '8 QTRS NONE' CANCELLATION LTR 00840000 //RPT117R2 DD SYSOUT=I, 00850000 // HOLD=&PRTHOLD., 00851000 // DEST=&LDEST. 00860000 //** '8 QTRS NONE' CANCELLATION LTR 00870000 //RPT117R3 DD SYSOUT=I, 00880000 // HOLD=&PRTHOLD., 00881000 // DEST=&LDEST. 00890000 //** FR-500 EMPLYR REG. 00900000 //RPT127R1 DD SYSOUT=I, 00910000 // HOLD=&PRTHOLD., 00911000 // DEST=&LDEST. 00920000 //** (FOR FUTURE USE) 00921000 //RPT128R1 DD SYSOUT=Z, 00922000 // DEST=&LDEST, 00923000 // HOLD=&PRTHOLD. 00924000 //** (FOR FUTURE USE) 00925000 //RPT128R2 DD SYSOUT=Z, 00926000 // DEST=&LDEST, 00927000 // HOLD=&PRTHOLD. 00928000 //** (FOR FUTURE USE) 00929000 //RPT128R3 DD SYSOUT=Z, 00929100 // DEST=&LDEST, 00929200 // HOLD=&PRTHOLD. 00929300 //** (FOR FUTURE USE) 00929400 //RPT128R4 DD SYSOUT=Z, 00929500 // DEST=&LDEST, 00929600 // HOLD=&PRTHOLD. 00929700 //** HOUSEHOLD REQUESTS 00930000 //RPT131R1 DD SYSOUT=I, 00940000 // HOLD=&PRTHOLD., 00941000 // DEST=&LDEST. 00950000 //** HOUSEHOLD CONFIRMATIONS 00960000 //RPT131R2 DD SYSOUT=W, 00970000 // HOLD=&PRTHOLD., 00971000 // DEST=U@PRT155 00980000 //* 00980100 //** WEB REGISTRATION ERROR REPORT 00980200 //RPT140R1 DD SYSOUT=Z,HOLD=&LVDHOLD., 00980300 // DEST=LOCAL 00980400 //** 00980500 //** WEB REGISTRATION ERROR REPORT FOR DOWNLOAD 00980600 //RPT140R2 DD DSN=DOESTAX.&MSTNODE..WEBREG.ERR, 00980700 //** DISP=(,CATLG,CATLG), 00980800 // DISP=(OLD,KEEP,KEEP), 00980900 // UNIT=SYSDA, 00981000 // SPACE=(29400,(100,100),RLSE), 00981100 // DCB=(RECFM=FB,LRECL=98,BLKSIZE=29400) 00981200 //* 00981300 //** ICESA DEPOSIT TRANSMITTAL EMAIL REPORT 00981400 //RPT202R1 DD DSN=DOESTAX.&LVLNODE..R202.ICESA,DISP=SHR 00982000 //** DEPOSIT TRANSMITTAL FOR WEB 00983000 //DTSX202F DD DSN=DOESTAX.&LVLNODE..DEPOSIT.X202EXP, 00984000 // DISP=(OLD,KEEP,KEEP), 00985000 // UNIT=SYSDA, 00986000 // SPACE=(CYL,(10,5),RLSE), 00987000 // DCB=(RECFM=FB,LRECL=55,BLKSIZE=5500) 00988000 //** ACCOUNT NUMBER CHANGED 00990000 //RPT204R1 DD DSN=DOESTAX.PROD.RPT204,DISP=SHR 01000000 //** DEST=&LDEST. 01010000 //** BATCH CONTROL SUMMARY 01020000 //RPT301R1 DD SYSOUT=X 01030001 //** ACCT DTL RPT (GL) 01050000 //RPT302R1 DD SYSOUT=0 01060000 //** REVENUE REFUND VOUCHER 01080000 //RPT303R1 DD SYSOUT=O, 01090000 // HOLD=&PRTHOLD., 01091000 // DEST=&LDEST. 01100000 //** LETTER FOR 303R1 (309R1 FORM) 01110000 //RPT303R2 DD SYSOUT=X 01120001 //** CFO REFUND EXPORT FILE 01141000 //RPT303R3 DD DSN=DOESTAX.&LVLNODE..FTP.REFUND.X303EXP, 01142000 //* DISP=(NEW,CATLG,CATLG), 01143000 // DISP=(OLD,KEEP,KEEP), 01144000 // UNIT=SYSDA, 01145000 // SPACE=(CYL,(10,5),RLSE), 01146000 // DCB=(RECFM=FB,LRECL=750,BLKSIZE=7500) 01147000 //** 01148000 //** STATEMENT OF ACCT (CREDIT MEMO-SM) 01149000 //** (DAILY - NORMALLY A CICS DIRECT PRINT) 01150000 //RPT309R1 DD SYSOUT=W, 01160000 // HOLD=&PRTHOLD., 01161000 // DEST=U@PRT155 01170000 //** STATEMENT OF ACCT (CREDIT MEMO-PC) 01180000 //RPT309R2 DD SYSOUT=*, 01190000 // HOLD=&PRTHOLD., 01191000 // DEST=&LDEST. 01200000 //** ESTIMATED REPORT LETTER 01210000 //RPT316R1 DD SYSOUT=W, 01220000 // HOLD=&PRTHOLD., 01221000 // DEST=U@PRT155 01230000 //** TAXABLE WAGE ERROR LETTER 01240000 //RPT317R1 DD SYSOUT=W, 01250000 // DEST=U@PRT155, 01260000 // HOLD=&PRTHOLD. 01270000 //** ELECTRONIC PAYMENT LISTING 1 01280000 //RPT318R1 DD SYSOUT=O, 01290000 // DEST=&LDEST., 01300000 // HOLD=&PRTHOLD. 01310000 //** ELECTRONIC PAYMENT LISTING 2 01320000 //RPT318R2 DD SYSOUT=O, 01330000 // DEST=&LDEST., 01340000 // HOLD=&PRTHOLD. 01350000 //** DAILY RETURNED CHECKS 01360000 //RPT319R1 DD SYSOUT=W, 01370000 // DEST=U@PRT155 01380000 //* HOLD=&PRTHOLD. 01390000 //** DAILY DEBIT REPORT 01400000 //RPT319R2 DD SYSOUT=Z, 01410000 // DEST=&LDEST. 01420000 //* HOLD=&PRTHOLD. 01430000 //** SI ADMIN ASSESSMENT LETTER 01431000 //RPT325R1 DD SYSOUT=W, 01432000 //* HOLD=YES 01433000 // DEST=U@PRT155 01433100 //* HOLD=&PRTHOLD. 01434000 //** SI ADMIN ASSESSMENT RPT2 01435000 //RPT325R2 DD SYSOUT=Z, 01436000 // DEST=&LDEST. 01437000 //* HOLD=&PRTHOLD. 01438000 //** SI ADMIN ASSESSMENT RPT3 01439000 //RPT325R3 DD SYSOUT=Z, 01439100 // DEST=&LDEST. 01439200 //* HOLD=&PRTHOLD. 01439300 //** SI ADMIN ASSESSMENT RPT4 01439400 //RPT325R4 DD SYSOUT=Z, 01439500 // DEST=&LDEST. 01439600 //* HOLD=&PRTHOLD. 01439700 //** SI ADMIN ASSESSMENT RPT5 01440100 //RPT325R5 DD SYSOUT=Z, 01440200 // DEST=&LDEST. 01440300 //* HOLD=&PRTHOLD. 01440400 //** LIEN FORMS (& R3?) 01441000 //RPT403R1 DD SYSOUT=I, 01450000 // HOLD=&PRTHOLD., 01451000 // DEST=&LDEST. 01460000 //** LICENSE LIEN LTR 01470000 //** (NO LONGER PRODUCED IN THIS FORM 991025) 01480000 //RPT403R2 DD SYSOUT=*,DEST=U@PRT65,HOLD=YES 01490000 //**RPT403R2 DD SYSOUT=I, 01500000 //** DEST=&LDEST. 01510000 //** LIEN PKG PRTED CONTROL RPT 01520000 //*PT404R1 DD SYSOUT=(V,DTS404D1),HOLD=&LVDHOLD., 01530000 //RPT404R1 DD SYSOUT=Z, 01540000 // DEST=&LDEST. 01550000 //** STATEMENT OF ACCT (DEBIT MEMO-SM) 01560000 //** (DAILY - NORMALLY A CICS DIRECT PRINT) 01570000 //RPT414R1 DD SYSOUT=W, 01580000 // HOLD=&PRTHOLD., 01581000 // DEST=U@PRT155 01590000 //** STATEMENT OF ACCT (PAGE 2) 01600000 //RPT414R2 DD SYSOUT=W, 01610000 // HOLD=&PRTHOLD., 01611000 // DEST=U@PRT155 01620000 //** COPY FOR DEPT. 01630000 //** (NO LONGER PRODUCED IN THIS FORM 991125) 01640000 //RPT414R3 DD SYSOUT=*,DEST=U@PRT65,HOLD=YES 01650000 //**RPT414R3 DD SYSOUT=I, 01660000 //** DEST=&LDEST. 01670000 //** STATEMENT OF ACCT OVERNIGHT PRINTING 01671000 //RPT414R4 DD DSN=DOESTAX.PROD.R414.EXCL.RPT4,DISP=SHR 01671100 //RPT414R5 DD DSN=DOESTAX.PROD.R414.EXCL.RPT5,DISP=SHR 01671300 //RPT414R6 DD DSN=DOESTAX.PROD.R414.EXCL.RPT6,DISP=SHR 01671500 //** STATEMENT OF ACCT OVERNIGHT PRINTING 01671600 //RPT415R1 DD SYSOUT=W, 01672000 // HOLD=&PRTHOLD., 01672100 // DEST=U@PRT155 01673000 //** STATEMENT OF ACCT OVERNIGHT REPORT 01674000 //RPT416R1 DD SYSOUT=Z, 01675000 // HOLD=&PRTHOLD., 01675100 // DEST=&LDEST. 01676000 //** INCR IN TOTAL BAL DUE 01680000 //RPT424R1 DD SYSOUT=X 01690001 //** MISSING RPTS ESTB LST (FCO) 01710000 //RPT425R1 DD SYSOUT=X 01720001 //** ACCTS REC AUDIT TRAIL RPT 01740000 //RPT432R1 DD SYSOUT=X 01750001 //** DEFERRED PAYMENT CONTRACT 01770000 //RPT434R1 DD SYSOUT=I,COPIES=3, 01780000 // HOLD=&PRTHOLD., 01781000 // DEST=&LDEST. 01790000 //** RATE DISCREPANCY LST 01800000 //RPT502R1 DD SYSOUT=X 01810001 //** RATE NOTICES (632) 01830000 //RPT503R1 DD SYSOUT=W, 01840000 // HOLD=&PRTHOLD., 01841000 // DEST=U@PRT155 01850000 //** RATE NOTICES (632A) 01860000 //RPT503R2 DD SYSOUT=W, 01870000 // HOLD=&PRTHOLD., 01871000 // DEST=U@PRT155 01880000 //** RATE FILE FOR ESSP - NOT NEEDED ONDAILY 01881002 //RPT503R3 DD DUMMY 01882002 //** FLD ASSGN RPT - TAX DATA 01890000 //RPT603R1 DD SYSOUT=X 01900001 //** FLD ASSGN RPT - WAGE DATA 01920000 //RPT604R1 DD SYSOUT=X 01930001 //** 01940000 //DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR 01950000 //DTSFNAME DD DSN=DOESTAX.&MSTNODE..VSAM.WAGE.NAME,DISP=SHR 01960000 //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 01970000 //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 01980000 //** 01990000 //REPORTF1 DD DSN=&&REPORTF1, 02000000 // DISP=(,PASS,DELETE), 02010000 // UNIT=SYSDA, 02020000 // SPACE=(18000,(100,100),RLSE), 02030000 // DCB=(RECFM=FB,LRECL=18,BLKSIZE=18000) 02040000 //** 02050000 //** AUDIT SURVEY CARDS 02060000 //RPT608R1 DD SYSOUT=W, 02070000 // HOLD=&PRTHOLD., 02071000 // DEST=U@PRT155 02080000 //** AUDIT NOTIFICATION LETTER 02080100 //RPT615R1 DD SYSOUT=I, 02080200 // HOLD=&PRTHOLD., 02080300 // DEST=&LDEST. 02080400 //** FUTA CERTIFICATION OVERNIGHT PRINTING 02081000 //RPT711R1 DD SYSOUT=I, 02082000 // HOLD=&PRTHOLD., 02082100 // DEST=&LDEST. 02083000 //** REQ FOR FEIN LETTER 02090000 //** (DISTINCT FROM RPT903R1) 02100000 //RPT712R1 DD SYSOUT=W, 02110000 // HOLD=&PRTHOLD., 02111000 // DEST=U@PRT155 02120000 //** TICKLER TRIG OVERDUE LST 02130000 //** TRIG DTE<=(CURRDTE-#PARMDAYS) 02140000 //RPT724R1 DD SYSOUT=X 02150001 //** LMI MISSING EMPLOYEE LTR 02170000 //RPT726R1 DD SYSOUT=W, 02180000 // HOLD=&PRTHOLD., 02181000 // DEST=U@PRT155 02190000 //** EMPLOYER WAGE REQUEST 02200000 //RPT751R1 DD SYSOUT=I, 02210000 // HOLD=&PRTHOLD., 02211000 // DEST=&LDEST. 02220000 //** /* NO LONGER PRODUCED THIS WAY (05/17/01) 02230000 //** /* EXTRACT & PRINT LABELS (8-LINE) 02240000 //**RPT901R1 DD SYSOUT=(C,,6662),FCB=P663, 02250000 //** DEST=&LDEST. 02260000 //** WAGE RPTS (UC-30/FORM 30) DAILY 02270000 //RPT902R1 DD SYSOUT=I, 02280000 // HOLD=&PRTHOLD., 02281000 // DEST=&LDEST. 02290000 //** SUR TAX (UC-30/FORM 30) DAILY 02291000 //RPT902R2 DD SYSOUT=I, 02292000 // HOLD=&PRTHOLD., 02293000 // DEST=&LDEST. 02294000 //** WAGE RPTS (UC-30/FORM 30) QTRLY 02300000 //DTS902F1 DD DUMMY 02310000 //** REQ FOR FED ID (UC-643) 02320000 //RPT903R1 DD SYSOUT=W, 02330000 // HOLD=&PRTHOLD., 02331000 // DEST=U@PRT155 02340000 //** DAILY UPDATE CONTROL REPORT 02350000 //RPT904R1 DD SYSOUT=Q,HOLD=&PRTHOLD., 02360000 // DEST=&LDEST. 02370000 //** ONLINE RECOVERY/RESTART REPORT 02380000 //RPT905R1 DD SYSOUT=Q,HOLD=&PRTHOLD., 02390000 // DEST=&LDEST. 02400000 //** ONLINE UPDT LOG PARMS (MUST BE HERE*) 02410000 //PARM906 DD DUMMY,DCB=BLKSIZE=80 02420000 //** ONLINE UPDT LOG RPT 02430000 //** (DAILY -NORMALLY AN 'ON REQ' RPT 02440000 //RPT906R1 DD SYSOUT=Q,HOLD=YES, 02450000 // DEST=&LDEST. 02460000 //** UNUSUAL CONDITIONS ENCOUNTERED REPORT 02470000 //RPT907R1 DD SYSOUT=Q,HOLD=&PRTHOLD., 02480000 // DEST=&LDEST. 02490000 //** UNUSUAL CONDITIONS ENCOUNTERED REPORT 02500000 //RPT907R2 DD SYSOUT=Q,HOLD=&PRTHOLD., 02510000 // DEST=&LDEST. 02520000 //** WAGE RPTS (UC-30H/HOUSEHOLD) YRLY 02530000 //DTS910F1 DD DUMMY 02540000 //** UC-30 NOTICES - HOUSEHOLD DAILY 02550000 //RPT910R1 DD SYSOUT=I, 02560000 // HOLD=&PRTHOLD., 02561000 // DEST=&LDEST. 02570000 //** ADMIN ASSESSMENT UC-30 NOTICES - HOUSEHOLD DAILY 02571000 //RPT910R2 DD SYSOUT=I, 02572000 // HOLD=&PRTHOLD., 02573000 // DEST=&LDEST. 02574000 //** CONTROL REPORT SUMMARY 02580000 //RPT980R1 DD SYSOUT=Q,COPIES=2, 02590000 // HOLD=&PRTHOLD., 02591000 // DEST=&LDEST. 02600000 //** EXPORT CONTROL REPORTS 02610000 //RPT991R1 DD SYSOUT=Q, 02620000 // HOLD=&PRTHOLD., 02621000 // DEST=&LDEST. 02630000 //** 02640000 //DOESLBLP EXEC PGM=DOESLABL, /* PRINT DOES LABELS 02650000 // COND=(0,LT), 02660000 // REGION=4096K 02670000 //DOESVRI1 DD DSN=&&LBL901, 02680000 // DISP=(OLD,DELETE,DELETE) 02690000 //SYSOUT DD SYSOUT=* 02700000 //SYSABOUT DD SYSOUT=* 02710000 //SYSABEND DD SYSOUT=* 02720000 //CAIMRPTS DD SYSOUT=* 02730000 //DOESLBL1 DD SYSOUT=(C),FCB=P104, 02740000 // DEST=U@PRT155 02750000 //** 02760000