× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  • Subject: Parameter passing with COBOL and REXX
  • From: Matt.Feeney@xxxxxxxxxxxxxxxxxxxxxxx
  • Date: 25 May 98 11:25:08 +0000
  • Alternate-Recipient: Prohibited
  • Autoforwarded: FALSE
  • Conversion: Allowed
  • Conversion-With-Loss: Allowed
  • Delivery-Date: 25 May 98 12:40:45 +1000
  • Importance: normal
  • Message-Type: Multiple Part
  • Original-Encoded-Information-Types: IA5-Text
  • X400-Content-Type: P2-1988
  • X400-Mts-Identifier: [/PRMD=ausgovdefencenet/ADMD=telememo/C=au;XGW-980525113630+1000-20945]
  • X400-Originator: Matt.Feeney@hr-m.b-m.defence.gov.au
  • X400-Received: by mta b&m-mta1 in /PRMD=ausgovdefencenet/ADMD=telememo/C=au; Relayed; 25 May 98 12:40:40 +1000
  • X400-Recipients: MIDRANGE-L@Midrange.com

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

Follow-Ups:

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

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.