COBOL Manual for TNS and TNS/R Programs

Source Program Organization and Format
HP COBOL Manual for TNS and TNS/R Programs—522555-006
2-21
Shared Data
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.
PROCEDURE DIVISION.
c.
DISPLAY " Ccc begin"
PERFORM show-me
DISPLAY " Ccc adding 4 to w, x, and y"
ADD 4 to w x y
PERFORM show-me
CALL Ddd
DISPLAY " Ccc end"
EXIT PROGRAM
.
show-me.
DISPLAY " in Ccc, w (ext)=/" w "/"
" x (global from Bbb)=/" x "/"
" y (local in Ccc)=/" y "/"
.
IDENTIFICATION DIVISION.
PROGRAM-ID. Ddd.
DATA DIVISION.
PROCEDURE DIVISION.
d.
DISPLAY " Ddd begin"
DISPLAY " in Ddd, x (global from Bbb)=/" x "/"
" y (global from Mane)=/" y "/"
MOVE 17 to z
DISPLAY " Ddd changing z to 17"
DISPLAY " in Ddd, z (global from Mane)=/" z "/"
DISPLAY " Ddd end"
.
END PROGRAM Ddd.
END PROGRAM Ccc.
END PROGRAM Bbb.
END PROGRAM Mane.
?ENDUNIT
Example 2-2. Programs With Shared Data (page 3 of 4)