Is it possible to write in this Way....?

Question

Dear All,
I'm very new to Oracle Pl/SQL
My store proc is as below..
I have a table
Name: test_synch
Note: test_synch has the data that needs to be updated in multiple tables. and it has multi columns along with destination table and column name and new data which I need to update (target table and it's column)
Now I need to update the data from test_synch to taget table (destination tables) and need to convert the datatype of the value according to destination table datatype.
create or replace procedure proc_sec_synch
datatyp char(10);
Begin
FOR lr_Update in (
Select
SsM_ID ,
CYCLE_DATE ,
DESTINATION_TABLE ,
COLUMN_NAME ,
NEW_DATA ,
COLUMN_TYPE from PM_OWN.test_synch order by destination_table )
Loop
datatyp = ('Select DATA_TYPE from all_tab_columns where table_name = ' ||lr_update.destination_table||'and column_name = '||lr_update.column_name||;)
case datatyp
when 'VARCHAR2' then
'Update' || lr_Update.destination_table ||' dest SET dest.' ||lr_Update.column_name||' =
cast( (select src.new_data from test_synch src where src.ssm_id = '||lr_Update.destination_table||'.ssm_id;) as varchar2) where src.ssm_id = '||lr_Update.destination_table||)
END Loop;
END proc_sec_synch
Is this the way to write a proc..? or anyother way..?
Plz Help ME

Answer 1

Naresh wrote:
I tired but still getting error the above mentioned error only.
my doubt is I need to run that statement also dynamically..?
What do you say..?which line is throwing the error?
CREATE OR replace PROCEDURE Proc_sec_synch1
IS
  datatyp CHAR(10);
BEGIN
  FOR lr_update IN (SELECT ssm_id,
                           cycle_date,
                           destination_table,
                           column_name,
                           new_data,
                           column_type
                    FROM   test_synch
                    ORDER  BY destination_table,
                              column_name) LOOP
      SELECT data_type
      INTO   datatyp
      FROM   all_tab_columns
      WHERE  table_name = lr_update.destination_table
             AND column_name = lr_update.column_name;
      IF datatyp = 'VARCHAR2' THEN
EXECUTE IMMEDIATE 'UPDATE '|| lr_update.destination_table
||
' AS dest SET dest.'||lr_update.column_name||' = cast( (select src.new_data from test_synch src where src.ssm_id = '||lr_update.destination_table||'.ssm_id;) as varchar2) where src.ssm_id = '||lr_update.destination_table||'.ssm_id';
END IF;
END LOOP;
COMMIT;
END proc_sec_synch1;  01403, 00000, "no data found"
// *Cause: No data was found from the objects.
// *Action: There was no data from the objects which may be due to end of fetch.