• Subject: Re: Parameter passing with COBOL and REXX
  • From: Pete Hall <peteh@xxxxxxxxxx>
  • Date: Tue, 26 May 1998 02:57:20 -0500
  • In-Reply-To: <0525013630-Parameter passing with COBOL and REXX* /@MHS>

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
+---


This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available here. If you have questions about this, please contact [javascript protected email address].