EBS 动态游标使用示例

EBS 动态游标使用示例，代码如下所示，仅供参考:

---

DECLARE
    l_cursor_sql VARCHAR2(32767);
    l_value      VARCHAR2(1);

    TYPE ref_cursor IS REF CURSOR;
    cur_sql ref_cursor;
BEGIN
    l_cursor_sql := 'SELECT :1 FROM DUAL UNION ALL SELECT :2 FROM DUAL ';

    OPEN cur_sql FOR l_cursor_sql
        USING 'A', 'B';
    LOOP
    
        FETCH cur_sql
            INTO l_value;
        EXIT WHEN cur_sql%NOTFOUND;
    
        dbms_output.put_line('l_value = ' || l_value);
    
    END LOOP;
END;