Manualshelf

COBOL Manual for TNS and TNS/R Programs

ManualsBrandsHP ManualsServerHP NonStop G-Series
101102103104105106107108109110
Source Program Organization and Format
HP COBOL Manual for TNS and TNS/R Programs—522555-006
2-22
Shared Data
IDENTIFICATION DIVISION.
PROGRAM-ID. Sub.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 y PICTURE 99 GLOBAL VALUE 2.
01 w PICTURE 99 EXTERNAL.
01 x PICTURE 99 VALUE 0.
01 z PICTURE 99 EXTERNAL.
PROCEDURE DIVISION.
s.
DISPLAY " Sub begin"
PERFORM show-me
DISPLAY " Sub moving 5 to w"
MOVE 5 to w PERFORM show-me
IF x = 0
DISPLAY " Sub adding 5 to w, x, y, and z"
ADD 5 to w x y z PERFORM show-me
END-IF
DISPLAY " Sub end"
EXIT PROGRAM
.
show-me.
DISPLAY " in Sub, w (ext)=/" w "/ x (local)=/" x "/"
" y (local)=/" y "/ z (ext)=/" z "/"
.
END PROGRAM Sub.
Example 2-2. Programs With Shared Data (page 4 of 4)