OSI/AS Programming Manual

Example 2: Presentation Layer and ACSE
Sample Programs
E–46 056783 Tandem Computers Incorporated
, give_tokens
);
IF ( status <> ZAPS^VAL^STATUS^OK ) THEN
CALL display_aps_status( error_datareq_proc );
--
-- Wait for P-DATA indication.
--
CALL wait_for_event( ZAPS^VAL^EVT^DATA^IND );
--
-- Get P-DATA indication user data.
--
CALL retrieve_user_data;
--
-- Wait for ACSE release indication.
--
CALL wait_for_event( ZAPS^VAL^EVT^RELEASE^IND );
--
-- Get the ACSE release reason of the release indication.
--
error :=
APS_ASSOC_GETPARAM_( cepi
, ! conid !
, ! local-appl !
, ! remote-appl !
, ! connect-result !
, ! session-rqmnts !
, ! release-result !
, ! abort-reason !
, ! mode !
, ! pres-context-list !
, ! pres-context-result-list !
, ! pres-default-context-name !
, ! pres-default-context-result !
, ! acse-appl-context-name !
, ! acse-local-ae-title !
, ! acse-remote-ae-title !
, ! acse-local-invocation-ids !
, ! acse-remote-invocation-ids !
, ! acse-result-source !
, ! acse-diagnostic !
, acse_release_reason
, ! acse-abort-source !
);
IF ( error <> ZAPS^ERR^OK ) THEN
CALL display_aps_error( error_assoc_getparam_proc );
--
-- Get ACSE release indication user data.
--
CALL retrieve_user_data;
--