本文发表在 rolia.net 枫下论坛/* REXX */
MOD = "NO"
PARSE ARG PARM1 CMD
IF TRANSLATE(PARM1) = "MOD" THEN MOD = "YES"
ELSE CMD = PARM1 CMD
OUTFILE = USERID()".CAPTURE"
X = OUTTRAP("DUMMY.")
IF MOD ¬= "YES" THEN "DELETE" OUTFILE
"ALLOC F(OUTFILE) DA("OUTFILE") TRACKS SPACE(10,10) MOD KEEP REUSE"
X = OUTTRAP("OUTLINE.")
CMD
X = OUTTRAP(OFF)
"EXECIO" OUTLINE.0 "DISKW OUTFILE (OPEN FINIS STEM OUTLINE."
"FREE F(OUTFILE)"
"ISPEXEC VIEW DATASET("OUTFILE")"更多精彩文章及讨论,请光临枫下论坛 rolia.net
MOD = "NO"
PARSE ARG PARM1 CMD
IF TRANSLATE(PARM1) = "MOD" THEN MOD = "YES"
ELSE CMD = PARM1 CMD
OUTFILE = USERID()".CAPTURE"
X = OUTTRAP("DUMMY.")
IF MOD ¬= "YES" THEN "DELETE" OUTFILE
"ALLOC F(OUTFILE) DA("OUTFILE") TRACKS SPACE(10,10) MOD KEEP REUSE"
X = OUTTRAP("OUTLINE.")
CMD
X = OUTTRAP(OFF)
"EXECIO" OUTLINE.0 "DISKW OUTFILE (OPEN FINIS STEM OUTLINE."
"FREE F(OUTFILE)"
"ISPEXEC VIEW DATASET("OUTFILE")"更多精彩文章及讨论,请光临枫下论坛 rolia.net