• Subject: Re: Parameter passing with COBOL and REXX
  • From: "Simon Coulter" <shc@xxxxxxxxxxxxxxxxx>
  • Date: Mon, 25 May 98 20:59:24 +1000
  • Importance: normal

Hello Matt,

The QREXQ API (like many APIs) is expecting 2 and 4 BYTE integers.  You have 
specified 2 and 4 DIGIT integers 
-- both of which result in 2-byte values.  2-byte integers will result when the 
number of digits in the PIC is 
5 or less, 4-byte integers will result when the PIC clause has more than 5 
digits.

Simply increase the number of digits and you should be fine.

Regards,
Simon Coulter.

//----------------------------------------------------------
// FlyByNight Software         AS/400 Technical Specialists
// Phone: +61 3 9419 0175      Mobile: +61 0411 091 400
// Fax:   +61 3 9419 0175      E-mail: shc@flybynight.com.au
// 
// Windoze should not be open at Warp speed.
 

//--- forwarded letter -------------------------------------------------------
> MIME-Version: 1.0
> Date: Mon, 25 May 98 11:25:08 +0000
> From: Matt.Feeney@hr-m.b-m.defence.gov.au
> To: MIDRANGE-L@midrange.com
> Reply-To: MIDRANGE-L@midrange.com
> Subject: Parameter passing with COBOL and REXX
> Importance: normal

> 
>      TO WHOM IT MAY CONCERN
>      
>      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. Following is the program's 
>      working storage. Does anyone know why this will not work or is there a 
>      better way to pass a parameter to a REXX program from a COBOL or CL 
>      program. 
>      
>      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.
>      
>      This area of working storage is filled with the following code.
>      
>      MOVE 'A' TO FUNCTION-CODE
>      MOVE TLA-IDENT OF DSP-INPUT-1 TO WS-TLA 
>      MOVE 4 TO BUFF-LENGTH  
>      SET FIFO TO TRUE
>      MOVE ZEROES TO RETURN-CODE.
>      
>      The REXX external data queue is called using the following code.
>      
>      CALL 'QREXQ' USING PARM-LIST. 
>      
>      
>      
>      Thanks Ross

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


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 on our policy page. If you have questions about this, please contact [javascript protected email address].