Using a record as parameter in dynamic SQL

Question

Hi,
I'm trying to pass a record (%rowtype) as parameter
to a procedure which i call from inside a dynamic statement. This doesnt seem to work however, I get the reply "not a valid sql-statement".
Apparently, Oracle does not allow for this since records are not a SQL-type but a PL/SQL-type.
Have anyone found a way around this?
(Except for the obvious to pass just the primary key and
populate the record inside the procedure).
The code looks like:
declare
v_rec employee%rowtype;
v_stmt varchar2(500);
begin     
select *
          into v_rec
          from emplyee
          where rownum = 1;
v_stmt := 'some_proc ( :param )';
execute immediate v_stmt using v_rec;
end;
Any advice appreciated,
Thanks
Anders Grusell

Answer 1

Hi,
Here's a example of something similar which we had done for the data conversion excercise recently.
The script uses dynmanic PL/SQL block and executes it using Execute Immediate. AAnd within the dynamic PL/SQL block, a procedure Pr_Pb_Test is called which takes in %ROWTYPE as ainput parameter.
See if this helps.
-- Shailender Mehta --
Set ServerOutput On Size 999999;
Declare
i Number;
lValue Varchar2(10);
type rc is ref cursor;
iVar1 Varchar2(10) := 'Test Var';
l_cursor rc;
ltest1 Mr_Test1%RowType; -- RowType Structure for Mirror
lSql Varchar2(100);
lNewTab Tb_Test%RowType; -- RowType Structure for the New System Table
/* This procedure uploads to new system table the 1st time
The table Test1 after successful upload will be taken Offline
or deleted
Procedure abc Is
lSqlStr Long;
Begin
SQL> desc test1;
Name Null? Type
ID NUMBER
COL1 VARCHAR2(10)
lSqlStr := 'Declare
ltest Test1%RowType;
type rc is ref cursor;
l_cursor rc;
lNewTab Tb_Test%RowType; -- RowType Structure for new system Table
Begin
Open l_cursor For :lSql;
Loop
Fetch l_cursor Into ltest;
Exit When l_cursor%NotFound;
lNewTab.Id := ltest.Id;
lNewTab.Col1 := ltest.Col1;
-- Procedure which inserts into the new system
-- table using %ROWTYPE
Pr_Tb_Test (lNewTab);
End Loop;
End;
Execute Immediate lSqlStr USING lsql;
End abc;
Begin
Begin
Select code_value
Into lValue
From DC_CODES
Where code_type_cd = 'LASTRUNDT'
And code_value Is Not Null;
i := 1;
Exception
When No_Data_Found Then i := 0;
End;
If ( i = 0 ) Then
Delete From Tb_Test;
lSql := 'Select * from test1';
abc;
Else
-- Subsequent uploads to the new system tables using MIRROR table : Mr_Test1
SQL> desc mr_test1;
Name Null? Type
ID NUMBER
COL1 VARCHAR2(10)
ACTION_TYPE VARCHAR2(1)
lSql := 'Select * from mr_test1 Where Action_Type = ''I''';
Open l_cursor for lSql;
Loop
Fetch l_cursor Into ltest1;
Exit When l_cursor%NotFound;
lNewTab.Id := ltest1.Id;
lNewTab.Col1 := ltest1.Col1;
Pr_Tb_Test (lNewTab); -- Procedure which inserts into the new system
End Loop;
Close l_cursor;
End If;
Update dc_codes set code_value = sysdate;
End;
/