Problem with nested object referencing

Question

I have declared a type to use as an object type within an object
create or replace type
xxjsc_irec_qans_typ as object(
answer_code varchar2(150)
,answer_meaning varchar2(150)
,constructor function xxjsc_irec_qans_typ return self as result);
Then declared this as a table as there will be many of the above object for the parent object
CREATE OR REPLACE TYPE xxjsc_irec_qans_tab AS table OF xxjsc_irec_qans_typ;
Then I have declared my parent object type..
CREATE OR REPLACE
TYPE XXJSC_IREC_APPQ_TYP AS OBJECT (
QUESTION varchar2(240)
,ANSWER_TYPE varchar2(50)
,answer_table xxjsc_irec_qans_tab
,CONSTRUCTOR FUNCTION XXJSC_IREC_APPQ_TYP RETURN SELF AS RESULT
In the package header I declare a table of my object...
TYPE v_appq_array IS TABLE OF XXJSC_IREC_APPQ_TYP
INDEX BY BINARY_INTEGER;
in the package body I am trying to populate the answer_table.
procedure getApplicationQs(p_appq_arr OUT NOCOPY v_appq_array) is
cursor csrValues(cp_id in pls_integer) is
select tl.flex_value_meaning
, tl.description
from fnd_flex_values b
, fnd_flex_values_tl tl
where b.flex_value_id = tl.flex_value_id
and b.flex_value_set_id = 1018183
and b.enabled_flag = 'Y'
and trunc(sysdate) between nvl(b.start_date_active, trunc(sysdate))
and nvl(b.end_date_active, trunc(sysdate));
cursor csrAppQs is
select b.form_left_prompt question
, c.flex_value_set_id
, ffvs.validation_type
, ffvs.format_type
, ffvs.maximum_size
, ffvs.flex_value_set_name value_set_name
from fnd_descriptive_flexs fdf
, fnd_descr_flex_col_usage_tl b
, fnd_descr_flex_column_usages c
, fnd_flex_value_sets ffvs
where fdf.descriptive_flexfield_name = 'PER_APPLICATIONS'
and fdf.descriptive_flexfield_name = b.descriptive_flexfield_name
and fdf.descriptive_flexfield_name = c.descriptive_flexfield_name
and b.application_column_name = c.application_column_name
and c.flex_value_set_id = ffvs.flex_value_set_id
order by c.column_seq_num;
begin
-- Initialize
for recAppQ in csrAppQs loop
p_appq_arr(csrAppQs%rowcount -1) := XXJSC_IREC_APPQ_TYP(NULL,NULL,null);
p_appq_arr(csrAppQs%rowcount -1).question := recAppQ.question;
p_appq_arr(csrAppQs%rowcount -1).answer_type := recAppQ.value_set_name;
for recValue in csrValues(cp_id => recAppQ.flex_value_set_id) loop
p_appq_arr(csrAppQs%rowcount -1).answer_table(csrValues%rowcount -1).answer_meaning := recValue.description;
p_appq_arr(csrAppQs%rowcount -1).answer_table(p_appq_arr(csrAppQs%rowcount -1).answer_table.last):= XXJSC_IREC_QANS_TYP(recValue.flex_value_meaning, recValue.description);
end loop;
end loop;
dbms_output.put_line('Count of array objects is:'||p_appq_arr.count);
end;
Is what I am trying to do allowed and if so how do i populate the answer table.
Many thanks
Simon Baker
[email protected]

Answer 1

*** Duplicate Post ***