26 lines
1.2 KiB
Plaintext
26 lines
1.2 KiB
Plaintext
//DESBD120 PROC 00000010
|
|
//*
|
|
//*********************************************************************
|
|
//STEP0100 EXEC PGM=DESBD120,PARM='&LOGNO.'
|
|
//*
|
|
//BD120EMI DD DSN=DOESTAX.CONV.&EMFILE.,
|
|
// DISP=SHR
|
|
//*
|
|
//BD120EMO DD DSN=&&BD120,
|
|
// DISP=(,PASS,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(8192,(10,100),RLSE),
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
|
|
//* 00180028
|
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00220002
|
|
//***************************************************************** 00320000
|
|
//*
|
|
//STEP0200 EXEC PGM=IDCAMS,COND=(0,LT) 00590044
|
|
//SYSPRINT DD SYSOUT=* 00600044
|
|
//*
|
|
//INDD01 DD DSN=&&BD120,DISP=(OLD,DELETE,DELETE) 00610044
|
|
//OUTDD01 DD DSN=DOESTAX.CONV.&EMFILE,DISP=OLD 00620044
|
|
//*
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR 00630044
|
|
//* 00640044
|