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-23
Shared Data
Example 2-3. Output From Programs With Shared Data
Mane begin
in Mane, w=/03/ y=/01/ z=/25/
Aaa begin
y (global from Mane)=/01/ z (global from Mane)=/25/
Aaa adding 2 to y
y (global from Mane)=/03/ z (global from Mane)=/25/
Bbb begin
in Bbb, w (ext)=/01/ x (global in Bbb)=/00/ y (global from Aaa)=/03/
Bbb adding 3 to w and to x
in Bbb, w (ext)=/04/ x (global in Bbb)=/03/ y (global from Aaa)=/03/
Ccc begin
in Ccc, w (ext)=/04/ x (global from Bbb)=/03/ y (local in Ccc)=/00/
Ccc adding 4 to w, x, and y
in Ccc, w (ext)=/08/ x (global from Bbb)=/07/ y (local in Ccc)=/04/
Ddd begin
in Ddd, x (global from Bbb)=/07/ y (global from Mane)=/03/
Ddd changing z to 17
in Ddd, z (global from Mane)=/17/
Ddd end
Ccc end
in Bbb, w (ext)=/08/ x (global in Bbb)=/07/ y (global from Aaa)=/03/
Bbb end
y (global from Mane)=/03/ z (global from Mane)=/17/
Aaa end
in Mane, w=/03/ y=/03/ z=/17/
Bbb begin
in Bbb, w (ext)=/01/ x (global in Bbb)=/07/ y (global from Aaa)=/03/
Bbb adding 3 to w and to x
in Bbb, w (ext)=/04/ x (global in Bbb)=/10/ y (global from Aaa)=/03/
Ccc begin
in Ccc, w (ext)=/04/ x (global from Bbb)=/10/ y (local in Ccc)=/04/
Ccc adding 4 to w, x, and y
in Ccc, w (ext)=/08/ x (global from Bbb)=/14/ y (local in Ccc)=/08/
Ddd begin
in Ddd, x (global from Bbb)=/14/ y (global from Mane)=/03/
Ddd changing z to 17
in Ddd, z (global from Mane)=/17/
Ddd end
Ccc end
in Bbb, w (ext)=/08/ x (global in Bbb)=/14/ y (global from Aaa)=/03/
Bbb end
in Mane, w=/03/ y=/03/ z=/17/
Sub begin
in Sub, w (ext)=/08/ x (local)=/00/ y (local)=/02/ z (ext)=/17/
Sub moving 5 to w
in Sub, w (ext)=/05/ x (local)=/00/ y (local)=/02/ z (ext)=/17/
Sub adding 5 to w, x, y, and z
in Sub, w (ext)=/10/ x (local)=/05/ y (local)=/07/ z (ext)=/22/
Sub end
in Mane, w=/03/ y=/03/ z=/22/
Sub begin
in Sub, w (ext)=/10/ x (local)=/05/ y (local)=/07/ z (ext)=/22/
Sub moving 5 to w
in Sub, w (ext)=/05/ x (local)=/05/ y (local)=/07/ z (ext)=/22/
Sub end
in Mane, w=/03/ y=/03/ z=/22/
Mane end