DUTAS re-platformed to Raincode - Initial Source Code

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

20
Procs/DTSRQ450 Normal file
View File

@ -0,0 +1,20 @@
//DTSRQ450 PROC PARMLIB='DOESTAX.PROD.APPL.PARMLIB' 00021099
//******************************************************************** 00391099
//* COPY WAGE FILE FROM TDEC TO TEMP DATASET * 00392099
//******************************************************************** 00393099
//STEP0100 EXEC PGM=IDCAMS 00394099
//** 00395599
//INDD01 DD DSN=DOESTAX.CONV.W4TRAN.SRT(+0),DISP=SHR 00396099
//** 00471099
//******************************************************************** 00472099
//*** NEXT DATASET IS IN THE DOCS SYSTEM FOR UPDATING THE WAGE FILE 00480099
//*** THIS FILE IS DELETED AFTER EVERY DAILY DOCS SYSTEM UPDATE 00490099
//******************************************************************** 00491099
//** 00500099
//OUTDD01 DD DSN=UI.DWAGE.MAGNETIC,DISP=(NEW,CATLG,DELETE), 00587799
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE), 00587999
// DCB=(RECFM=VBS,BLKSIZE=19069) 00588099
//SYSPRINT DD SYSOUT=(*) 00588199
//SYSIN DD DSN=&PARMLIB(DTSRONE),DISP=SHR 00588299
//* 00588399
//******************************************************************** 00620099