OSI/AS Programming Manual

Example 2: Presentation Layer and ACSE
Sample Programs
056783 Tandem Computers Incorporated E–63
-- user data template.
--
STRUCT user_data_def(*);
BEGIN
STRUCT header( zaps^ddl^data^hdr^def );
STRUCT element( zaps^ddl^data^element^hdr^def );
STRING value[0:max_user_data-1];
END;
--
-- User data element template
--
STRUCT user_data_element_def(*);
BEGIN
STRUCT header( zaps^ddl^data^element^hdr^def );
STRING value[0:-1];
END;
--
-- Output variables
--
STRING .outline[0:131]; -- Output line
INT .outline_w := -- Output line (word)
@outline '>>' 1;
STRING .outptr; -- Output line ptr
INT output := -1; -- Output file number
--
-- Miscellaneous variable
--
INT pc; -- Presentation context
--
-- Swap volume for API extended data segment
--
INT .swapvol[0:3] := ["$SYSTEM "];
--
-- APS procedure call variables
-- (APS_... in margin indicates procedure usage.)
--
INT acse_diagnostic; -- ACSE diagnostic
INT acse_release_reason; -- ACSE release reason
INT acse_result_source; -- ACSE result source
INT cepi; -- CEPI for APS calls
INT connect_result; -- connect result
INT error; -- error from APS calls
INT error_code; -- APS_STATUS_
INT error_subcode; -- APS_STATUS_
INT event_code; -- APS_EVENT_RECEIVE_
INT mode; -- connect type
INT pres_default_context_result;
INT release_result; -- release result
INT service_id; -- APS_STATUS_
INT status; -- status from APS calls