//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