|
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 +---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 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].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.