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

91
JCL/DTSZZ503.jcl Normal file
View File

@ -0,0 +1,91 @@
//DTSRQ503 JOB (UI,4300,3400,T),PRODYRLY.RATING.2A,CLASS=P, 00000197
// MSGCLASS=X, 00000261
// NOTIFY=ECNTSUP, 00000394
//*** USER=#DOADTS, 00000499
//**** TYPRUN=SCAN, 00000597
// REGION=0M 00000697
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//**** 00000797
//* AFTER YEARLY EXPERIENCE RATING PART 1 (RUNRQ506) 00000897
//* & AFTER REPORT REVIEW AND ANY NEEDED ADJUSTMENTS, 00000997
//* RUN YEARLY EXPERIENCE RATING PART 2A (THIS RUN) (*NO* MST UPDATE) 00001097
//* AND/OR 00001197
//* RUN YEARLY EXPERIENCE RATING PART 2B (RUNRQ517) (WITH MST UPDATE) 00001297
//**** 00001397
//* *** THE FOLLOWING DATA ELEMENT MUST BE AVAILABLE (E.G.,) 00001497
//* *** BEFORE STARTING THIS RUN: 00001597
//* *** 1. ENTER THE RATE NOTICE DATE (THE DATE (010801) 00001762
//* *** PRINTED ON THE RATE NOTICES) ON SCREEN 83 00001862
//* *** 2. ADD A CALENDAR YEAR REFERENCE FILE RECORD (01) 00001962
//* *** (FCYR) ON SCREEN 81. THIS RECORD WILL 00002062
//* *** INCLUDE THE TAXABLE WAGE BASE AND THE (9,000.00) 00002162
//* *** FUTA CREDIT RATE FOR THE NEW RATE YEAR. (5.4) 00002262
//**** 00002360
// SET RATEYR='YR2007' 00002599
// SET TPSYRQ='YR2007' 00002699
// SET LDEST=U@PRT65 00002760
// SET LHOLD='YES' 00002860
// SET BD750='071,N,R' RTE-YR-START-YRQ,UPD-MSTR,R= REG;A= ANN 00002999
// SET BD790='071' RTE-YR-START-YRQ 00003099
//**** 00003190
// SET LVLNODE='PROD' 00003299
// SET CHGNODE='PROD' 00003399
// SET CHGMNBR='CHGM002' 00003499
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00003599
//**** 00003699
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00003799
//**** /* BKP BEFORE RUN (NOT NEEDED 00004498
//*STEP0100 EXEC DTSUTVSM, /* IF RUN RIGHT AFTER DAILY) 00004599
//* BKUPGEN='(+1)' 00004699
//**** 00004867
//STEP0200 EXEC DTSUX503 00004947
//STEP0100.DTSFBTCO DD DUMMY 00005061
//**** SORT REPORT RECORDS 00041639
//STEP0300 EXEC PGM=SORT,PARM='VLTEST=0', 00041739
// COND=(0,LT) 00041839
//SYSOUT DD SYSOUT=* 00041939
//SORTIN DD DSN=DOESTAX.&LVLNODE..PER.RPT(+1),DISP=SHR 00042042
//** DD DSN=DOESTAX.&LVLNODE..PER.RPT(+2),DISP=SHR 00043066
//SORTOUT DD DSN=&&SRPTREC, 00044039
// DISP=(,PASS,DELETE), 00045039
// UNIT=SYSDA, 00046039
// SPACE=(8192,(1000,1000),RLSE), 00047039
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00048039
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00049039
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00050039
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00060039
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00070039
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSRREC),DISP=SHR 00080042
//** 00081040
//** /* SAVE SORTED REPORT FILE 00082098
//STEP0410 EXEC PGM=IDCAMS, 00082198
// COND=(0,LT) 00082298
//SYSPRINT DD SYSOUT=* 00082398
//INDD01 DD DSN=&&SRPTREC, 00082498
// DISP=(OLD,PASS,DELETE) 00082598
//OUTDD01 DD DSN=DOESTAX.&LVLNODE..RATE503.RPT.&RATEYR., 00082698
//**** USE DISP=SHR, IF A RERUN ***>>> 00082798
//*** DISP=SHR, 00082898
// DISP=(NEW,CATLG,DELETE), 00082998
// UNIT=SYSDA, 00083098
// SPACE=(8192,(1000,1000),RLSE), 00083198
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00083298
//SYSIN DD * 00083398
REPRO INFILE(INDD01) - 00083498
OUTFILE(OUTDD01) - 00083598
REPLACE 00083698
/* 00083798
//**** RUN THE REPORTS 00084040
//STEP0500 EXEC DTSARRPT 00090098
//*STEP0100.PARMIN DD * 00091080
//*DTSBD800,EXC,515 00092080
//*/* 00093080
//STEP0100.RPT723R1 DD DUMMY /* TPS FILE 00100099
//**STEP0100.RPT503R1 DD DUMMY /* RATE NOTICES (W) NOT NEEDED 00100199
//**STEP0100.RPT503R2 DD DUMMY /* PENALTY RATES (W) NOT NEEDED 00101095
//**STEP0100.RPT517R2 DD DUMMY /* ETA204 DOWNLOAD NOT NEEDED 00110095
//** 00680039
//**** /* BKP AFTER THE RUN 00690097
//STEP0600 EXEC DTSUTVSM, /* MAKE IT (+2) IF BKP IN STEP0100 00700098
// BKUPGEN='(+1)' /* ALSO RUN 00710099
//** 00720099