Try to create a method to return an object as xml

Question

I'm trying to create a method for an object to return the objects attributes in xml format.
here is what I have done so far:
-- create the object hierachy
create or replace type ras4.atomic_tp as object
     (atomic_instance_id     varchar2(8),
     service_instance_id     varchar2(8),
     parent_atomic_instance_id varchar2(8),
     MEMBER FUNCTION return_xml RETURN varchar2)
NOT INSTANTIABLE
NOT FINAL;
create or replace type ras4.parm_const_tp under ras4.atomic_tp
     (parameter_name          varchar2(75))
NOT INSTANTIABLE
NOT FINAL;
create or replace type ras4.contact_tp under ras4.atomic_tp
     (address_line_1          varchar2(80),
     address_line_2          varchar2(80),
     address_line_3          varchar2(80),
     city               varchar2(20),
     state               varchar2(2),
     country               varchar2(20),
     postal_code          varchar2(20),
     voice_telephone          varchar2(20),
     dns_telephone          varchar2(20),
     fax               varchar2(20),
     email               varchar2(80),
     url               varchar2(20),
     contact_inst          varchar2(255))
NOT INSTANTIABLE
NOT FINAL;
create or replace type PERSON_tp under contact_tp
     (prefix               varchar2(7),
     first_name          varchar2(50),
     middle_name          varchar2(50),
     last_name          varchar2(50),
     suffix               varchar2(20),
     nick_name          varchar2(50),
OVERRIDING MEMBER FUNCTION return_xml return varchar2)
INSTANTIABLE
FINAL;
create table ras4.person_tb of ras4.person_tp;
insert into ras4.person_tb values
(ras4.person_tp('00001', '00001', '00001', '1111 Trail Lake Dr.', null, null, 'Fort Worth',
'TX', 'USA', '76233', '[phone]', null, null, '[email protected]', 'www.tom.com', 'no calls after 10:00 please',
'Mr.', 'Tom', 'Scott', 'Tiegen', null, 'Tom'));
commit;
-- now different things I have tried to get the member function to work:
CREATE or replace TYPE BODY RAS4.PERSON_TP AS
     overriding MEMBER FUNCTION RETURN_XML RETURN VARCHAR2 IS
qryCtx DBMS_XMLGEN.CTXHANDLE;
result CLOB;
BEGIN
     qryCtx :=
     DBMS_XMLGEN.NEWCONTEXT ('select self.first_name from dual;');
result := DBMS_XMLGEN.GETXML(qryCtx);
          RETURN (RESULT);
     END;
END;
I try to invoke the method as below:
DECLARE
v_person ras4.person_tp;
v_person_ref ref ras4.person_tp;
V_string varchar2(2000);
BEGIN
select value(a)
into v_person
from ras4.person_tb a
where a.atomic_instance_id = '00001';
v_string := v_person.return_xml;
DBMS_OUTPUT.PUT_LINE(v_string);
END;
I get the following error:
DECLARE
ERROR at line 1:
ORA-19206: Invalid value for query or REF CURSOR parameter
ORA-06512: at "SYS.DBMS_XMLGEN", line 83
ORA-06512: at "RAS4.PERSON_TP", line 7
ORA-06512: at line 12
-- I try to use
from the command line I type in this:
select sys_xmlgen(value(p))
from person_tb p
where p.atomic_Instance_id = '00001';
and it seems to work.
trying to put this into a member function - I try this:
CREATE or replace TYPE BODY RAS4.PERSON_TP AS
     overriding MEMBER FUNCTION RETURN_XML RETURN VARCHAR2 IS
v_string varchar2(200);
v_person ras4.person_tp;
BEGIN
     v_person := self;
     select v_person.first_name into v_string from dual;
     return (select sys_xmlgen(value(v_person)));
     END;
END;
This fails to compile.
any help is greatly appreciated.
tom

Answer 1

PN,
First, it's impossible to create static method with WD IDE designers for controllers.
Next, if you simply need to call method from wdDoModifyView, just create instance method createHTMLViewer in regular way then call it from wdDoModifyView via wdThis.createHTMLViewer().
Third, you may create this method manually directly in source code, just place it at the end of controller between comments //@begin other ... //@end.
Valery Silaev
EPAM Systems
http://www.NetWeaverTeam.com