On 2016-10-05 17:20, Dana Mitchell wrote:
On Wed, 5 Oct 2016 15:47:25 +0000, Robert Prins <[email protected]>
wrote:
As for the above error, I think calls to ISPREXPX are only to be used if
you use a separate REXX panel exit, using PANEL REXX they are (not yet
tested) obsolete.
I have the version of this code from archive.org working now on z/OS 2.1.
The changes required are:
at hello: change:
hello:
> inline = (ISFBUF <> value('isfbuf'))
> /* inline = (ISFBUF == value('isfbuf')) */
to this:
hello:
> /* inline = (ISFBUF <> value('isfbuf')) */
> inline = (ISFBUF == value('isfbuf'))
Not sure why Doug would have had that in there.
I think it's used to detect if PANEL REXX is used, or an external REXX EXEC.
This change may resolve your ABEND, but I highly doubt that it is valid!
> At this point it didn't
abend, but the change still didn't produce any different in the output. It
appears at some point IBM renamed a variable from 'shadow' to 'ISFSHAD'.
Change all references in Doug's code from shadow to isfshad.
Actually, Doug introduced "SHADOW" into the panel, and the fact that it's now
there, albeit under another name, would imply that IBM itself is also using
shadow variables on the panel.
To those unfamiliar with the concept of SHADOW variables, a copy of Doug Nadel's
Share Winter 1999 paper "ISPF Panels Beyond the Basics" can be found at this
ridiculously long and wrapping URL
<https://drive.google.com/file/d/0B0yiyQ6MoMaIZGM2NWUzYTQtMzNiOC00ZWVkLTkyYzYtZDkyZWJhMDY5MTMw/view?ddrp=1&hl=en>
It's well worth a read!
Robert
--
Robert AH Prins
robert(a)prino(d)org
No programming (yet) @ http://prino.neocities.org/
--
Robert AH Prins
robert(a)prino(d)org
No programming (yet) @ http://prino.neocities.org/
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
