Re: Parameter passing with COBOL and REXX

[Pete Hall <peteh@xxxxxxxxxx>]

At 11:25 AM 5/25/98 +0000, Matt Feeney wrote:
>     I am trying to pass a variable from a COBOL program to a REXX program 
>     using the REXX external data queue. The problem is that I am told by 
>     an error message when the program is run that the parameters I am 
>     passing do not match those required. 
>
>     01 PARM-LIST.
>     05 FUNCTION-CODE        PIC X.
>     05 WS-TLA                       PIC X(4). 05 BUFF-LENGTH          PIC 
>     9999 COMP-4. 05 FLAG                 PIC 99 COMP-4.
>     88 FIFO         VALUE '0'.
>     88 LIFO         VALUE '1'.
>     05 RETURN-CODE          PIC 99 COMP-4.

Matt,

It's been too long to answer you precisely, but the problem you are seeing is 
caused by your declaration of a structure (a single SYSPTR), instead of a 
parameter list (multiple SYSPTRs). I believe the problem is in the USING clause 
on the CALL (you need multiple arguments), but as I said, it has been a long 
time...

hth
Pete


Pete Hall
peteh@inwave.com 
http://www.inwave.com/~peteh/

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---