How to get columns horizontal in pl/sql procedure

Question

My task is I want to retrieve all the Insert Statements of the rows that are present in each table of a particular Schema.
When I give input as Schema name(Scott) in a Procedure, Then the procedure retrieves all the Insert statements of rows of all tables that are present in scott user.
For this I started like this
CREATE OR REPLACE PROCEDURE MYPROC(UID DBA_OBJECTS.OWNER%TYPE)
AS
CURSOR MYCUR IS select o.owner, o.object_name,c.column_name
from dba_objects o, dba_tab_cols c where o.owner=c.OWNER(+) AND O.OWNER=UID
AND O.OBJECT_NAME=C.TABLE_NAME AND ROWNUM<20 AND O.OBJECT_TYPE='TABLE';
BEGIN
FOR EREC IN MYCUR LOOP
DBMS_OUTPUT.PUT_LINE('insert into '||erec.object_name||'('||erec.column_name||')'||'values(');
END LOOP;
END MYPROC;
When I execute this procedure I got the result as follows.
EXEC MYPROC('SCOTT');
insert into DEPT(DEPTNO)values(
insert into DEPT(DNAME)values(
insert into DEPT(LOC)values(
insert into EMP(EMPNO)values(
insert into EMP(ENAME)values(
insert into EMP(JOB)values(
insert into EMP(MGR)values(
insert into EMP(HIREDATE)values(
insert into EMP(SAL)values(
insert into EMP(COMM)values(
insert into EMP(DEPTNO)values(
insert into BONUS(ENAME)values(
insert into BONUS(JOB)values(
insert into BONUS(SAL)values(
insert into BONUS(COMM)values(
insert into SALGRADE(GRADE)values(
insert into SALGRADE(LOSAL)values(
insert into SALGRADE(HISAL)values(
insert into PROJECT(PNO)values(
As you see the columns are coming in line by line.
Now My question is I want the columns of each table to come in only One Insert Statement.i.e. one insert statement for one table. All columns of one table should in one row. How to do this?
Please Help me
Thanks in Advance.

Answer 1

Hi,
two loops works the easiest way
CREATE OR REPLACE PROCEDURE MYPROC(UID DBA_OBJECTS.OWNER%TYPE)
AS
CURSOR MYtab
IS
select o.owner, o.object_name
from dba_objects o where O.OWNER=UID
and ROWNUM<20
AND O.OBJECT_TYPE='TABLE';
CURSOR MYCol(b_owner varchar2,b_table varchar2)
IS
select c.column_name
from dba_tab_cols c where c.owner=b_OWNER AND b_table=C.TABLE_NAME;
l_line varchar2(2000);
begin
  for r_tab in mytab
loop
  l_line :='insert into '||r_tab.object_name||'(');
  for r_col in mycol(r_tab.owner,r_tab.object_name)
  loop
    l_line := l_line||r_col.column_name||',';
  end loop;
  l_line := rtrim(l_line,',')||') values (';
dbms_output.put_line(l_line);
end loop;
end;Hope this will give you some insights how to get the results.
Herald ten Dam
Superconsult.nl