OSI/AS Programming Manual

Example 1: Session Layer
Sample Programs
056783 Tandem Computers Incorporated E–17
, ! remote-appl !
, ! connect-result !
, ! session-rqmnts !
, release_result
, ! abort-reason !
);
IF ( error <> ZAPS^ERR^OK ) OR
( release_result <> ZAPS^VAL^RLS^ACCEPT ) THEN
CALL display_aps_error( error_assoc_getparam_proc );
--
-- Get release confirm user data.
--
CALL retrieve_user_data( cepi_1 );
--
-- APPLICATION 1 and APPLICATION 2
-- Delete the API context information.
--
print_aps( "APPL1: discard" );
status := APS_DISCARD_( cepi_1 );
IF ( status <> ZAPS^VAL^STATUS^OK ) THEN
CALL display_aps_status( cepi_1, error_discard_proc );
print_aps( "APPL2: discard" );
status := APS_DISCARD_( cepi_2 );
IF ( status <> ZAPS^VAL^STATUS^OK ) THEN
CALL display_aps_status( cepi_2, error_discard_proc );
print_aps( "sample 1 program complete" );
END; -- proc sample_1_osias (main)