COBOL Manual for TNS and TNS/R Programs

Procedure Division Verbs
HP COBOL Manual for TNS and TNS/R Programs—522555-006
9-30
CALL
Level 1 Subprogram (source $DATA.MYSUBVOL.SUB1SRC, object
$DATA.MYSUBVOL.SUB1OBJ)
IDENTIFICATION DIVISION.
PROGRAM-ID. COBSUB1.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. HP System.
OBJECT-COMPUTER. HP System.
SPECIAL-NAMES.
FILE "$DATA.MYSUBVOL.SUB2OBJ" IS SUB2.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 DATA-OUT PIC X(80) VALUE "I'M COBSUB1 ALIVE AND WELL".
LINKAGE SECTION.
01 PARM1 PIC 99.
01 PARM2 PIC XX.
01 SUBPROGRAM-TABLE.
05 SUB-TABLE-ENTRY, PIC X
OCCURS 10 TIMES INDEXED BY SUB-INDEX.
01 SAVE-SUB-INDEX PIC 999.
PROCEDURE DIVISION USING PARM1,
PARM2,
SUBPROGRAM-TABLE,
SAVE-SUB-INDEX.
START-PROGRAM.
SET SUB-INDEX TO SAVE-SUB-INDEX
DISPLAY DATA-OUT
DISPLAY "SAVE-SUB-INDEX = " SAVE-SUB-INDEX
DISPLAY PARM1
DISPLAY PARM2
CALL "COBSUB2" OF SUB2 USING PARM1, PARM2
DISPLAY "I'M COBSUB1 AND I'M RETURNING TO MAIN NOW".
Level 2 Subprogram (source $DATA.MYSUBVOL.SUB2SRC, object
$DATA.MYSUBVOL.SUB2OBJ)
IDENTIFICATION DIVISION.
PROGRAM-ID. COBSUB2.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. HP System.
OBJECT-COMPUTER. HP System.
Example 9-8. Called Program That Calls Another Program (page 2 of 3)