313 lines
25 KiB
Plaintext
313 lines
25 KiB
Plaintext
//***** 00010000
|
|
//* UI TAX DAILY UPDATE. 00030099
|
|
//* HANDLE BD800 RPT ONLY 00041099
|
|
//* PARMS NEEDED FOR THIS PROC: 00044099
|
|
//* - LDEST= PRINT DESTINATION/QUE E.G., LOCAL 00046099
|
|
//* - LHOLD= YES/NO 00047099
|
|
//* - LVLNODE= DEVL/TEST/PROD 00048099
|
|
//* - S0910= RPT GEN (GDG) 00049099
|
|
//**** 00180099
|
|
//**** /* 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
|
|
//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
|
|
//DTSFVRI1 DD DSN=DOESTAX.&LVLNODE..SRTDAILY.RPT(&S0910.),DISP=SHR 02340076
|
|
//** 02341099
|
|
//DOESVRO1 DD DSN=&&LBL901,DISP=(OLD,PASS,DELETE) 02342099
|
|
//** 02350019
|
|
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 02360019
|
|
// AMP=('BUFNI=5,BUFND=10') 02370019
|
|
//** 02381099
|
|
//PARMIN DD DUMMY 02390019
|
|
//** 02400019
|
|
//ATLSTIN DD DUMMY 02410019
|
|
//** GEN. 1ST LETTER, REG. CYCLE A 02420019
|
|
//RPT102R1 DD SYSOUT=I, 02430019
|
|
// DEST=&LDEST., 02440088
|
|
// HOLD=&LHOLD. 02441088
|
|
//** GEN. 2ND LETTER, REG. CYCLE A 02450019
|
|
//RPT103R1 DD SYSOUT=I, 02460019
|
|
// DEST=&LDEST., 02461088
|
|
// HOLD=&LHOLD. 02471088
|
|
//** LTR TO OUT-OF-STATE AGENCY 02480019
|
|
//RPT105R1 DD SYSOUT=I, 02490019
|
|
// DEST=&LDEST., 02491088
|
|
// HOLD=&LHOLD. 02492088
|
|
//** NOT LIABLE LTR 02510019
|
|
//RPT108R1 DD SYSOUT=W, 02511019
|
|
// DEST=U@PRT155, 02512088
|
|
// HOLD=&LHOLD. 02513088
|
|
//** MISSING CONTRIB & WAGE RPTS 02522019
|
|
//RPT109R1 DD SYSOUT=I, 02523019
|
|
// DEST=&LDEST., 02523188
|
|
// HOLD=&LHOLD. 02523288
|
|
//** HOUSEHOLD - ANNUAL VERS. 02523399
|
|
//RPT109R2 DD SYSOUT=I, 02523499
|
|
// DEST=&LDEST., 02523599
|
|
// HOLD=&LHOLD. 02523699
|
|
//** NOTICE OF SUBJECTIVETY 02525019
|
|
//RPT112R1 DD SYSOUT=I, 02526019
|
|
// DEST=&LDEST., 02526188
|
|
// HOLD=&LHOLD. 02526288
|
|
//** HOUSEHOLD - ANNUAL VERS. 02526399
|
|
//RPT112R2 DD SYSOUT=I, 02526499
|
|
// DEST=&LDEST., 02526599
|
|
// HOLD=&LHOLD. 02526699
|
|
//** WELCOME LETTER 02528019
|
|
//RPT115R1 DD SYSOUT=I, 02529064
|
|
// DEST=&LDEST., 02529188
|
|
// HOLD=&LHOLD. 02529288
|
|
//** NEW/REACT/DEACTIVATED EMPLYRS 02529594
|
|
//RPT116R1 DD SYSOUT=Z, 02529619
|
|
// DEST=&LDEST., 02529788
|
|
// HOLD=&LHOLD. 02529888
|
|
//** (FOR FUTURE USE) 02529919
|
|
//RPT116R2 DD SYSOUT=Z, 02530019
|
|
// DEST=&LDEST., 02530188
|
|
// HOLD=&LHOLD. 02530288
|
|
//** GENRC/DEMAND/'8 QTRS 0' INACTVATN LTR 02530494
|
|
//RPT117R1 DD SYSOUT=W, 02530519
|
|
// DEST=U@PRT155, 02530688
|
|
// HOLD=&LHOLD. 02530788
|
|
//** FR-500 EMPLYR REG. 02531419
|
|
//RPT127R1 DD SYSOUT=I, 02531558
|
|
// DEST=&LDEST., 02531688
|
|
// HOLD=&LHOLD. 02531788
|
|
//** HOUSEHOLD REQUESTS 02531899
|
|
//RPT131R1 DD SYSOUT=I, 02531999
|
|
// DEST=&LDEST., 02532099
|
|
// HOLD=&LHOLD. 02532199
|
|
//** HOUSEHOLD CONFIRMATIONS 02532299
|
|
//RPT131R2 DD SYSOUT=W, 02532399
|
|
// DEST=U@PRT155, 02532499
|
|
// HOLD=&LHOLD. 02532599
|
|
//** BATCH CONTROL SUMMARY 02532619
|
|
//RPT301R1 DD SYSOUT=Z, 02532719
|
|
// DEST=&LDEST., 02532888
|
|
// HOLD=&LHOLD. 02532988
|
|
//** ACCT DTL RPT (GL) 02533019
|
|
//RPT302R1 DD SYSOUT=E, 02533183
|
|
// DEST=U@PRT155, 02533288
|
|
// HOLD=&LHOLD. 02533388
|
|
//** REVENUE REFUND VOUCHER 02533459
|
|
//RPT303R1 DD SYSOUT=O, 02533572
|
|
// DEST=&LDEST., 02533688
|
|
// HOLD=&LHOLD. 02533788
|
|
//** LETTER FOR 303R1 (309R1 FORM) 02533898
|
|
//RPT303R2 DD SYSOUT=O, 02533998
|
|
// DEST=&LDEST., 02534098
|
|
// HOLD=&LHOLD. 02534198
|
|
//** STATEMENT OF ACCT (CREDIT MEMO-SM) 02534219
|
|
//** (DAILY - NORMALLY A CICS DIRECT PRINT) 02534370
|
|
//RPT309R1 DD SYSOUT=W, 02534419
|
|
// DEST=U@PRT155, 02534588
|
|
// HOLD=&LHOLD. 02534688
|
|
//** STATEMENT OF ACCT (CREDIT MEMO-PC) 02534719
|
|
//RPT309R2 DD SYSOUT=I, 02534819
|
|
// DEST=&LDEST., 02534988
|
|
// HOLD=&LHOLD. 02535088
|
|
//** STATEMENT OF ACCT (CONTROL RPT) 02535119
|
|
//RPT310R1 DD SYSOUT=Z, 02535219
|
|
// DEST=&LDEST., 02535388
|
|
// HOLD=&LHOLD. 02535488
|
|
//** ESTIMATED REPORT LETTER 02535569
|
|
//RPT316R1 DD SYSOUT=W, 02535686
|
|
// DEST=U@PRT155, 02535788
|
|
// HOLD=&LHOLD. 02535888
|
|
//** LIEN FORMS (& R3?) 02535919
|
|
//RPT403R1 DD SYSOUT=I, 02536019
|
|
// DEST=&LDEST., 02536188
|
|
// HOLD=&LHOLD. 02536288
|
|
//** LICENSE LIEN LTR 02536319
|
|
//** (NO LONGER PRODUCED IN THIS FORM 991025) 02536471
|
|
//RPT403R2 DD SYSOUT=*,DEST=U@PRT65,HOLD=YES 02536585
|
|
//**RPT403R2 DD SYSOUT=I, 02536671
|
|
//** DEST=&LDEST., 02536788
|
|
//** HOLD=&LHOLD. 02536888
|
|
//** LIEN PKG PRTED CONTROL RPT 02536919
|
|
//RPT404R1 DD SYSOUT=Z, 02537019
|
|
// DEST=&LDEST., 02537188
|
|
// HOLD=&LHOLD. 02537288
|
|
//** STATEMENT OF ACCT (DEBIT MEMO-SM) 02537319
|
|
//** (DAILY - NORMALLY A CICS DIRECT PRINT) 02537429
|
|
//RPT414R1 DD SYSOUT=W, 02537519
|
|
// DEST=U@PRT155, 02537688
|
|
// HOLD=&LHOLD. 02537788
|
|
//** STATEMENT OF ACCT (PAGE 2) 02537885
|
|
//RPT414R2 DD SYSOUT=W, 02537973
|
|
// DEST=U@PRT155, 02538088
|
|
// HOLD=&LHOLD. 02538188
|
|
//** COPY FOR DEPT. 02538385
|
|
//** (NO LONGER PRODUCED IN THIS FORM 991125) 02538485
|
|
//**RPT414R3 DD SYSOUT=I, 02538585
|
|
//** DEST=&LDEST., 02538688
|
|
//** HOLD=&LHOLD. 02538788
|
|
//** SUMMARY FOR DEPT. 02538988
|
|
//RPT414R3 DD SYSOUT=Z, 02539089
|
|
// DEST=&LDEST., 02539188
|
|
// HOLD=&LHOLD. 02539288
|
|
//** STATEMENT OF ACCT (CONTROL RPT) 02539488
|
|
//RPT416R1 DD SYSOUT=Z, 02539588
|
|
// DEST=&LDEST., 02539688
|
|
// HOLD=&LHOLD. 02539788
|
|
//** INCR IN TOTAL BAL DUE 02539988
|
|
//RPT424R1 DD SYSOUT=Q,COPIES=2, 02540093
|
|
// DEST=&LDEST., 02540188
|
|
// HOLD=&LHOLD. 02540288
|
|
//** MISSING RPTS ESTB LST (FCO) 02540488
|
|
//RPT425R1 DD SYSOUT=Z, 02540588
|
|
// DEST=&LDEST., 02540688
|
|
// HOLD=&LHOLD. 02540788
|
|
//** ACCTS REC AUDIT TRAIL RPT 02540988
|
|
//RPT432R1 DD SYSOUT=Z, 02541088
|
|
// DEST=&LDEST., 02541188
|
|
// HOLD=&LHOLD. 02541288
|
|
//** DEFERRED PAYMENT CONTRACT 02541488
|
|
//RPT434R1 DD SYSOUT=I,COPIES=3, 02541599
|
|
// DEST=&LDEST., 02541688
|
|
// HOLD=&LHOLD. 02541788
|
|
//** RATE DISCREPANCY LST 02541988
|
|
//RPT502R1 DD SYSOUT=Z, 02542088
|
|
// DEST=&LDEST., 02542188
|
|
// HOLD=&LHOLD. 02542288
|
|
//** RATE NOTICES (632) 02542488
|
|
//RPT503R1 DD SYSOUT=W, 02542588
|
|
// DEST=U@PRT155, 02542688
|
|
// HOLD=&LHOLD. 02542788
|
|
//** RATE NOTICES (632A) 02542988
|
|
//RPT503R2 DD SYSOUT=W, 02543088
|
|
// DEST=U@PRT155, 02543188
|
|
// HOLD=&LHOLD. 02543288
|
|
//** FLD ASSGN RPT - TAX DATA 02543488
|
|
//RPT603R1 DD SYSOUT=Q, 02543596
|
|
// DEST=&LDEST., 02543688
|
|
// HOLD=&LHOLD. 02543788
|
|
//** FLD ASSGN RPT - WAGE DATA 02543988
|
|
//RPT604R1 DD SYSOUT=Q, 02544096
|
|
// DEST=&LDEST., 02544188
|
|
// HOLD=&LHOLD. 02544288
|
|
//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
|
|
//** AUDIT SURVEY CARDS 02544888
|
|
//RPT608R1 DD SYSOUT=W, 02544988
|
|
// DEST=U@PRT155, 02545088
|
|
// HOLD=&LHOLD. 02545188
|
|
//** REQ FOR FEIN LETTER 02545388
|
|
//** (DISTINCT FROM RPT903R1) 02545488
|
|
//RPT712R1 DD SYSOUT=W, 02545599
|
|
// DEST=U@PRT155, 02545688
|
|
// HOLD=&LHOLD. 02545788
|
|
//** TICKLER TRIG OVERDUE LST 02545988
|
|
//** TRIG DTE<=(CURRDTE-#PARMDAYS) 02546088
|
|
//RPT724R1 DD SYSOUT=Z, 02546188
|
|
// DEST=&LDEST., 02546288
|
|
// HOLD=&LHOLD. 02546388
|
|
//** LMI MISSING EMPLOYEE LTR 02546599
|
|
//RPT726R1 DD SYSOUT=W, 02546688
|
|
// DEST=U@PRT155, 02546788
|
|
// HOLD=&LHOLD. 02546888
|
|
//** EMPLOYER WAGE REQUEST 02546999
|
|
//RPT751R1 DD SYSOUT=I, 02547099
|
|
// DEST=&LDEST., 02547199
|
|
// HOLD=&LHOLD. 02547299
|
|
//** /* NO LONGER PRODUCED THIS WAY (05/17/01) 02547399
|
|
//** /* EXTRACT & PRINT LABELS (5-LINE) 02547499
|
|
//**RPT901R1 DD SYSOUT=(C,,6662),FCB=P663, 02547599
|
|
//** DEST=&LDEST., 02547699
|
|
//** HOLD=&LHOLD. 02547799
|
|
//** WAGE RPTS (UC-30/FORM 30) DAILY 02547899
|
|
//RPT902R1 DD SYSOUT=I, 02547999
|
|
// DEST=&LDEST., 02548088
|
|
// HOLD=&LHOLD. 02548188
|
|
//** WAGE RPTS (UC-30/FORM 30) QTRLY 02548299
|
|
//DTS902F1 DD DUMMY 02548399
|
|
//** REQ FOR FED ID (UC-643) 02548488
|
|
//RPT903R1 DD SYSOUT=W, 02548588
|
|
// DEST=U@PRT155, 02548688
|
|
// HOLD=&LHOLD. 02548788
|
|
//** DAILY UPDATE CONTROL REPORT 02548888
|
|
//RPT904R1 DD SYSOUT=Q, 02548988
|
|
// DEST=&LDEST., 02549088
|
|
// HOLD=&LHOLD. 02549188
|
|
//** ONLINE RECOVERY/RESTART REPORT 02549288
|
|
//RPT905R1 DD SYSOUT=Z, 02549388
|
|
// DEST=&LDEST., 02549488
|
|
// HOLD=&LHOLD. 02549588
|
|
//** ONLINE UPDT LOG PARMS (MUST BE HERE*) 02549688
|
|
//PARM906 DD DUMMY,DCB=BLKSIZE=80 02549788
|
|
//** ONLINE UPDT LOG RPT 02549888
|
|
//** (DAILY (ALSO 'ON REQ' RPT??) MUST BE HERE*) 02549988
|
|
//RPT906R1 DD SYSOUT=Z, 02550088
|
|
// DEST=&LDEST., 02550188
|
|
// HOLD=&LHOLD. 02550288
|
|
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT 02550388
|
|
//RPT907R1 DD SYSOUT=Z, 02550490
|
|
// DEST=&LDEST., 02550588
|
|
// HOLD=&LHOLD. 02550688
|
|
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT 02550888
|
|
//RPT907R2 DD SYSOUT=Z,COPIES=2, 02550999
|
|
// DEST=&LDEST., 02551088
|
|
// HOLD=&LHOLD. 02551188
|
|
//** UC-30 CNTS RPTN (USUALLY A MONTHLY) 02551388
|
|
//RPT908R1 DD SYSOUT=Z, 02551488
|
|
// DEST=&LDEST., 02551588
|
|
// HOLD=&LHOLD. 02551688
|
|
//** WAGE RPTS (UC-30H/HOUSEHOLD) QTRLY 02551799
|
|
//DTS910F1 DD DUMMY 02551899
|
|
//** UC-30 NOTICES - HOUSEHOLD DAILY 02551999
|
|
//RPT910R1 DD SYSOUT=I, 02552099
|
|
// DEST=&LDEST., 02552199
|
|
// HOLD=&LHOLD. 02552299
|
|
//** CONTROL REPORT SUMMARY 02552492
|
|
//RPT980R1 DD SYSOUT=Q,COPIES=2, 02552592
|
|
// HOLD=&LHOLD., 02552692
|
|
// DEST=&LDEST. 02552792
|
|
//** EXPORT CONTROL REPORTS (JUST IN CASE) 02552892
|
|
//RPT991R1 DD SYSOUT=Q, 02552995
|
|
// DEST=&LDEST., 02553088
|
|
// HOLD=&LHOLD. 02554088
|
|
//**** 02560099
|
|
//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, 02569499
|
|
// HOLD=&LHOLD. 02569599
|
|
//** 02570099
|