DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
18
Procs/DTSBX306
Normal file
18
Procs/DTSBX306
Normal file
@ -0,0 +1,18 @@
|
||||
//**** 00000010
|
||||
//* WRITE DUMMY RECORD TO X306 FILE 00001700
|
||||
//* 00001700
|
||||
//** 00001700
|
||||
//DTSBX306 PROC
|
||||
//** 00001700
|
||||
//STEP0200 EXEC PGM=DTSBX306,
|
||||
// COND=(0,LT),
|
||||
// REGION=0M
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//SYSABOUT DD SYSOUT=*
|
||||
//SYSABEND DD SYSOUT=*
|
||||
//SYSUDUMP DD SYSOUT=*
|
||||
//* 00001700
|
||||
//DTSFX306 DD DSN=ECNTSUP.DOESTAX.&MSTNODE..FTP.X306,
|
||||
// DISP=SHR
|
||||
//* 00001700
|
||||
//*********************************************************************
|
||||
Reference in New Issue
Block a user