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.
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.
Dana
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
