//***** 00010000 //* UI TAX ARCHIVE REPRINT. 00020001 //* HANDLE BD800 RPT ONLY 00030000 //**** /* 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..ARCHIVE.&FYYEAR(&S0910.),DISP=SHR 00380003 //** 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 //** 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 //** 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 //** ICESA DEPOSIT TRANSMITTAL EMAIL REPORT 00981000 //** 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 //** 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=Z, 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 //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 //** DEFERRED PAYMENT CONTRACT 01770000 //RPT434R1 DD SYSOUT=I,COPIES=3, 01780000 // HOLD=&PRTHOLD., 01781000 // DEST=&LDEST. 01790000 //** RATE DISCREPANCY LST 01800000 //** 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 //** FLD ASSGN RPT - TAX DATA 01890000 //** 02050000 //** AUDIT SURVEY CARDS 02060000 //RPT608R1 DD SYSOUT=W, 02070000 // HOLD=&PRTHOLD., 02071000 // DEST=U@PRT155 02080000 //** 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 //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 //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 //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 //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