/* REXX $$JPREP clean up PROCs and JCL */ address ISREDIT "MACRO (opts)" upper opts parse var opts "TRACE" tv . parse value tv "N" with tv . rc = Trace("O"); rc = Trace(tv) "RENUM" "UNNUM" "C ALL '//**' '//* ' " "C ALL '*' ' ' 72 " "X ALL" "F ALL '******' " "C ALL '*' '~' 4 71 NX " "X ALL P'>'" /* uppercase */ "C ALL ~ - NX" "X ALL" "F ALL ~ " /* lines with letters... */ "C ALL ' ' ~ NX 6 71" /* fill in the blanks */ do while rc=0 "C ALL '~ ' '' " /* trim the right end */ end "C ALL ~ ' ' NX " exit(1) /*@ $$JPREP */