Update整个数据库所有表某字段的值

CREATE OR REPLACE PROCEDURE SP_DYLAN_TEST1 AS

  TYPE RC IS REF CURSOR;

  V_RC         RC;

  V_TABLE_NAME VARCHAR(50);

 

  V_SQL VARCHAR2(500);

BEGIN

 

  OPEN V_RC FOR

    SELECT C.TABLE_NAME

      FROM all_all_tables C

     WHERE 1 = 1

       AND C.OWNER = 'SITC'

       and c.table_name in (select b.TABLE_NAME

                              from all_tab_columns b

                             where b.COLUMN_NAME = 'PRINCIPAL_GROUP_CODE'

                               and b.OWNER = 'SITC');

  LOOP

    FETCH V_RC

      INTO V_TABLE_NAME;

    EXIT WHEN V_RC%NOTFOUND;

    BEGIN

      V_SQL := 'UPDATE ' || V_TABLE_NAME ||

               ' SET PRINCIPAL_GROUP_CODE = ''SIT''';

    

      -- DBMS_OUTPUT.put_line(V_SQL);

      EXECUTE IMMEDIATE (V_SQL);

    

      COMMIT;

    

    END;

  END LOOP;

 

END;