$SAVE NOLIST

rq$delete$user:  PROCEDURE( user$t,
                            except$ptr ) EXTERNAL;

DECLARE user$t      TOKEN,
        except$ptr  POINTER;

END rq$delete$user;

$RESTORE