--批量增加分表字段指令碼

DECLARE

    V_SQL VARCHAR2(2000);

    V_TABLE_NAME VARCHAR2(100);

CURSOR C1 IS

    SELECT TABLE_NAME FROM USER_TABLES where TABLE_NAME like 'department%'; --查詢當前使用者下的所有的分表

BEGIN

    OPEN C1;

        LOOP

            --提取一行資料到c1

            FETCH C1

            INTO V_TABLE_NAME;

            --判讀是否提取到值，沒取到值就退出

            EXIT WHEN C1%NOTFOUND;

            V_SQL := 'alter table ' || V_TABLE_NAME || ' add user_name varchar2(32)';

            EXECUTE IMMEDIATE V_SQL;

        END LOOP; --關閉遊標

    CLOSE C1;

END;