$SAVE NOLIST

rq$catalog$object:  PROCEDURE( job$t,
                               object,
                               name,
                               except$ptr )  EXTERNAL;

DECLARE job$t       TOKEN,
        object      TOKEN,
        name        POINTER,
        except$ptr  POINTER;

END rq$catalog$object;

$RESTORE