IDENTIFICATION DIVISION.
 PROGRAM-ID.    subr01. 
*
 ENVIRONMENT DIVISION.
 DATA DIVISION.
*
 WORKING-STORAGE SECTION.

 LINKAGE SECTION.
 01 VAR           PIC X(10).

 PROCEDURE DIVISION USING VAR.
 DISPLAY "IN subr01, received: " VAR.
 EXIT PROGRAM.
 END PROGRAM subr01.

 IDENTIFICATION DIVISION.
 PROGRAM-ID.    subr02. 
*
 ENVIRONMENT DIVISION.
 DATA DIVISION.
*
 WORKING-STORAGE SECTION.
 01 CMDLINE-PARMS  PIC X(50).

* LINKAGE SECTION.
* 01 VAR           PIC X(10).

* PROCEDURE DIVISION USING VAR.
 PROCEDURE DIVISION.
* DISPLAY "IN subr02, received: " VAR.
 DISPLAY "IN subr02".
 ACCEPT CMDLINE-PARMS FROM COMMAND-LINE.
 DISPLAY "IN subr02, COMMAND-LINE=" CMDLINE-PARMS.
 MOVE 2 TO RETURN-CODE.
 EXIT PROGRAM.
 END PROGRAM subr02.