OSI/AS Programming Manual

Example 2: Presentation Layer and ACSE
Sample Programs
056783 Tandem Computers Incorporated E–77
, ! 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 confirm user data.
--
CALL retrieve_user_data;
--
-- Delete the API context information.
--
print_aps( "APPL2: discard" );
status := APS_DISCARD_( cepi );
IF ( status <> ZAPS^VAL^STATUS^OK ) THEN
CALL display_aps_status( error_discard_proc );
print_aps( "APPL2: complete" );
END; -- proc sample_osias_appl_2 (main)
C Version
#pragma INSPECT, SYMBOLS
#pragma PAGE "OSI/AS Sample Program 2 (Application 2)"
/* */
/* File: EXAPSC2B */
/* */
/* OSI/AS Sample Program 2 (Application 2) */
/* */
/* General: */
/* This is an example ACSE/Presentation program. */
/* It illustrates how to call the APS procedures. */
/* Some liberties have been taken in error checking; */
/* real applications would include error checking. */
/* This program calls the APS procedures in wait mode. */
/* */
/* OSI/AS Configuration: */
/* 1) The OSI manager process name is $OMGR. */
/* 2) ENTRY #APPL.APPL1 is defined (for EXAPSC2A). */
/* 3) ENTRY #APPL.APPL2 is defined (this program). */
/* 4) Either session version 1 or session version 2 */
/* can be configured. */
/* */
/* To run: */
/* 1) Be sure to run this application first. */
/* (it will ATTACH and wait for a connect ind). */