OSI/AS Programming Manual

ManualsBrandsHP ManualsServerHP NonStop G-Series

301

302

303

304

305

306

307

308

309

310

Example 2: Presentation Layer and ACSE

Sample Programs

056783 Tandem Computers Incorporated E–41

local_appl.zpsap.zpsel.zlen := 0; -- not used

local_appl.zpsap.zssel.zlen := 0; -- not used

local_appl.zpsap.ztsel.zlen := 0; -- not used

local_appl.zpsap.znsap.zlen := 0; -- not used

local_appl.zappl^name.zlen := 5;

local_appl.zappl^name.zs ':=' ["APPL1"];

remote_appl.zpsap.zpsel.zlen := 0; -- not used

remote_appl.zpsap.zssel.zlen := 0; -- not used

remote_appl.zpsap.ztsel.zlen := 0; -- not used

remote_appl.zpsap.znsap.zlen := 0; -- not used

remote_appl.zappl^name.zlen := 5;

remote_appl.zappl^name.zs ':=' ["APPL2"];

-- Initialize session requirements.

session_rqmnts.zl5^fu^ispresent := ZAPS^VAL^TRUE;

session_rqmnts.zl5^fu.zhalfduplex := ZAPS^VAL^TRUE;

session_rqmnts.zl5^fu.zduplex := ZAPS^VAL^FALSE;

session_rqmnts.zl5^fu.zexceptions := ZAPS^VAL^FALSE;

session_rqmnts.zl5^fu.ztyped^data := ZAPS^VAL^FALSE;

session_rqmnts.zl5^fu.zneg^release := ZAPS^VAL^FALSE;

session_rqmnts.zl5^fu.zminorsync := ZAPS^VAL^FALSE;

session_rqmnts.zl5^fu.zmajorsync := ZAPS^VAL^FALSE;

session_rqmnts.zl5^fu.zresync := ZAPS^VAL^FALSE;

session_rqmnts.zl5^fu.zexpedited := ZAPS^VAL^FALSE;

session_rqmnts.zl5^fu.zactivity := ZAPS^VAL^FALSE;

session_rqmnts.zl5^fu.zcapability^data := ZAPS^VAL^FALSE;

session_rqmnts.zinit^sync := 1D;

session_rqmnts.zinit^tokens.zrelease :=

ZAPS^VAL^TOKEN^NOVALUE;

session_rqmnts.zinit^tokens.zdata :=

ZAPS^VAL^TOKEN^OWNED;

session_rqmnts.zinit^tokens.zminorsync :=

ZAPS^VAL^TOKEN^NOVALUE;

session_rqmnts.zinit^tokens.zactivity :=

ZAPS^VAL^TOKEN^NOVALUE;

-- Initialize the presentation context definition list.

-- Pres context[0] = PCID=1/ AS=ftam-pci /TS=BER

-- Pres context[1] = PCID=3/ AS-ftam-fadu /TS=BER

pres_context_list.znum^elements := 2;

-- PCID = 1

-- AS = { iso standard 8571

-- abstract-syntax(2) ftam-pci(1) }

-- TS = { joint-iso-ccitt asn1(1) basic-encoding(1) }

pres_context_list.zelement[0].zpcid :=

pres_context_list.zelement[0].zas^name.znum^elements :=

pres_context_list.zelement[0].zas^name.zobj^id[0] :=