144 lines
11 KiB
Plaintext
144 lines
11 KiB
Plaintext
//***** 00010000
|
|
//* 00020000
|
|
//* UI TAX DAILY UPDATE. 00030000
|
|
//* 00040000
|
|
//* HANDLE BD800 RPT ONLY 00041072
|
|
//* 00043016
|
|
//* PARMS NEEDED FOR THIS PROC: 00044091
|
|
//* 00045091
|
|
//* LDEST= PRINT DESTINATION/QUE E.G., LOCAL 00046091
|
|
//* LHOLD= YES/NO (GEN. HOLD) 00047099
|
|
//* LVDHOLD= YES/NO (SPEC. HOLD FOR VIEW-DIRECT) 00047199
|
|
//* LVLNODE= DEVL/TEST/PROD 00048091
|
|
//* S0910= RPT GEN (GDG) OR .GNNNNV00 00049099
|
|
//* 00050091
|
|
//********************************************************************* 00180000
|
|
//* 00210074
|
|
//**** /* 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
|
|
//* 00230099
|
|
//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
|
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 02331099
|
|
//DTSFVRI1 DD DSN=DOESTAX.&LVLNODE..SRTDAILY.RPT&S0910.,DISP=SHR 02340099
|
|
//** 02341099
|
|
//DOESVRO1 DD DSN=&&LBL901,DISP=(OLD,PASS,DELETE) 02344099
|
|
//** 02350019
|
|
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 02360019
|
|
// AMP=('BUFNI=5,BUFND=10') 02370019
|
|
//** 02380019
|
|
//PARMIN DD DUMMY 02390019
|
|
//** 02400019
|
|
//ATLSTIN DD DUMMY 02410019
|
|
//** NEW/REACT/DEACTIVATED EMPLYRS 02529594
|
|
//RPT116R1 DD SYSOUT=(Z,DTS116D1),HOLD=&LVDHOLD., 02529699
|
|
// DEST=&LDEST. 02529799
|
|
//** BATCH CONTROL SUMMARY 02531919
|
|
//RPT301R1 DD SYSOUT=(V,DTS301D1),HOLD=&LVDHOLD., 02532099
|
|
// DEST=&LDEST. 02532199
|
|
//** ACCT DTL RPT (GL) 02532419
|
|
//RPT302R1 DD SYSOUT=(E,DTS302D1),HOLD=&LVDHOLD., 02532599
|
|
// DEST=U@PRT155 02532699
|
|
//** LETTER FOR 303R1 (309R1 FORM) 02533399
|
|
//RPT303R2 DD SYSOUT=(O,DTS303D2),HOLD=&LVDHOLD., 02533499
|
|
// DEST=&LDEST. 02533599
|
|
//** LETTER FOR 303R1 (309R1 FORM) 02533699
|
|
//RPT319R1 DD SYSOUT=(V,DTS319D1),HOLD=&LVDHOLD., 02533799
|
|
// DEST=&LDEST. 02533899
|
|
//** LIEN PKG PRTED CONTROL RPT 02536719
|
|
//RPT404R1 DD SYSOUT=(Z,DTS404D1),HOLD=&LVDHOLD., 02536899
|
|
// DEST=&LDEST. 02536999
|
|
//** INCR IN TOTAL BAL DUE 02539988
|
|
//RPT424R1 DD SYSOUT=(Q,DTS424D1),HOLD=&LVDHOLD., 02540099
|
|
// DEST=&LDEST. 02540199
|
|
//** MISSING RPTS ESTB LST (FCO) 02540488
|
|
//RPT425R1 DD SYSOUT=(Z,DTS425D1),HOLD=&LVDHOLD., 02540599
|
|
// DEST=&LDEST. 02540699
|
|
//** ACCTS REC AUDIT TRAIL RPT 02540988
|
|
//RPT432R1 DD SYSOUT=(Z,DTS432D1),HOLD=&LVDHOLD., 02541099
|
|
// DEST=&LDEST. 02541199
|
|
//** RATE DISCREPANCY LST 02541988
|
|
//RPT502R1 DD SYSOUT=(Z,DTS502D1),HOLD=&LVDHOLD., 02542099
|
|
// DEST=&LDEST. 02542199
|
|
//** FLD ASSGN RPT - TAX DATA 02543488
|
|
//RPT603R1 DD SYSOUT=(Q,DTS603D1),HOLD=&LVDHOLD., 02543599
|
|
// DEST=&LDEST. 02543699
|
|
//** FLD ASSGN RPT - WAGE DATA 02543988
|
|
//RPT604R1 DD SYSOUT=(Q,DTS604D1),HOLD=&LVDHOLD., 02544099
|
|
// DEST=&LDEST. 02544199
|
|
//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
|
|
//** TICKLER TRIG OVERDUE LST 02545988
|
|
//** TRIG DTE<=(CURRDTE-#PARMDAYS) 02546088
|
|
//RPT724R1 DD SYSOUT=(Z,DTS724D1),HOLD=&LVDHOLD., 02546199
|
|
// DEST=&LDEST. 02546299
|
|
//** WAGE RPTS (UC-30/FORM 30) QTRLY 02547899
|
|
//DTS902F1 DD DUMMY 02547999
|
|
//** DAILY UPDATE CONTROL REPORT 02548999
|
|
//RPT904R1 DD SYSOUT=(Q,DTS904D1),HOLD=&LVDHOLD., 02549099
|
|
// DEST=&LDEST. 02549199
|
|
//** ONLINE RECOVERY/RESTART REPORT 02549399
|
|
//RPT905R1 DD SYSOUT=(Z,DTS905D1),HOLD=&LVDHOLD., 02549499
|
|
// DEST=&LDEST. 02549599
|
|
//** ONLINE UPDT LOG PARMS (MUST BE HERE*) 02549788
|
|
//PARM906 DD DUMMY,DCB=BLKSIZE=80 02549888
|
|
//** ONLINE UPDT LOG RPT 02549988
|
|
//** (DAILY (ALSO 'ON REQ' RPT??) MUST BE HERE*) 02550088
|
|
//RPT906R1 DD SYSOUT=(Z,DTS906D1),HOLD=&LVDHOLD., 02550199
|
|
// DEST=&LDEST. 02550299
|
|
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT 02550488
|
|
//RPT907R1 DD SYSOUT=(Z,DTS907D1),HOLD=&LVDHOLD., 02550599
|
|
// DEST=&LDEST. 02550699
|
|
//** WAGE RPTS (UC-30H/HOUSEHOLD) YRLY 02550799
|
|
//DTS910F1 DD DUMMY 02550899
|
|
//** CONTROL REPORT SUMMARY 02551792
|
|
//RPT980R1 DD SYSOUT=(Q,DTS980D1),HOLD=&LVDHOLD., 02552099
|
|
// DEST=&LDEST. 02552292
|
|
//** EXPORT CONTROL REPORTS (JUST IN CASE) 02552392
|
|
//RPT991R1 DD SYSOUT=(Q,DTS991D1),HOLD=&LVDHOLD., 02552599
|
|
// DEST=&LDEST. 02552699
|
|
//** 02560019
|
|
//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, 02569399
|
|
// HOLD=&LHOLD. 02569499
|
|
//** 02569899
|