(No title)

# 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.
    _________________________________________________________________