OSI/AS Programming Manual

Example 2: Presentation Layer and ACSE
Sample Programs
E–62 056783 Tandem Computers Incorporated
-- 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_attach_proc
, error_connectrsp_proc
, error_data_getparam_proc
, error_datareq_proc
, error_discard_proc
, error_event_proc
, error_initialize_proc
, error_releasereq_proc
, error_sync_getparam_proc
, error_status_proc
;
--
-- A DEFINE to make it easy to print a string--
-- e.g., print_aps( "this is a string" );
--
DEFINE print_aps( x ) =
outline ':=' x -> @outptr;
CALL WRITE( output
, outline_w
, @outptr '-' @outline
) #;
--
-- User data literals
--
LITERAL max_user_data = 1000;
--