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