I believe that the TSO CALL is passing a string that is a copy of the
variable(s) used to build it.
So even if I said:
variable = 'dummy'
"TSO CALL *(program) PARM("variable")"
And had the COBOL program change the value of the passed variable, what's being
passed is a copy of the string 'dummy'.
COBOL won't give me access to R1. But even so, as mentioned above, I don't
think that would help.
POSIX pipes are not available.
I find it interesting that no one has figured out what the REXX User's Guide
was trying to say about the data stack.
-----Original Message-----
From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of
Paul Gilmartin
Sent: Tuesday, August 15, 2023 1:38 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: How can a REXX data stack pass information from a program?
On Tue, 15 Aug 2023 17:48:39 +0000, Schmitt, Michael wrote:
> ...
>What I'm trying to do is pass an 8 character field from a COBOL program to a
>calling exec. The constraints are:
> ...
I.e. almost anything that's likely to work. Why?
> ...
> ..., so the parm is one-way, and would have no way to pass back the
> address. Nor will it work to try to pass back an address from the COBOL
> program in a return code; it will get truncated.
>
PARM is two-way for many languages. Does COBOL prohibit that? TSO REXX
supports
two-way as the caller, not as the subroutine.
Does CCOBOL provide access to the R1 value om entry? That could work with
some creative pointer chasing.
>(I suppose one option is to call the COBOL program multiple times, passing
>back the data as a return code one or two bytes a time, but if it came to that
>I have a better last-resort work-around.)
>
You're desperate. How about POSIX pipes (BPX1PIP, BPX4PIP)?
--
gil
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
