giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

85
JCL/DTSZQ517.jcl Normal file
View File

@ -0,0 +1,85 @@
//DTSZQ517 JOB (UI,4300,3400,T),PRODYRLY.RATING.2B, 00000163
// CLASS=P,MSGCLASS=X, 00000261
// NOTIFY=ECNTSUP, 00000363
//**** TYPRUN=SCAN, 00000458
// REGION=0M 00000631
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//**** CHECK '***>>>' ON LINES BELOW FOR A RERUN 00000731
//**** 00000831
//* AFTER YEARLY EXPERIENCE RATING PART 1 (RUNRQ500) 00000931
//* & AFTER REPORT REVIEW AND ANY NEEDED ADJUSTMENTS, 00001031
//* RUN YEARLY EXPERIENCE RATING PART 2A (DTSRQ517) (MST UPDATE) 00001131
//* AND/OR 00001231
//* RUN YEARLY EXPERIENCE RATING PART 2B (DTSRQ503) (NO MST UPDATE) 00001331
//**** 00001431
//* *** THE FOLLOWING DATA ELEMENTS MUST BE AVAILABLE *** 00001531
//* *** BEFORE STARTING THIS RUN: *** 00001631
//* *** 1. THE RATE NOTICE DATE (THE DATE *** 00001731
//* *** PRINTED ON THE RATE NOTICES) ON SCREEN 83 *** 00001831
//* *** 2. A CALENDAR YEAR REFERENCE FILE RECORD *** 00001931
//* *** (FCYR) ON SCREEN 81. THIS RECORD WILL *** 00002031
//* *** INCLUDE THE TAXABLE WAGE BASE AND THE *** 00002131
//* *** FUTA CREDIT RATE FOR THE NEW RATE YEAR. *** 00002231
//**** 00002331
// SET LOADLIB='PROD' 00002461
// SET LVLNODE='PROD' 00002561
// SET TPSYRQ='YR2012' 00002665
// SET RATEYR='YR2012' 00002765
// SET LDEST=U@PRT65 00002864
// SET LHOLD='YES' 00002964
// SET BD750='121,Y,R' /* RTE-YR-START-YRQ,UPD-MST-IND,RUN-TYPE 00003065
// SET BD790='121' /* RTE-YR-START-YRQ A=ANNUAL 00003165
//**** /* R=REGULAR 00003265
// SET CHGNODE='PROD' 00003364
// SET CHGMNBR='CHGM002' 00003464
//**** 00003564
//PROCLIB JCLLIB ORDER=DOESTAX.&LOADLIB..PROCLIB 00003664
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00003764
//**** BACKUP BEFORE THIS RUN 00003800
//**** (NOT NEEDED IF RUN RIGHT AFTER A DAILY) 00003931
//STEP0300 EXEC PGM=SORT,PARM='VLTEST=0', 00041700
// COND=(0,LT) 00041800
//SYSOUT DD SYSOUT=* 00041900
//SORTIN DD DSN=DOESTAX.&LVLNODE..PER.RPT.G2873V00,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, 00083060
//** DISP=(NEW,CATLG,DELETE), 00083160
// 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 DTSVRRPT 00090000
//** TEXT VERSION OF ETA204 FOR DOWNLOAD 00110024
//STEP0100.RPT517R2 DD DSN=DOESTAX.&LVLNODE..RATE204A.&RATEYR., 00130037
//**** USE DISP=SHR, IF A RERUN ***>>> 00131030
// DISP=SHR, 00140060
//** DISP=(NEW,CATLG,DELETE), 00141060
// UNIT=SYSDA, 00150024
// SPACE=(800,(10,10),RLSE), 00160024
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=80) 00170024
//** 00180061
//** 00680000