Dynamic populating object variable

Question

Hi Experts!
I have object type:create or replace type r_attribs_t is table of varchar2(100);
create or replace type r_relations_t is table of varchar2(40);
create or replace type r_spatial_t is table of varchar2(100);
type recfull_ot is object (
    r_type    char(2),
    r_class   varchar2(10),
    r_atype   varchar2(10),
    r_id      varchar2(30),
    r_idr     varchar2(100),
    r_status  char(2),
    r_dtu     date,
    r_dtw     date,
    attribs       r_attribs_t,
    relations     r_relations_t,
    spatial_data  r_spatial_t,
    map member function newer return date,
    member function get_ID return varchar2,
    member procedure load_record (p_type varchar2, p_id varchar2, p_idr varchar2)
);and some tables:CREATE TABLE "G5ADR" (
    "ID"     VARCHAR2(30 BYTE) NOT NULL ENABLE,
    "STATUS" NUMBER(2,0) DEFAULT 1 NOT NULL ENABLE,
    "G5TAR"  NUMBER(1,0),
    "G5NAZ"  VARCHAR2(200 BYTE),
    "G5KRJ"  VARCHAR2(200 BYTE),
    "G5WJD"  VARCHAR2(200 BYTE),
    "G5PWJ"  VARCHAR2(200 BYTE),
    "G5GMN"  VARCHAR2(200 BYTE),
    "G5ULC"  VARCHAR2(200 BYTE),
    "G5NRA"  VARCHAR2(200 BYTE),
    "G5NRL"  VARCHAR2(200 BYTE),
    "G5MSC"  VARCHAR2(200 BYTE),
    "G5KOD"  VARCHAR2(200 BYTE),
    "G5PCZ"  VARCHAR2(200 BYTE),
    "G5DTW" DATE,
    "G5DTU" DATE,
    "IDR" VARCHAR2(100 BYTE),
    CONSTRAINT "G5ADR_PK" PRIMARY KEY ("ID")
CREATE TABLE "G5DOK" (
    "ID"     VARCHAR2(30 BYTE) NOT NULL ENABLE,
    "STATUS" NUMBER(2,0) DEFAULT 1 NOT NULL ENABLE,
    "G5IDM"  VARCHAR2(200 BYTE),
    "G5KDK"  NUMBER(2,0),
    "G5DTD" DATE,
    "G5DTP" DATE,
    "G5SYG" VARCHAR2(200 BYTE),
    "G5NSR" VARCHAR2(200 BYTE),
    "G5OPD" VARCHAR2(200 BYTE),
    "G5DTW" DATE,
    "G5DTU" DATE,
    "IDR" VARCHAR2(100 BYTE),
    CONSTRAINT "G5DOK_PK" PRIMARY KEY ("ID")
-- ... and others ...I need to write member procedure load_record loading data from one of that tables into the object variable. The table to load data from depends on p_type input parameter, howerer. This makes the problem difficult for me, because I realy don't know how to deal with that. The attribs nested table shoud be populated with all the G5% columns from the table.
Any suggestions?
Help, please...
Edited by: JackK on Nov 18, 2010 9:48 AM

Answer 1

OK, I've been experimenting on an alternative for DBMS_SQL...
Here's a simplified test case based on the structures you gave.
It should work on release 10.2 and upwards (I've only tested it on 11.2 though).
create or replace type r_attribs_obj is object(col varchar2(30), val varchar2(100));
create or replace type r_attribs_tab is table of r_attribs_obj;
CREATE OR REPLACE TYPE recfull_ot IS OBJECT (
r_id      varchar2(30),
r_idr     varchar2(100),
attribs   r_attribs_tab,
member procedure load_record (self in out recfull_ot, p_type varchar2, p_id varchar2, p_idr varchar2)
CREATE OR REPLACE TYPE BODY recfull_ot IS
MEMBER PROCEDURE load_record (self in out recfull_ot, p_type varchar2, p_id varchar2, p_idr varchar2)
IS
ctx dbms_xmlgen.ctxHandle;
res xmltype;
attribs_tab r_attribs_tab;
BEGIN
ctx := dbms_xmlgen.newContext('SELECT * FROM '||p_type||' WHERE id = :1 AND idr = :2');
dbms_xmlgen.setBindValue(ctx,'1',p_id);
dbms_xmlgen.setBindValue(ctx,'2',p_idr);
res := dbms_xmlgen.getXMLType(ctx);
dbms_xmlgen.closeContext(ctx);
self.r_id := p_id;
self.r_idr := p_idr;
SELECT cast(
   multiset(
     select col, val
     from xmltable(
      'for $i in /ROWSET/ROW/*
       where fn:starts-with(local-name($i),"G5")
       return element r
        attribute col {local-name($i)},
        $i/text()
      passing res
      columns col varchar2(30) path '@col',
              val varchar2(100) path '.'
  as r_attribs_tab
) INTO self.attribs
FROM dual
END;
END;
CREATE TABLE "G5ADR" (
  "ID"     VARCHAR2(30 BYTE) NOT NULL ENABLE,
  "G5NAZ"  VARCHAR2(200 BYTE),
  "G5KRJ"  VARCHAR2(200 BYTE),
  "G5WJD"  VARCHAR2(200 BYTE),
  "IDR" VARCHAR2(100 BYTE),
  CONSTRAINT "G5ADR_PK" PRIMARY KEY ("ID")
insert into g5adr (ID, G5NAZ, G5KRJ, G5WJD, IDR) values ('001', 'NAZ001', 'KRJ001', 'WJD001', '1');
insert into g5adr (ID, G5NAZ, G5KRJ, G5WJD, IDR) values ('002', 'NAZ002', 'KRJ002', 'WJD002', '1');
insert into g5adr (ID, G5NAZ, G5KRJ, G5WJD, IDR) values ('003', 'NAZ003', 'KRJ003', 'WJD003', '1');Verifying the nested table is correctly loaded...
SQL> set serveroutput on
SQL> DECLARE
  2   obj recfull_ot := recfull_ot(null, null, null);
  3  BEGIN
  4   obj.load_record('G5ADR', '001', 1);
  5   for i in 1..obj.attribs.count loop
  6    dbms_output.put_line(obj.attribs(i).col||' = '||obj.attribs(i).val);
  7   end loop;
  8  END;
  9  /
G5NAZ = NAZ001
G5KRJ = KRJ001
G5WJD = WJD001
PL/SQL procedure successfully completed