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

42
Procs/DTSBX201 Normal file
View File

@ -0,0 +1,42 @@
//**** 00000100
//** DAILY REPORT TRANSACTION EXTRACT FOR INTRANET 00000369
//** WEB APPLICATION 00000469
//** (*NO* MSTR UPDATE) 00000505
//** 00000605
//DTSBX201 PROC 00000787
//** DEFNS NEEDED FOR THIS PROC: 00001105
//** LVLNODE = DEVL/TEST/PROD 00001205
//**** 00001408
//STEP0100 EXEC PGM=DTSBX201, 00001587
// 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
//BX200SUM DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.ERR, 00003997
//** DISP=(NEW,CATLG,CATLG), 00004099
// DISP=(MOD,KEEP,KEEP), 00004199
// UNIT=SYSDA, 00004269
// SPACE=(CYL,(20,5),RLSE), 00004399
// DCB=(RECFM=FB,LRECL=73,BLKSIZE=21900) 00004488
//** 00005069
//BX200TRN DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.ERRTRN, 00420190
//** DISP=(NEW,CATLG,KEEP), 00420299
// DISP=(OLD,KEEP,KEEP), 00420399
// UNIT=SYSDA, 00420488
// SPACE=(CYL,(20,5),RLSE), 00420599
// DCB=(RECFM=FB,LRECL=135,BLKSIZE=31050) 00420699
//* 00420788
//BX200HDR DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.HEADER, 00420899
//** DISP=(NEW,CATLG,KEEP), 00420999
// DISP=(OLD,KEEP,KEEP), 00421099
// UNIT=SYSDA, 00422099
// SPACE=(28200,(1000,1000),RLSE), 00423099
// DCB=(RECFM=FB,LRECL=141,BLKSIZE=28200) 00424099
//* 00425099
//* 00470073