COBOL Manual for TNS/E Programs (H06.03+)

Source Program Organization and Format
HP COBOL Manual for TNS/E Programs—520347-003
2-19
Shared Data
IDENTIFICATION DIVISION.
PROGRAM-ID. Aaa.
PROCEDURE DIVISION.
a.
DISPLAY " Aaa begin"
PERFORM show-me
DISPLAY " Aaa adding 2 to y"
ADD 2 TO y PERFORM show-me
CALL Bbb PERFORM show-me
DISPLAY " Aaa end"
EXIT PROGRAM
.
show-me.
DISPLAY " y (global from Mane)=/" y "/"
" z (global from Mane)=/" z "/"
.
END PROGRAM Aaa.
IDENTIFICATION DIVISION.
PROGRAM-ID. Bbb COMMON.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 x PICTURE 99 GLOBAL VALUE 0.
01 w PICTURE 99 EXTERNAL.
PROCEDURE DIVISION.
b.
MOVE 1 TO w
DISPLAY " Bbb begin"
PERFORM show-me
DISPLAY " Bbb adding 3 to w and to x"
ADD 3 to w x PERFORM show-me
CALL Ccc PERFORM show-me
DISPLAY " Bbb end"
EXIT PROGRAM
.
show-me.
DISPLAY " in Bbb, w (ext)=/" w "/"
" x (global in Bbb)=/" x "/"
" y (global from Aaa)=/" y "/"
.
IDENTIFICATION DIVISION.
PROGRAM-ID. Ccc.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 w PICTURE 99 EXTERNAL.
01 y PICTURE 99 VALUE 0.
Example 2-2. Programs With Shared Data (page 3 of 4)