package失效，編譯失效對象

DECLARE
  CURSOR cur IS
    SELECT *
      FROM all_objects
     WHERE status <> 'VALID'
       AND object_name LIKE 'CUX%';
  l_sql VARCHAR2(2000);
BEGIN
  FOR rec IN cur LOOP
    IF rec.object_type = 'PACKAGE BODY' THEN
      l_sql := 'alter package ' || rec.object_name || ' compile body';
    ELSE
      l_sql := 'alter ' || rec.object_type || rec.object_name || ' compile';
    END IF;
    dbms_output.put_line(l_sql);
    BEGIN
      EXECUTE IMMEDIATE l_sql;
    EXCEPTION
      WHEN OTHERS THEN
        dbms_output.put_line(rec.object_name || ' ERROR');
    END;
  END LOOP;
END;