OSI/AS Programming Manual

Example 1: Session Layer
Sample Programs
056783 Tandem Computers Incorporated E–7
END; -- proc display_aps_error
? PAGE
------------------------------------------------------------
--
-- Display a text message for those APS procedures that
-- return "status".
--
------------------------------------------------------------
PROC display_aps_status( cepi, error_proc );
INT cepi; -- i : cepi for error
INT error_proc; -- i : aps proc label
BEGIN
--
-- Get error code, etc...
--
error := APS_STATUS_( cepi
, event_code
, device_name
, error_code
, error_subcode
, service_id
, diagnostic_buffer
, original_error_info
);
IF ( error <> ZAPS^ERR^OK ) THEN
CALL display_aps_error( error_status_proc );
CASE( error_proc ) OF
BEGIN
error_attach_proc ->
outline ':=' "APS_ASSOC_ATTACH_" -> @outptr;
error_connectreq_proc ->
outline ':=' "APS_ASSOC_CONNECTREQ_" -> @outptr;
error_connectrsp_proc ->
outline ':=' "APS_ASSOC_CONNECTRSP_" -> @outptr;
error_datareq_proc ->
outline ':=' "APS_DATA_REQ_" -> @outptr;
error_discard_proc ->
outline ':=' "APS_DISCARD_" -> @outptr;
error_event_proc ->
outline ':=' "APS_EVENT_RECEIVE_" -> @outptr;
error_releasereq_proc ->
outline ':=' "APS_ASSOC_RELEASEREQ_" -> @outptr;
error_releasersp_proc ->
outline ':=' "APS_ASSOC_RELEASERSP_" -> @outptr;