OSI/AS Programming Manual

Example 2: Presentation Layer and ACSE
Sample Programs
E–44 056783 Tandem Computers Incorporated
, ! acse-remote-invocation-ids !
);
IF ( status <> ZAPS^VAL^STATUS^OK ) THEN
CALL display_aps_status( error_connectreq_proc );
--
-- Get and save OSI address information.
--
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 );
--
-- Wait for ACSE associate confirm.
--
CALL wait_for_event( ZAPS^VAL^EVT^CONNECT^CNF );
--
-- Get the parameters of the associate confirm.
--
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 !