100 lines
7.8 KiB
Plaintext
100 lines
7.8 KiB
Plaintext
//DTSRQ518 JOB (UI,4300,3400,T),ANN.RATE.NOTIC,CLASS=S,MSGCLASS=X, 00000158
|
|
// NOTIFY=ECNTSUP, 00000358
|
|
//**** TYPRUN=SCAN, 00000418
|
|
// USER=#DOADTS, 00000559
|
|
// REGION=0M 00000631
|
|
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
|
//**** CHECK '***>>>' ON LINES BELOW FOR A RERUN 00000731
|
|
//**** 00000831
|
|
//* RATE NOTIFICATION PROCESS FOR ANNUAL FILERS 00000945
|
|
//* 00001046
|
|
//* NORMALLY RUNS IN MAY AFTER ALL TIMELY ANNUAL REPORTS 00001145
|
|
//* HAVE BEEN ENTERED. 00001245
|
|
//* RECALCULATES ESTIMATED RATES BASED ON REPORTED DATA 00001345
|
|
//* AND PRINTS RATE NOTICES FOR ALL ANNUAL FILERS. 00001445
|
|
//**** 00001545
|
|
//* YEARLY EXPERIENCE RATING PART 2B (RUNRQ517) MUST HAVE 00002045
|
|
//* RUN PRIOR TO RUNNING THIS JOB. 00002145
|
|
//**** 00002231
|
|
//* *** THE FOLLOWING DATA ELEMENTS MUST BE AVAILABLE *** 00002331
|
|
//* *** BEFORE STARTING THIS RUN: *** 00002431
|
|
//* *** 1. THE RATE NOTICE DATE (THE DATE *** 00002531
|
|
//* *** PRINTED ON THE RATE NOTICES) ON SCREEN 83 *** 00002631
|
|
//* *** 2. A CALENDAR YEAR REFERENCE FILE RECORD *** 00002731
|
|
//* *** (FCYR) ON SCREEN 81. THIS RECORD WILL *** 00002831
|
|
//* *** INCLUDE THE TAXABLE WAGE BASE AND THE *** 00002931
|
|
//* *** FUTA CREDIT RATE FOR THE NEW RATE YEAR. *** 00003031
|
|
//**** 00003131
|
|
// SET MSTNODE='PROD' REGION VSAM MASTER FILES 00003257
|
|
// SET LVLNODE='PROD' REGION BATCH LOADLIB/PROCLIB 00003357
|
|
//* 00003451
|
|
// SET TPSYRQ='YR2007' 00003560
|
|
// SET RATEYR='AN2007' 00003660
|
|
// SET LDEST=U@PRT65 00003760
|
|
// SET LHOLD='YES' 00003860
|
|
// SET BD750='071,Y,A' /* RTE-YR-START-YRQ,UPD-MST-IND,RUN-TYPE 00003960
|
|
// SET BD790='071' /* RTE-YR-START-YRQ 00004060
|
|
//**** 00004160
|
|
// SET CHGNODE='PROD' 00004260
|
|
// SET CHGMNBR='CHGM002' 00004360
|
|
//**** 00004460
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00004560
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00004660
|
|
//**** BACKUP BEFORE THIS RUN 00004760
|
|
//**** (NOT NEEDED IF RUN RIGHT AFTER A DAILY) 00004860
|
|
//*STEP0100 EXEC DTSUTVSM, 00004960
|
|
//* BKUPGEN='(+1)' 00005060
|
|
//**** RUN THE EXTRACT 00005160
|
|
//STEP0200 EXEC DTSUX518 00006050
|
|
//**** SORT REPORT RECORDS 00041600
|
|
//STEP0300 EXEC PGM=SORT,PARM='VLTEST=0', 00041700
|
|
// COND=(0,LT) 00041800
|
|
//SYSOUT DD SYSOUT=* 00041900
|
|
//SORTIN DD DSN=DOESTAX.&LVLNODE..PER.RPT(+1),DISP=SHR 00042000
|
|
//SORTOUT DD DSN=&&SRPTREC, 00044113
|
|
// DISP=(,PASS,DELETE), 00045015
|
|
// UNIT=SYSDA, 00046000
|
|
// SPACE=(8192,(1000,1000),RLSE), 00047000
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00048015
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00049027
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00050027
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00060027
|
|
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00070027
|
|
//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00071027
|
|
//SORTWK06 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00072027
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSRREC),DISP=SHR 00080000
|
|
//** 00081000
|
|
//STEP0310 EXEC PGM=IDCAMS, SAVE SORTED REPORT FILE 00082013
|
|
// COND=(0,LT) 00082113
|
|
//SYSPRINT DD SYSOUT=* 00082213
|
|
//INDD01 DD DSN=&&SRPTREC, 00082313
|
|
// DISP=(OLD,PASS,DELETE) 00082415
|
|
//OUTDD01 DD DSN=DOESTAX.&LVLNODE..RATE517.RPT.&RATEYR., 00082825
|
|
//**** USE DISP=SHR, IF A RERUN ***>>> 00082924
|
|
//*** DISP=SHR, 00083057
|
|
// DISP=(NEW,CATLG,DELETE), 00083157
|
|
// UNIT=SYSDA, 00083224
|
|
// SPACE=(8192,(1000,1000),RLSE), 00083324
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00083425
|
|
//SYSIN DD * 00083524
|
|
REPRO INFILE(INDD01) - 00083624
|
|
OUTFILE(OUTDD01) - 00083724
|
|
REPLACE 00083824
|
|
/* 00083924
|
|
//**** RUN THE REPORTS 00084000
|
|
//STEP0400 EXEC DTSARRPT 00090000
|
|
//** TEXT VERSION OF ETA204 FOR DOWNLOAD 00110024
|
|
//STEP0100.RPT723R1 DD DUMMY /*LEAVE ASIS TPS FILE 00130060
|
|
//STEP0100.RPT517R2 DD DSN=DOESTAX.&LVLNODE..RATE204.&RATEYR., 00130160
|
|
//**** USE DISP=SHR, IF A RERUN ***>>> 00131030
|
|
//*** DISP=SHR, 00140057
|
|
// DISP=(NEW,CATLG,DELETE), 00141057
|
|
// UNIT=SYSDA, 00150024
|
|
// SPACE=(800,(10,10),RLSE), 00160024
|
|
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=80) 00170024
|
|
//**** BACKUP AFTER THIS RUN 00650000
|
|
//STEP0500 EXEC DTSUTVSM, 00660057
|
|
// BKUPGEN='(+1)' /* IF NO BKP IN STEP0100 00670057
|
|
//** BKUPGEN='(+2)' /* IF BKP RUN IN STEP0100) 00671031
|
|
//** 00680000
|