Is there any Alternative other than %rowtype attribute

Question

BANNER
Oracle Database 11g Enterprise Edition Release 11.2.0.2.0 - 64bit Production
PL/SQL Release 11.2.0.2.0 - Production
CORE     11.2.0.2.0     Production
TNS for Solaris: Version 11.2.0.2.0 - Production
NLSRTL Version 11.2.0.2.0 - Production
Hi,
    I have two tables by names one with  rak_rt , rak_batch
     Both are having structure except with few columns
       create table rak_rt(rak_rt_sid number, rak_name varchar2(100));
       create table rak_batch(rak_batch_sid number,rak_name varchar2(100));
We need to populate this tables based on some flag meaning if flag is 'Y' then we need to insert into rak_rt table else into rak_batch table.
As of now we are doing by declaring two variables with two tables %rowtype and then inserting two tables.
v_1        rak_rt%rowtype;
v_2        rak_batch%rowtype;
populate the varibles with the respective values and then insert.
DECLARE
   v_1      rak_rt%ROWTYPE;
   v_2      rak_batch%ROWTYPE;
   v_flag   VARCHAR2 (1) := 'Y';
BEGIN
   IF v_flag = 'Y'
   THEN
      v_1.rak_rt_sid := 1;
      v_1.rak_name := 'Rakesh';--Duplicate code
   ELSE
      v_2.rak_batch_sid := 1;
      v_2.rak_name := 'Rakesh'; --Duplicate code
   END IF;
   IF v_flag = 'Y'
   THEN
      INSERT INTO rak_rt
        VALUES   v_1;
   ELSE
      INSERT INTO rak_batch
        VALUES   v_2;
   END IF;
END;
This works but the code is being duplicated meaning there is only one column name different in both the tables.
Now the question is if we do in this way there will be duplicate of the same code. like code for populating the same values into two variables.
Is there any way to do this in a differenct manner....as there Only the few column name being different.
Thanks in advance
Regards,
  Rakesh.

Answer 1

I haven't change your logic, it might create problem to your main code. Just added something , as per my understanding.
Check the modified one ( Not Tested).
I tried to figure out your logic and done some changes and raised some mistake. Check comments properly.
DECLARE
   TYPE typ_name IS RECORD (
                       rak_rt_sid      rak_rt.rak_rt_Sid%TYPE,
                       rak_batch_sid   rak_batch.rak_batch_sid%TYPE,
                       rak_name        rak_batch.rak_name%TYPE
   rec_typ_name   typ_name;
   v_flag         VARCHAR2 (20) := 'Batch';  /* Why you have hard-coded flag to Batch! Then when RealTime will come !  */
   -- ADDED -- Start
   CURSOR cur1(cp_rack_name IN rak_rt.rak_name%TYPE)
   IS
   SELECT COUNT(1) FROM rak_rt
   WHERE rak_name = cp_rack_name;
   cnt PLS_INTEGER := 0;
   -- ADDED -- End
BEGIN
    here: use some logic to change v_flag value as per requirement
   IF v_flag = 'RealTime' /* I guess, this will not satisfy ever by this piece of code! */
   THEN
      rec_typ_name.rak_rt_sid := 1;
   ELSE
      rec_typ_name.rak_batch_sid := 1;
   END IF;
   rec_typ_name.rak_name := 'Rakesh';
   IF v_flag = 'RealTime'
   THEN
      INSERT INTO rak_rt
        VALUES   (rec_typ_name.rak_rt_sid,rec_typ_name.rak_name);
   ELSE
        /*Added */
          OPEN cur1(rec_typ_name.rak_name);
          FETCH cur1 INTO cnt;
          CLOSE cur1;
          /* Added end */
          IF cnt = 0 THEN
            INSERT INTO rak_batch
           VALUES   (rec_typ_name.rak_batch_sid,rec_typ_name.rak_name);
          ELSE
            NULL;  /* Optional : Add your logic */
          END IF;
   END IF;
  commit;
END;Thanks!