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.