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.

 LINKAGE SECTION.
 01 VAR           PIC X(10).

 PROCEDURE DIVISION USING VAR.
 DISPLAY "IN subr02, received: " VAR ";".
 EXIT PROGRAM.
 END PROGRAM subr02.
 
 IDENTIFICATION DIVISION.
 PROGRAM-ID.    subr07. 
*
 ENVIRONMENT DIVISION.
 DATA DIVISION.
*
 WORKING-STORAGE SECTION.
 01 VAR1           PIC X(10) VALUE "Aristotle".
 01 VAR2.
  05 VAR2A         PIC X(10) VALUE "Pheadrus ".
  05 VAR2B         PIC X(01) VALUE x"00".
 01 SUBR-NAME.
  05	SUBR-PREFIX	PIC X(4) VALUE "subr".
  05	SUBR-NUMBER	PIC 9(2) VALUE zeros.
  05	FILLER          PIC X(6) VALUE "      ".

 LINKAGE SECTION.
 01 VAR           PIC X(10).

 PROCEDURE DIVISION USING VAR.
 DISPLAY "IN subr07, received: " VAR ";".

 DISPLAY "subr07 1A: CALL='subr03';".
 CALL 'subr03' USING VAR1.
 DISPLAY "subr07 1B:".

 MOVE 'subr03' TO SUBR-NAME.
 DISPLAY "subr07 2A: CALL=" SUBR-NAME ";".
 CALL SUBR-NAME USING VAR1.
 DISPLAY "subr07 2B:".
 
 MOVE 'subrotc' TO SUBR-NAME.
 DISPLAY "subr07 3A: CALL=" SUBR-NAME ";".
 CALL SUBR-NAME USING VAR2.
 DISPLAY "subr07 3B:".
 
 EXIT PROGRAM.
 END PROGRAM subr07.