DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
30
Procs/DTSBX206
Normal file
30
Procs/DTSBX206
Normal 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
|
||||
Reference in New Issue
Block a user