Monday, September 26, 2011

Sample code to call COBOL program from REXX



The below code snippet explains how to call a COBOL program from a REXX program.


/*Rexx*/
address tso "call 'MY.COBOL.LOADLIB(TEST1234)' 'ABCDE'"


* COBOL Program Code:


LINKAGE SECTION.
01 VAR1 PIC X(05).
PROCEDURE DIVISION USING VAR1.
      DISPLAY ' VAR1=' VAR1
      GOBACK.

No comments:

Post a Comment

Note: Only a member of this blog may post a comment.