Dynamic object called in Procedure

Question

Hi ,
Let me first explain the requirment of my prj.its telecom based prj.There are various types of network equipment.So i have created the object for those equipment.
for ex
CREATE TYPE 16x AS OBJECT (...._);
CREATE TYPE 4x AS OBJECT (...._);
Now I have to write a procedure in which we just pass the eqipment name .
for ex 16x
Now as soon as I pass the eqipment name the procedure should direclty select the varaible of object 16x.
SO how is possible to select the variable along with associated objectstype of the equiment at runtime only.
Hope someone can answer my question.
Thanks in advance.

Answer 1

.So i have created the object for those equipment.Why are you using objects? The Oracle o-o implementation is not complete, and (in my opinion) not very useful outside of some rather unusual scenarions. Find out more.
Anyway, let's assume your motives are good. It's also not clear precisely what you have done, so it's difficult to be sure what your problem is. What I would do woyuld be to create a master type of NETWORK_EQPT and then extend that to specific types - 16x, 4x. You can then write a function to instantiate a NETWORK_EQPT object which will figure it all out and return the appropriate subtype....
SQL> create type network_eqpt as object (type varchar2(3), name varchar2(30))
  2  not final
  3  /
Type created.
SQL> create type net_16X under network_eqpt (capacity number)
  2  /
Type created.
SQL> create type net_4X under network_eqpt (start_date date)
  2  /
Type created.
SQL> create or replace function new_nw
  2      (p_type varchar2, p_name varchar2
  3          , p_capacity number := null, p_start date := null)
  4  return network_eqpt
  5  is
  6      return_value network_eqpt;
  7  begin
  8      if p_type = '16X' then
  9          return_value := net_16X(p_type,p_name, p_capacity);
10      elsif  p_type = '4X' then
11         return_value := net_4X(p_type,p_name, p_start);
12      else
13         return_value := network_eqpt(p_type,p_name);
14      end if;
15      return return_value;
16  end new_nw;
17  /
Function created.
SQL> select new_nw('APC', 'Not a network') from dual
  2  /
NEW_NW('APC','NOTANETWORK')(TYPE, NAME)
NETWORK_EQPT('APC', 'Not a network')
SQL> select new_nw('16X', 'Recognised type', 89) from dual
  2  /
NEW_NW('16X','RECOGNISEDTYPE',89)(TYPE, NAME)
NET_16X('16X', 'Recognised type', 89)
SQL> Be aware that the above is just a sample of what can be done rather than a indication of the correct way to program it.
Cheers, APC
Blog : http://radiofreetooting.blogspot.com/