DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
35
Procs/DTSBX202
Normal file
35
Procs/DTSBX202
Normal file
@ -0,0 +1,35 @@
|
||||
//**** 00000100
|
||||
//** DAILY ACCT TRANSACTION EXTRACT FOR TDEC 00000399
|
||||
//** VALIDATION FILE 00000499
|
||||
//** (*NO* MSTR UPDATE) 00000505
|
||||
//** 00000605
|
||||
//DTSBX202 PROC 00000799
|
||||
//** DEFNS NEEDED FOR THIS PROC: 00001105
|
||||
//** LVLNODE = DEVL/TEST/PROD 00001205
|
||||
//**** 00001408
|
||||
//STEP0100 EXEC PGM=DTSBX202, 00001599
|
||||
// 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
|
||||
//DTSFTRAN DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.ERRTRN.AM, 00420199
|
||||
//* 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
|
||||
//DTSFHDR DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.BX217.AM, 00420899
|
||||
//* DISP=(NEW,CATLG,KEEP), 00420999
|
||||
// DISP=(OLD,KEEP,KEEP), 00421099
|
||||
// UNIT=SYSDA, 00422099
|
||||
// SPACE=(28200,(1000,1000),RLSE), 00423099
|
||||
// DCB=(RECFM=FB,LRECL=148,BLKSIZE=29600) 00424099
|
||||
//* 00425099
|
||||
//* 00470073
|
||||
Reference in New Issue
Block a user