On Friday 31 July 2009, Frank M. Ramaekers wrote:
> Wasn't there a REXXTRY available to interactively work with REXX?
> (Can't seem to find it on my z/VM 5.4 system.)
There have been several versions of REXXTRY over the decades, and
for different implementations. It seems that there ought to be one on
your system somewhere. Sad to say, I don't currently have access to a
z/VM system, so I can't go exploring.
I rather like my own version, to which I've added a few
enhancements like the ability to handle continuation lines and to toggle
SIGNAL ON NOVALUE on or off interactively. If there's any interest in
it, I'll make it available.
However, for your entertainment (hey, it *is* Friday), here's a
genuine antique sent to me recently by Ross Fried at CUNY. It's called
REXTRY EXEC (note the single "X" in the spelling), and the file date
was 3/21/1983. This may well be mfc's original, and the very first
version to have been in circulation.
/* REX exec tester */
Say 'Interactive REX expession tester. Enter REX commands or null to exit:'
Signal on Syntax
Do while instruction ^= ""
Parse Pull instruction
Say ">" instruction
Trace Results
Interpret instruction
Trace Off
End
Exit
Syntax:
Trace Off
$errmsg = 'REX error' rc 'in line' Sigl':' Errortext(rc)
Say $errmsg
Say Sourceline(Sigl)
Say 'You will be placed into REX Debug mode, enter null to enter Xedit'
Trace '?Results'
Nop
Trace 'Off'
Address Command 'Dropbuf 0'
Parse Source . . $fn $ft $fm .
Push 'Command :'Sigl
Push 'Command EMSG' $errmsg
Address CMS 'Xedit' $fn $ft $fm
Exit rc
--
Bob Woodside
Woodsway Consulting, Inc.
http://www.woodsway.com
