18: if n=b then return a; end if;
19: return n;
20: end;
21:
22: procedure rosetta_table_copy_in_p29(t out nocopy okl_formulavalidate_pvt.fmaopd_tbl, a0 JTF_NUMBER_TABLE
23: ) as
24: ddindx binary_integer; indx binary_integer;
25: begin
26: if a0 is not null and a0.count > 0 then
37: end loop;
38: end if;
39: end if;
40: end rosetta_table_copy_in_p29;
41: procedure rosetta_table_copy_out_p29(t okl_formulavalidate_pvt.fmaopd_tbl, a0 out nocopy JTF_NUMBER_TABLE
42: ) as
43: ddindx binary_integer; indx binary_integer;
44: begin
45: if t is null or t.count = 0 then
42: ) as
43: ddindx binary_integer; indx binary_integer;
44: begin
45: if t is null or t.count = 0 then
46: a0 := JTF_NUMBER_TABLE();
47: else
48: a0 := JTF_NUMBER_TABLE();
49: if t.count > 0 then
50: a0.extend(t.count);
44: begin
45: if t is null or t.count = 0 then
46: a0 := JTF_NUMBER_TABLE();
47: else
48: a0 := JTF_NUMBER_TABLE();
49: if t.count > 0 then
50: a0.extend(t.count);
51: ddindx := t.first;
52: indx := 1;