A simple server in Pascal

The *INCLUDE statements are to be processed by the INCLUDE preprocessor. PROGRAM SERVERLOOP; { Example server program } CONST *INCLUDE RPC_CONST TYPE *INCLUDE RPC_TYPES { Define RPC types } VAR status: rpc_status; client_name: rpc_name; { Clients for main loop } *INCLUDE RPC_PROC { Declare library procedures } PROCEDURE attach_filer; extern; { Contained in SERFILER stub } BEGIN attach_filer; { Make stub known to run&hyphen.time system } { Not necessary on VAX/VMS } client_name:= 'RPC_CLIENT_NAME '; RPC_Loop_Server(status, client_name); rpc_report_error(status); END. _________________________________________________________________

Tim BL