OSI/AS Programming Manual

Example 2: Presentation Layer and ACSE
Sample Programs
E–42 056783 Tandem Computers Incorporated
1;
pres_context_list.zelement[0].zas^name.zobj^id[1] :=
0;
pres_context_list.zelement[0].zas^name.zobj^id[2] :=
8571;
pres_context_list.zelement[0].zas^name.zobj^id[3] :=
2;
pres_context_list.zelement[0].zas^name.zobj^id[4] :=
1;
pres_context_list.zelement[0].znum^ts :=
1;
pres_context_list.zelement[0].zts^name[0].znum^elements :=
3;
pres_context_list.zelement[0].zts^name[0].zobj^id[0] :=
2;
pres_context_list.zelement[0].zts^name[0].zobj^id[1] :=
1;
pres_context_list.zelement[0].zts^name[0].zobj^id[2] :=
1;
--
-- PCID = 3
-- AS = { iso standard 8571
-- abstract-syntax(2) ftam-fadu(2) }
-- TS = { joint-iso-ccitt asn1(1) basic-encoding(1) }
--
pres_context_list.zelement[1].zpcid :=
3;
pres_context_list.zelement[1].zas^name.znum^elements :=
5;
pres_context_list.zelement[1].zas^name.zobj^id[0] :=
1;
pres_context_list.zelement[1].zas^name.zobj^id[1] :=
0;
pres_context_list.zelement[1].zas^name.zobj^id[2] :=
8571;
pres_context_list.zelement[1].zas^name.zobj^id[3] :=
2;
pres_context_list.zelement[1].zas^name.zobj^id[4] :=
2;
pres_context_list.zelement[1].znum^ts :=
1;
pres_context_list.zelement[1].zts^name[0].znum^elements :=
3;
pres_context_list.zelement[1].zts^name[0].zobj^id[0] :=
2;
pres_context_list.zelement[1].zts^name[0].zobj^id[1] :=
1;
pres_context_list.zelement[1].zts^name[0].zobj^id[2] :=
1;
--
-- Set the ACSE application context name for this request.
-- { iso standard 8571 application-context(1) iso-ftam(1) }
--
acse_appl_context_name.znum^elements := 5;
acse_appl_context_name.zobj^id[0] := 1;