24 lines
1.1 KiB
Plaintext
24 lines
1.1 KiB
Plaintext
//DESBD125 PROC 00000010
|
|
//*********************************************************************
|
|
//STEP0100 EXEC PGM=DESBD125,PARM='&LOGNO.'
|
|
//*
|
|
//BD125W4I DD DSN=DOESTAX.CONV.&W4FILE.,
|
|
// DISP=SHR
|
|
//*
|
|
//BD125W4O DD DSN=&&BD125,
|
|
// DISP=(,PASS,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(9000,(900,900),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=90,BLKSIZE=9000)
|
|
//*
|
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00220002
|
|
//***************************************************************** 00320000
|
|
//STEP0200 EXEC PGM=IDCAMS,COND=(0,LT) 00590044
|
|
//SYSPRINT DD SYSOUT=* 00600044
|
|
//*
|
|
//INDD01 DD DSN=&&BD125,DISP=(OLD,DELETE,DELETE) 00610044
|
|
//OUTDD01 DD DSN=DOESTAX.CONV.&W4FILE.,DISP=OLD 00620044
|
|
//*
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR 00630044
|
|
//* 00640044
|