$SAVE NOLIST

rq$a$update:  PROCEDURE( conn,
                         resp$mbox,
                         except$ptr ) EXTERNAL;

DECLARE conn            TOKEN,
        resp$mbox       TOKEN,
        except$ptr      POINTER;

END rq$a$update;

$RESTORE