OSI/AS Programming Manual

Example 2: Presentation Layer and ACSE
Sample Programs
056783 Tandem Computers Incorporated E–35
STRUCT .EXT user_data
( user_data_def );
INT .EXT user_data_element
( user_data_element_def );
STRING .EXT user_data_ptr;
--
-- Source in APS external declarations.
-- EXTDECS0 comes from the appropriate volume and subvolume.
--
? NOLIST, SOURCE EXTDECS0( APS_ASSOC_CONNECTREQ_
? , APS_ASSOC_GETPARAM_
? , APS_ASSOC_RELEASERSP_
? , APS_DATA_GETPARAM_
? , APS_DATA_REQ_
? , APS_DISCARD_
? , APS_EVENT_RECEIVE_
? , APS_INITIALIZE_
? , APS_STATUS_
? )
? LIST
--
-- Source in GUARDIAN 90 external declarations.
-- EXTDECS comes from the appropriate volume and subvolume.
--
? NOLIST, SOURCE EXTDECS( ABEND
? , CLOSE
? , DEBUG
? , MYTERM
? , NUMIN
? , NUMOUT
? , OPEN
? , READ
? , WRITE
? )
? LIST
? PAGE
------------------------------------------------------------
--
-- Convert a signed integer into a displayable format.
--
------------------------------------------------------------
PROC local_numout( integer );
INT integer; -- i : integer to display
BEGIN
IF ( integer < 0 ) THEN
BEGIN
outptr ':=' "-" -> @outptr;
CALL NUMOUT( outptr, -integer, 10, 5 );
END
ELSE