On Mon, 22 Mar 2021 16:48:29 +0000, Seymour J Metz wrote:
>What environment did you use in your ADDRESS statement? Please post the
>relevant REXX code.
>
For example, here's an excerpt of my Rexx code. I could have used LINKMVS.
Values could be returned in the PARMs.
PARM1 = ''
Nulls = left('', 8, '00'x)
PARM2 = Nulls || , /* 1 */
Nulls || , /* 2 */
Nulls || , /* 3 */
Nulls || , /* 4 */
G.9CTRL || , /* SYSIN */
G.9IEBOUT || , /* SYSPRINT */
Nulls || , /* 7 */
IDD || , /* SYSUT1 */
JobOut /* SYSUT2 */
/* ... */
address 'ATTCHMVS' 'IEBGENER PARM1 PARM2'
IEBRC = RC
>________________________________________
>From: Cameron Conacher
>Sent: Monday, March 22, 2021 12:44 PM
>
>I am not sure I understand now.
>I created a simple COBOL Program and added a number of 01 level items to
>the Linkage section and then I added PROCEDURE DIVISION USING... a list of
>the data items I expected to see passed from my little REXX EXEC.
>LINKAGE SECTION.
>01 parameter-1 PIC X(08)
>01 parameter-2 PIC X(08)
>01 parameter-3 PIC X(20)
>
>PROCEDURE DIVISION USING parameter-1, parameter-2, parameter-3.
>
>I create a PLIST in REXX and called my dumb program passing the PLIST PARM
>and then dumped the Linkage parameters.
>
>From what I can see when I look at the items in HEX, I get a two byte
>binary length followed by something that looks like a pointer.
>len= x'000A' and pointer is x'0000000130E10000'
>But none of the PARMs are actually ten bytes long, and the address seems
>wrong to me.
-- gil
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
