Dynamic loop with for

Question

Hello,
i have a procedure, which has a string parameter , this string is a select
i wanna use this select in a for loop
for ref in param loop
--trt
end loop;
is this possible, and what type should i define to ref
Regards
Sallemel

Answer 1

A simple example of using DBMS_SQL...
SQL> ed
Wrote file afiedt.buf
  1  CREATE OR REPLACE PROCEDURE replace_text(p_txt IN VARCHAR2, p_sql IN VARCHAR2) IS
  2    v_finaltxt  VARCHAR2(4000);
  3    v_val       VARCHAR2(2000);
  4    v_ret       NUMBER;
  5    c           NUMBER;
  6    d           NUMBER;
  7    col_cnt     INTEGER;
  8    f           BOOLEAN;
  9    rec_tab     DBMS_SQL.DESC_TAB;
10    col_num     NUMBER;
11  BEGIN
12    c := DBMS_SQL.OPEN_CURSOR;
13    DBMS_SQL.PARSE(c, p_sql, DBMS_SQL.NATIVE);
14    d := DBMS_SQL.EXECUTE(c);
15    DBMS_SQL.DESCRIBE_COLUMNS(c, col_cnt, rec_tab);
16    FOR j in 1..col_cnt
17    LOOP
18      DBMS_SQL.DEFINE_COLUMN(c,j,v_val,2000);
19    END LOOP;
20    LOOP
21      v_ret := DBMS_SQL.FETCH_ROWS(c);
22      EXIT WHEN v_ret = 0;
23      v_finaltxt := p_txt;
24      FOR j in 1..col_cnt
25      LOOP
26        DBMS_SQL.COLUMN_VALUE(c,j,v_val);
27        v_finaltxt := replace(v_finaltxt,'$'||lower(rec_tab(j).col_name),v_val);
28      END LOOP;
29      DBMS_OUTPUT.PUT_LINE(v_finaltxt);
30    END LOOP;
31    DBMS_SQL.CLOSE_CURSOR(c);
32* END;
SQL> /
Procedure created.
SQL> exec replace_text('Person $ename of the $dname department has a salary of $sal ...','select ename, dname, sal from emp join dept on (emp.deptno = dept.deptno)');
Person SMITH of the RESEARCH department has a salary of 800 ...
Person ALLEN of the SALES department has a salary of 1600 ...
Person WARD of the SALES department has a salary of 1250 ...
Person JONES of the RESEARCH department has a salary of 2975 ...
Person MARTIN of the SALES department has a salary of 1250 ...
Person BLAKE of the SALES department has a salary of 2850 ...
Person CLARK of the ACCOUNTING department has a salary of 2450 ...
Person SCOTT of the RESEARCH department has a salary of 3000 ...
Person KING of the ACCOUNTING department has a salary of 5000 ...
Person TURNER of the SALES department has a salary of 1500 ...
Person ADAMS of the RESEARCH department has a salary of 1100 ...
Person JAMES of the SALES department has a salary of 950 ...
Person FORD of the RESEARCH department has a salary of 3000 ...
Person MILLER of the ACCOUNTING department has a salary of 1300 ...
Person WILLIS of the RESEARCH department has a salary of 900 ...
PL/SQL procedure successfully completed.
SQL> exec replace_text('Person $per_name of the $dept_name department has a salary of $sal_val ...','select ename as per_name, dname as dept_name, sal as sal_val from emp join dept on (emp.deptno = dept.deptno)');
Person SMITH of the RESEARCH department has a salary of 800 ...
Person ALLEN of the SALES department has a salary of 1600 ...
Person WARD of the SALES department has a salary of 1250 ...
Person JONES of the RESEARCH department has a salary of 2975 ...
Person MARTIN of the SALES department has a salary of 1250 ...
Person BLAKE of the SALES department has a salary of 2850 ...
Person CLARK of the ACCOUNTING department has a salary of 2450 ...
Person SCOTT of the RESEARCH department has a salary of 3000 ...
Person KING of the ACCOUNTING department has a salary of 5000 ...
Person TURNER of the SALES department has a salary of 1500 ...
Person ADAMS of the RESEARCH department has a salary of 1100 ...
Person JAMES of the SALES department has a salary of 950 ...
Person FORD of the RESEARCH department has a salary of 3000 ...
Person MILLER of the ACCOUNTING department has a salary of 1300 ...
Person WILLIS of the RESEARCH department has a salary of 900 ...
PL/SQL procedure successfully completed.
SQL>