Not getting Result please Help

Question

Hi All
query_string VARCHAR2(2000);
query_string are EMPNO,ENAME
for rec1 in (SELECT query_string FROM p_table_name ) loop
utl_file.put_line(v_file, rec1.result1);
END LOOP;
not getting Result please Help
Regards

Answer 1

You may look at this:
michaels>  DECLARE
   cur            sys_refcursor;
   query_string   VARCHAR2 (2000) := '';
   p_table_name   VARCHAR2 (30)   := UPPER ('emp');
   p_stmt         LONG;
BEGIN
   FOR c IN (SELECT ROWNUM rn, column_name, COUNT (*) OVER () cnt
               FROM user_tab_cols
              WHERE table_name = p_table_name AND hidden_column = 'NO')
   LOOP
      query_string :=
         query_string || c.column_name
         || CASE
            WHEN c.rn != c.cnt
               THEN ' || ''|'' || '
         END;
   END LOOP;
   p_stmt := 'select ' || query_string || ' FROM ' || p_table_name;
-- DBMS_OUTPUT.put_line (p_stmt);
   OPEN cur FOR p_stmt;
   FOR rec1 IN (SELECT EXTRACTVALUE (t.COLUMN_VALUE, '/ROW//text()') result1
                  FROM TABLE (XMLSEQUENCE (cur)) t)
   LOOP
      /*  replace with utl_file in case ... */
      DBMS_OUTPUT.put_line (rec1.result1);
   END LOOP;
   CLOSE cur;
END;
7369|SMITH|CLERK|7902|17-DEC-80|800||20
7499|ALLEN|SALESMAN|7698|20-FEB-81|1600|300|30
7521|WARD|SALESMAN|7698|22-FEB-81|1250|500|30
7566|JONES|MANAGER|7839|02-APR-81|2975||20
7654|MARTIN|SALESMAN|7698|28-SEP-81|1250|1400|30
7698|BLAKE|MANAGER|7839|01-MAY-81|2850||30
7782|CLARK|MANAGER|7839|09-JUN-81|2450||10
7788|SCOTT|ANALYST|7566|19-APR-87|3000||20
7839|KING|PRESIDENT||17-NOV-81|5000||10
7844|TURNER|SALESMAN|7698|08-SEP-81|1500|0|30
7876|ADAMS|CLERK|7788|23-MAY-87|1100||20
7900|JAMES|CLERK|7698|03-DEC-81|950||30
7902|FORD|ANALYST|7566|03-DEC-81|3000||20
7934|MILLER|CLERK|7782|23-JAN-82|1300||10
PL/SQL procedure successfully completed.