(No title)

# Example RPCL file

Here is an example of a definition file. If you are used to pascal, compare it with the equivalent declarations in pascal.

    --      Example: RPCL Definition of a FILE ACCESS PACKAGE
    --

    PACKAGE filer IS

    --              Type declaration part:

      TYPE  my_int  IS      RPC_SHORT;
      TYPE  my_long IS      RPC_LONG;
      TYPE  my_subs IS      SUBSTRING(255);
      TYPE  my_type IS      ARRAY(1..4) OF RPC_CHAR;

    --              Procedure declaration part:

      PROCEDURE f_init(     status:         OUT     my_long);
      PROCEDURE f_end(      status:         OUT     my_long);

      PROCEDURE f_open(     unitno:         IN      my_int;
                            name:           IN      my_subs;
                            mode:           IN      my_int;
                            nameuse:        IN      my_type;
                            status:         OUT     my_long);

      PROCEDURE f_close(unitno: IN my_int; status: OUT my_long);

      PROCEDURE f_getline(  unitno:         IN      my_int;
                            linebuf:        OUT     my_subs;
                            ch:             OUT     my_int;
                            status:         OUT     my_long);

      PROCEDURE f_putline(  unitno:         IN      my_int;
                            name:           IN      my_subs;
                            status:         OUT     my_long);

      PROCEDURE f_rename(name1, name2:      IN      my_subs;
                            t1, t2:         IN      my_type;
                            status:         OUT     my_long);

      PROCEDURE f_errmess(messno:           IN      my_long;
                            name:           OUT     my_subs;
                            status:         OUT     my_long);
    END filer;
    _________________________________________________________________