$SAVE NOLIST

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

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

END rq$uncatalog$object;

$RESTORE