59: end if;
60: end if;
61: end rosetta_table_copy_out_p2;
62:
63: procedure rosetta_table_copy_in_p6(t OUT NOCOPY ams_list_query_pvt.list_query_id_tbl_type, a0 JTF_NUMBER_TABLE) as
64: ddindx binary_integer; indx binary_integer;
65: begin
66: if a0 is not null and a0.count > 0 then
67: if a0.count > 0 then
77: end loop;
78: end if;
79: end if;
80: end rosetta_table_copy_in_p6;
81: procedure rosetta_table_copy_out_p6(t ams_list_query_pvt.list_query_id_tbl_type, a0 OUT NOCOPY JTF_NUMBER_TABLE) as
82: ddindx binary_integer; indx binary_integer;
83: begin
84: if t is null or t.count = 0 then
85: a0 := JTF_NUMBER_TABLE();
81: procedure rosetta_table_copy_out_p6(t ams_list_query_pvt.list_query_id_tbl_type, a0 OUT NOCOPY JTF_NUMBER_TABLE) as
82: ddindx binary_integer; indx binary_integer;
83: begin
84: if t is null or t.count = 0 then
85: a0 := JTF_NUMBER_TABLE();
86: else
87: a0 := JTF_NUMBER_TABLE();
88: if t.count > 0 then
89: a0.extend(t.count);
83: begin
84: if t is null or t.count = 0 then
85: a0 := JTF_NUMBER_TABLE();
86: else
87: a0 := JTF_NUMBER_TABLE();
88: if t.count > 0 then
89: a0.extend(t.count);
90: ddindx := t.first;
91: indx := 1;