$SAVE NOLIST

rq$a$open:  PROCEDURE( connection$t,
                       mode,
                       share,
                       resp$mbox,
                       except$ptr ) EXTERNAL;

DECLARE connection$t  TOKEN,
        mode          BYTE,
        share         BYTE,
        resp$mbox     TOKEN,
        except$ptr    POINTER;

END rq$a$open;

$RESTORE