DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
107
JCL/DTSRZ518.jcl
Normal file
107
JCL/DTSRZ518.jcl
Normal file
@ -0,0 +1,107 @@
|
||||
//DTSRQ518 JOB (UI,4300,3400,T),YRLY.ANN.RATEN,CLASS=S,MSGCLASS=X, 00000100
|
||||
// NOTIFY=ECNTSUP, 00000300
|
||||
// USER=#DOADTS, 00000400
|
||||
//**** TYPRUN=SCAN, 00000500
|
||||
// REGION=0M 00000600
|
||||
//**** 00000800
|
||||
//* RATE NOTIFICATION PROCESS FOR ANNUAL FILERS 00000900
|
||||
//* 00001000
|
||||
//* NORMALLY RUNS IN MAY AFTER ALL TIMELY ANNUAL REPORTS 00001100
|
||||
//* HAVE BEEN ENTERED. 00001200
|
||||
//* RECALCULATES ESTIMATED RATES BASED ON REPORTED DATA 00001300
|
||||
//* AND PRINTS RATE NOTICES FOR ALL ANNUAL FILERS. 00001400
|
||||
//**** 00001500
|
||||
//* *** THE FOLLOWING DATA ELEMENTS MUST BE AVAILABLE *** 00002300
|
||||
//* *** BEFORE STARTING THIS RUN: *** 00002400
|
||||
//* *** 1. THE RATE NOTICE DATE (THE DATE *** 00002500
|
||||
//* *** PRINTED ON THE RATE NOTICES) ON SCREEN 83 *** 00002600
|
||||
//* *** 2. A CALENDAR YEAR REFERENCE FILE RECORD *** 00002700
|
||||
//* *** (FCYR) ON SCREEN 81. THIS RECORD WILL *** 00002800
|
||||
//* *** INCLUDE THE TAXABLE WAGE BASE AND THE *** 00002900
|
||||
//* *** FUTA CREDIT RATE FOR THE NEW RATE YEAR. *** 00003000
|
||||
//**** 00003100
|
||||
// SET MSTNODE='PROD' REGION VSAM MASTER FILES 00003200
|
||||
// SET LVLNODE='PROD' REGION BATCH LOADLIB/PROCLIB 00003300
|
||||
//* 00003400
|
||||
// SET ACHYEAR='FY2009' 00003500
|
||||
// SET RATEYR='AN2013' 00003600
|
||||
// SET QTRLY='AN2013' 00003700
|
||||
// SET LDEST='LOCAL' 00003800
|
||||
// SET LHOLD='YES' 00003900
|
||||
// SET BD710='131,N,Y,A' (1):RTE-YR-START-YRQ,(2):PURGE-MRCT-IND 00004000
|
||||
//* (3):UPD-MST-IND,(4):RUN-TYPE 00004100
|
||||
// SET BD750='131,Y,A' /* RTE-YR-START-YRQ,UPD-MST-IND,RUN-TYPE 00004200
|
||||
// SET BD790='131' /* RTE-YR-START-YRQ 00004300
|
||||
//**** 00004400
|
||||
// SET CHGNODE='PROD' 00004500
|
||||
// SET CHGMNBR='CHGM002' 00004600
|
||||
// SET BCKNODE='BACKUP' 00004700
|
||||
//**** 00004800
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00004900
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00005000
|
||||
//**** BACKUP BEFORE THIS RUN 00005100
|
||||
//**** (NOT NEEDED IF RUN RIGHT AFTER A DAILY) 00005200
|
||||
//*STEP0100 EXEC DTSUTVSM, 00005300
|
||||
//* BKUPGEN='(+1)' 00005400
|
||||
//**** RUN THE EXTRACT 00005500
|
||||
//**** RUN THE EXTRACT 00005600
|
||||
//STEP0200 EXEC DTSUXCGE EXTRACT BEN CHARGES 00005700
|
||||
//STEP0300.SYSIN DD * 00005800
|
||||
ANN, , ,YYYYY,000000 00005900
|
||||
/* 00006000
|
||||
//**** 00006100
|
||||
//STEP0200 EXEC DTSUX518 00007000
|
||||
//**** 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 00043000
|
||||
//SORTOUT DD DSN=&&SRPTREC, 00044100
|
||||
// DISP=(,PASS,DELETE), 00045000
|
||||
// UNIT=SYSDA, 00046000
|
||||
// SPACE=(8192,(1000,1000),RLSE), 00047000
|
||||
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00048000
|
||||
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00049000
|
||||
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00050000
|
||||
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00060000
|
||||
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00070000
|
||||
//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00071000
|
||||
//SORTWK06 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00072000
|
||||
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSRREC),DISP=SHR 00080000
|
||||
//** 00081000
|
||||
//STEP0310 EXEC PGM=IDCAMS, SAVE SORTED REPORT FILE 00082000
|
||||
// COND=(0,LT) 00082100
|
||||
//SYSPRINT DD SYSOUT=* 00082200
|
||||
//INDD01 DD DSN=&&SRPTREC, 00082300
|
||||
// DISP=(OLD,PASS,DELETE) 00082400
|
||||
//OUTDD01 DD DSN=DOESTAX.&LVLNODE..RATE517.RPT.&RATEYR., 00082800
|
||||
//**** USE DISP=SHR, IF A RERUN ***>>> 00082900
|
||||
//** DISP=SHR, 00083000
|
||||
// DISP=(NEW,CATLG,DELETE), 00083100
|
||||
// UNIT=SYSDA, 00083200
|
||||
// SPACE=(8192,(1000,1000),RLSE), 00083300
|
||||
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00083400
|
||||
//SYSIN DD * 00083500
|
||||
REPRO INFILE(INDD01) - 00083600
|
||||
OUTFILE(OUTDD01) - 00083700
|
||||
REPLACE 00083800
|
||||
/* 00083900
|
||||
//**** RUN THE REPORTS 00084000
|
||||
//STEP0400 EXEC DTSVARPT 00090000
|
||||
//** TEXT VERSION OF ETA204 FOR DOWNLOAD 00110000
|
||||
//STEP0100.RPT517R2 DD DSN=DOESTAX.&LVLNODE..RATE204.&RATEYR., 00130000
|
||||
//*** USE DISP=SHR, IF A RERUN ***>>> 00131000
|
||||
//* DISP=SHR 00140000
|
||||
// DISP=(NEW,CATLG,DELETE), 00141000
|
||||
// UNIT=SYSDA, 00150000
|
||||
// SPACE=(800,(10,10),RLSE), 00160000
|
||||
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=80) 00170000
|
||||
//**** 00171000
|
||||
//**** /ARCHIVE ANNUAL FILERS 503 RECORDS 00180000
|
||||
//STEP0500 EXEC DTSAR518 00190000
|
||||
//**** BACKUP AFTER THIS RUN 00650000
|
||||
//STEP0600 EXEC DTSUTVSM, 00660000
|
||||
// BKUPGEN='(+1)' /* IF NO BKP IN STEP0100 00670000
|
||||
//* BKUPGEN='(+2)' /* IF BKP RUN IN STEP0100) 00671000
|
||||
//** 00680000
|
||||
Reference in New Issue
Block a user