28 lines
2.1 KiB
Plaintext
28 lines
2.1 KiB
Plaintext
//PRUX445D PROC 00015064
|
|
//* 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=(27500,(2,3),RLSE), 00121164
|
|
// DCB=(RECFM=FB,LRECL=275,BLKSIZE=27500) 00121264
|
|
//* 00122062
|
|
//***************************************************************** 00320000
|
|
//LISTOUT DD SYSOUT=(*) 00330000
|
|
//SYSABOUT DD SYSOUT=(*) 00340004
|
|
//SYSPRINT DD SYSOUT=(*) 00360004
|
|
//SYSUDUMP DD SYSOUT=(*) 00370047
|
|
//SYSOUT DD SYSOUT=(*) 00400000
|
|
//* 00410029
|