Back To LeighWeb Mainframe Utilities Page

/* REXX ***************************************************************/
/* UTILITY: SYS2JCL                                                   */
/* AUTHOR: DAVID LEIGH                                                */
/* FUNCTION: THIS EDIT MACRO PROCESSES A FILE OF JES OUTPUT AND       */
/*           EXTRACTS JUST THE SUBMITTED JCL AND SHIFTS IT BACK TO    */
/*           THE LEFT TO MAKE EXECUTABLE JCL OUT OF THE THE SYSOUT.   */
/*           IT DOES NOT, HOWEVER, RESTORE ANY INSTREAM DATA.         */
/**********************************************************************/
ADDRESS ISPEXEC
'CONTROL ERRORS RETURN'

ADDRESS ISREDIT
"MACRO"

"EXCLUDE ALL P'=' 1"
"FIND ALL '//' 12"
"DELETE ALL X"

"FIND FIRST P'=' 1"
DO WHILE RC = 0
    "SHIFT ( .ZCSR 11"
    "FIND NEXT P'=' 1"
END

"UP MAX"