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;