//PRUX440D PROC 00015062 //* 00041123 //******************************************************************** 00051000 //* STEP0100 - DELETE DISK FILE FROM WHICH WAGE 00060062 //* DATA HAVE JUST BEEN PROCESSED. 00061062 //******************************************************************** 00070000 //STEP0100 EXEC PGM=IEFBR14 00080062 //INDD01 DD DSN=DOESTAX.CONV.&LASTNODE., 00120163 // DISP=(OLD,DELETE,DELETE) 00120262 //* 00120344 //******************************************************************** 00120462 //* STEP0200 - REALLOCATE DISK FILE 00120562 //* 00120662 //******************************************************************** 00120762 //STEP0200 EXEC PGM=IEFBR14 00120862 //INDD01 DD DSN=DOESTAX.CONV.&LASTNODE., 00120963 // DISP=(NEW,CATLG,CATLG), 00121062 // SPACE=(27920,(2,3),RLSE), 00121162 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=27920) 00121262 //* 00122062 //***************************************************************** 00320000 //LISTOUT DD SYSOUT=(*) 00330000 //SYSABOUT DD SYSOUT=(*) 00340004 //SYSPRINT DD SYSOUT=(*) 00360004 //SYSUDUMP DD SYSOUT=(*) 00370047 //SYSOUT DD SYSOUT=(*) 00400000 //* 00410029