OSI/AS Programming Manual

Example 2: Presentation Layer and ACSE
Sample Programs
E–32 056783 Tandem Computers Incorporated
-- 1) The OSI manager process name is $OMGR.
-- 2) ENTRY #APPL.APPL1 is defined (this program).
-- 3) ENTRY #APPL.APPL2 is defined (for EXAPST2B).
-- 4) Either session version 1 or session version 2
-- can be configured.
--
-- To run:
-- 1) Be sure to run EXAPST2B (APPL2) first. (It will
-- issue an attach and wait for a connect indication.)
-- 2) Run this application second.
--
-- This program does the following:
-- 1) Issues an ACSE associate request.
-- 2) Waits for the ACSE associate confirm.
-- 3) Issues a P-DATA request plus a P-GIVE-TOKENS
-- request using basic concatenation.
-- 4) Waits for a P-DATA indication.
-- 5) Waits for an ACSE release indication.
-- 6) Issues an ACSE release response.
--
--
-- Source in ZAPSTAL from the appropriate volume and
-- subvolume.
--
? NOLIST, SOURCE ZAPSTAL( zaps^constants
? , zaps^ddl^ae^title
? , zaps^ddl^appl^cntxt
? , zaps^ddl^appl^addr
? , zaps^ddl^data^element^hdr
? , zaps^ddl^data^hdr
? , zaps^ddl^diag^buf
? , zaps^ddl^environment
? , zaps^ddl^filename
? , zaps^ddl^invocation^ids
? , zaps^ddl^l5^conid
? , zaps^ddl^l5^rqmnts
? , zaps^ddl^original^error
? , zaps^ddl^pres^cntxt^list
? , zaps^ddl^pres^cntxt^rlist
? , zaps^ddl^pres^deflt^cntxt
? , zaps^ddl^tokens
? , zaps^ddl^obj^id
? )
? LIST
--
-- APS procedure identification labels
--
LITERAL error_assoc_getparam_proc
, error_connectreq_proc
, error_data_getparam_proc
, error_datareq_proc
, error_discard_proc
, error_event_proc
, error_initialize_proc