例如:
DECLARE
CURSOR C_CONS IS
SELECT P.TABLE_NAME, P.PARTITION_NAME, P.HIGH_VALUE
FROM USER_TAB_PARTITIONS P;
P_HIGH_VALUE VARCHAR2(4000);
P_TABLE_NAME VARCHAR2(4000);
P_PARTITION_NAME VARCHAR2(4000);
BEGIN
EXECUTE IMMEDIATE ('CREATE TABLE LOTTERY (TABLE_NAME VARCHAR2(4000),PARTITION_NAME VARCHAR2(4000),HIGH_VALUE VARCHAR2(4000))');
FOR P_C_CONS IN C_CONS LOOP
P_HIGH_VALUE := P_C_CONS.HIGH_VALUE;
P_TABLE_NAME := P_C_CONS.TABLE_NAME;
P_PARTITION_NAME := P_C_CONS.PARTITION_NAME;
EXECUTE IMMEDIATE ('INSERT INTO LOTTERY VALUES(''' || P_TABLE_NAME ||
''',''' || P_PARTITION_NAME || ''',''' ||
P_HIGH_VALUE || ''')');
--DBMS_OUTPUT.PUT_LINE('INSERT INTO LOTTERY VALUES(''' || P_TABLE_NAME ||''',''' || P_PARTITION_NAME || ''',''' ||P_HIGH_VALUE || ''')');
END LOOP;
COMMIT;
END;