19 lines
913 B
Plaintext
19 lines
913 B
Plaintext
//**** 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
|
|
//*********************************************************************
|