264 lines
21 KiB
Plaintext
264 lines
21 KiB
Plaintext
//***** 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
|