Down & dirty but works --
--- begin code ----
execflag_addr='5E6'
/* x'5E6' is the address of EXECFLAG in NUCON assemble Release 5.1 */
execflag=storage(execflag_addr,1) /* Get current value of EXECFLAG */
new=bitor(execflag,'10'x) /* Turn on HI bit (Halt interpret) */
execflag=storage(execflag_addr,1,new) /* Store new value */
--- end code ----
Of course it may not work in a new release of VM if EXECFLAG moves ...
Ian S. Worthington wrote:
Is there some way for a rexx subroutine to simulate an HX? ie I don't =
want the called procedure to return to its caller, but execution of the =
whole program to halt as if HX had been entered.
ian
...
..
For: [EMAIL PROTECTED]
--
Chris Langford,
Cestrian Software:
Consulting services for: VM, VSE, MVS, z/VM, z/OS, OS/2, P/3x0 etc.
z/FM - A toolbox for VM & MVS at http://zfm.cestrian.com
