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

30
Procs/DTSBX206 Normal file
View File

@ -0,0 +1,30 @@
//**** 00000100
//** DAILY R204 (CHANGES TO ARPT-EMP-NO) EXTRACT 00000396
//** FOR INTRANET WEB APPLICATION 00000496
//** (*NO* MSTR UPDATE) 00000505
//** 00000605
//DTSBX206 PROC 00000796
//** DEFNS NEEDED FOR THIS PROC: 00001105
//** LVLNODE = DEVL/TEST/PROD 00001205
//**** 00001408
//STEP0100 EXEC PGM=DTSBX206, 00001596
// COND=(0,LT) 00001669
//SYSOUT DD SYSOUT=* 00002069
//SYSABOUT DD SYSOUT=* 00002169
//SYSABEND DD SYSOUT=* 00002269
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00002369
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, 00002469
// AMP=('BUFNI=5,BUFND=10') 00002569
//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR, 00002669
// AMP=('BUFNI=5,BUFND=10') 00002769
//** 00003269
//DTSFVRI1 DD DSN=DOESTAX.&MSTNODE..SRTDAILY.RPT(+0), 00003397
// DISP=SHR 00003497
//* 00003596
//DTSFEAUD DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.BX206, 00003696
//** DISP=(NEW,CATLG,KEEP), 00003799
// DISP=(OLD,KEEP,KEEP), 00003899
// UNIT=SYSDA, 00003996
// SPACE=(CYL,(10,5),RLSE), 00004098
// DCB=(RECFM=FB,LRECL=47,BLKSIZE=2350) 00005096
//* 00470073