OSI/AS Programming Manual

Example 1: Session Layer
Sample Programs
056783 Tandem Computers Incorporated E–11
END; -- proc initialize_appl
? PAGE
------------------------------------------------------------
--
-- Main procedure of Example 1
--
------------------------------------------------------------
PROC sample_1_osias MAIN;
BEGIN
--
-- read startup message, open output, and initialize APS.
--
CALL initialize_appl;
--
-- Set the OSI manager process name.
--
api_environment.zend^system^name.zs.zi ':='
[ "$OMGR ", 8*[" "] ];
api_environment.zwaitmode := ZAPS^VAL^WAITED;
--
-- Set the local and remote application names.
--
local_appl_1.zpsap.zpsel.zlen := 0; -- not used
local_appl_1.zpsap.zssel.zlen := 0; -- not used
local_appl_1.zpsap.ztsel.zlen := 0; -- not used
local_appl_1.zpsap.znsap.zlen := 0; -- not used
local_appl_1.zappl^name.zlen := 5;
local_appl_1.zappl^name.zs ':=' ["APPL1"];
remote_appl_1.zpsap.zpsel.zlen := 0; -- not used
remote_appl_1.zpsap.zssel.zlen := 0; -- not used
remote_appl_1.zpsap.ztsel.zlen := 0; -- not used
remote_appl_1.zpsap.znsap.zlen := 0; -- not used
remote_appl_1.zappl^name.zlen := 5;
remote_appl_1.zappl^name.zs ':=' ["APPL2"];
local_appl_2.zpsap.zpsel.zlen := 0; -- not used
local_appl_2.zpsap.zssel.zlen := 0; -- not used
local_appl_2.zpsap.ztsel.zlen := 0; -- not used
local_appl_2.zpsap.znsap.zlen := 0; -- not used
local_appl_2.zappl^name.zlen := 5;
local_appl_2.zappl^name.zs ':=' ["APPL2"];
remote_appl_2.zpsap.zpsel.zlen := 0; -- not used
remote_appl_2.zpsap.zssel.zlen := 0; -- not used
remote_appl_2.zpsap.ztsel.zlen := 0; -- not used
remote_appl_2.zpsap.znsap.zlen := 0; -- not used
remote_appl_2.zappl^name.zlen := 5;
remote_appl_2.zappl^name.zs ':=' ["APPL1"];
--