OSI/AS Programming Manual

ManualsBrandsHP ManualsServerHP NonStop G-Series

Example 1: Session Layer

Sample Programs

E–4 056783 Tandem Computers Incorporated

-- Swap volume for API extended data segment

--

INT .swapvol[0:3] := ["$SYSTEM "];

--

-- APS procedure call variables

-- (APS_... in margin indicates procedure usage.)

--

INT cepi_1; -- CEPI1 for APS calls

INT cepi_2; -- CEPI2 for APS calls

INT connect_result; -- connect result

INT error; -- error from APS calls

INT error_code; -- APS_STATUS_

INT error_subcode; -- APS_STATUS_

INT event_code; -- APS_EVENT_RECEIVE_

INT mode; -- connect type

INT release_result; -- release result

INT service_id; -- APS_STATUS_

INT status; -- status from APS calls

INT(32) more_data; -- APS_DATA_GETPARAM_

INT(32) next_position; -- APS_DATA_GETPARAM_

INT(32) start_position; -- APS_DATA_GETPARAM_

INT(32) tag; -- tag for APS calls

STRUCT .api_environment

( zaps^ddl^environment^def );

STRUCT .conid

( zaps^ddl^l5^conid^def );

STRUCT .conid_1

( zaps^ddl^l5^conid^def );

STRUCT .conid_2

( zaps^ddl^l5^conid^def );

STRUCT .device_name

( zaps^ddl^filename^def );

STRUCT .diagnostic_buffer

( zaps^ddl^diag^buf^def );

STRUCT .local_appl

( zaps^ddl^appl^addr^def );

STRUCT .local_appl_1

( zaps^ddl^appl^addr^def );

STRUCT .local_appl_2

( zaps^ddl^appl^addr^def );

STRUCT .original_error_info

( zaps^ddl^original^error^def );

STRUCT .remote_appl

( zaps^ddl^appl^addr^def );

STRUCT .remote_appl_1

( zaps^ddl^appl^addr^def );

STRUCT .remote_appl_2

( zaps^ddl^appl^addr^def );

STRUCT .session_rqmnts

( zaps^ddl^l5^rqmnts^def );