Executar Objetos invalido

Executar Objetos invalido

DECLARE

    CURSOR C_OBJ IS SELECT *
                        FROM user_objects
                        WHERE OBJECT_TYPE IN ('PROCEDURE'
                                              ,'FUNCTION')
                         AND status        =  'INVALID';
BEGIN
    FOR REG IN C_OBJ
    LOOP
   EXECUTE IMMEDIATE 'ALTER '|| REG.OBJECT_TYPE ||' '|| REG.OBJECT_NAME || ' COMPILE';
     dbms_output.PUT_LINE('ALTER '||REG.OBJECT_TYPE ||' '|| REG.OBJECT_NAME ||' '|| ' COMPILE');
    END LOOP;

END;