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; _________________________________________________________________

Tim BL