110 lines
8.6 KiB
Plaintext
110 lines
8.6 KiB
Plaintext
//DTSRQ518 JOB (UI,4300,3400,T),YRLY.ANN.RATEN,CLASS=S,MSGCLASS=X, 00000170
|
|
// NOTIFY=ECNTSUP, 00000370
|
|
// USER=#DOADTS, 00000483
|
|
//**** TYPRUN=SCAN, 00000571
|
|
// REGION=0M 00000631
|
|
//**** 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
|
|
//* *** 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 00003270
|
|
// SET LVLNODE='PROD' REGION BATCH LOADLIB/PROCLIB 00003370
|
|
//* 00003451
|
|
// SET ACHYEAR='FY2009' 00003579
|
|
// SET RATEYR='AN2024' 00003697
|
|
// SET QTRLY='AN2024' 00003797
|
|
// SET LDEST='LOCAL' 00003875
|
|
// SET LHOLD='YES' 00003975
|
|
// SET BD710='241,N,Y,A' (1):RTE-YR-START-YRQ,(2):PURGE-MRCT-IND 00004097
|
|
//* (3):UPD-MST-IND,(4):RUN-TYPE 00004178
|
|
// SET BD750='241,Y,A' /* RTE-YR-START-YRQ,UPD-MST-IND,RUN-TYPE 00004297
|
|
// SET BD790='241' /* RTE-YR-START-YRQ 00004397
|
|
//**** 00004478
|
|
//* SET CHGNODE='PROD' 00004585
|
|
//* SET CHGMNBR='CHGM002' 00004685
|
|
// SET BCKNODE='BACKUP' 00004778
|
|
//**** 00004878
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00004978
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00005078
|
|
//**** BACKUP BEFORE THIS RUN 00005178
|
|
//**** (NOT NEEDED IF RUN RIGHT AFTER A DAILY) 00005278
|
|
//STEP0100 EXEC DTSUTVSM, 00005388
|
|
// BKUPGEN='(+1)' 00005488
|
|
//**** 00005585
|
|
//**** REMOVED CHARGING STEP FROM JOB, CHARGES SET DURING YEARLY RUN ZL100005685
|
|
//**** 00005785
|
|
//**** RUN THE EXTRACT 00005885
|
|
//*STEP0200 EXEC DTSUXCGE EXTRACT BEN CHARGES 00005985
|
|
//*STEP0300.SYSIN DD * 00006085
|
|
//*ANN, , ,YYYYY,000000 00006185
|
|
//* 00006285
|
|
//**** 00006385
|
|
//STEP0200 EXEC DTSUX518 00007075
|
|
//**** 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
|
|
//* DD DSN=DOESTAX.&LVLNODE..PER.RPT(+2),DISP=SHR 00043085
|
|
//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 00080070
|
|
//** 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, 00083062
|
|
// DISP=(NEW,CATLG,DELETE), 00083162
|
|
// 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 DTSVARPT 00090068
|
|
//** TEXT VERSION OF ETA204 FOR DOWNLOAD 00110024
|
|
//STEP0100.RPT517R2 DD DSN=DOESTAX.&LVLNODE..RATE204.&RATEYR., 00130037
|
|
//*** USE DISP=SHR, IF A RERUN ***>>> 00131061
|
|
//* DISP=SHR 00140062
|
|
// DISP=(NEW,CATLG,DELETE), 00141062
|
|
// UNIT=SYSDA, 00150062
|
|
// SPACE=(800,(10,10),RLSE), 00160062
|
|
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=80) 00170062
|
|
//**** 00171074
|
|
//**** /ARCHIVE ANNUAL FILERS 503 RECORDS 00180073
|
|
//STEP0500 EXEC DTSAR518 00190073
|
|
//**** BACKUP AFTER THIS RUN 00650000
|
|
//STEP0600 EXEC DTSUTVSM, 00660073
|
|
//* BKUPGEN='(+1)' /* IF NO BKP IN STEP0100 00670088
|
|
// BKUPGEN='(+2)' /* IF BKP RUN IN STEP0100) 00671088
|
|
//** 00680000
|