OSI/AS Programming Manual

Example 2: Presentation Layer and ACSE
Sample Programs
056783 Tandem Computers Incorporated E–65
? , APS_DATA_GETPARAM_
? , APS_DATA_REQ_
? , APS_DISCARD_
? , APS_EVENT_RECEIVE_
? , APS_INITIALIZE_
? , APS_STATUS_
? , APS_SYNC_GETPARAM_
? , MFM_AWAITIOX_
? )
? LIST
--
-- Source in GUARDIAN 90 external declarations.
-- EXTDECS0 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
CALL NUMOUT( outptr, integer, 10, 5 );
@outptr := @outptr[5];
END; -- proc local_numout
? PAGE
------------------------------------------------------------
--
-- Display an error message for those APS procedures that
-- return "error".
--
------------------------------------------------------------