1: package body eam_objectinstantiation_pub_w as
2: /* $Header: EAMWOBIB.pls 115.0 2003/09/08 12:51:32 ashetye noship $ */
3: procedure rosetta_table_copy_in_p0(t out nocopy eam_objectinstantiation_pub.association_id_tbl_type, a0 JTF_NUMBER_TABLE) as
4: ddindx binary_integer; indx binary_integer;
5: begin
1: package body eam_objectinstantiation_pub_w as
2: /* $Header: EAMWOBIB.pls 115.0 2003/09/08 12:51:32 ashetye noship $ */
3: procedure rosetta_table_copy_in_p0(t out nocopy eam_objectinstantiation_pub.association_id_tbl_type, a0 JTF_NUMBER_TABLE) as
4: ddindx binary_integer; indx binary_integer;
5: begin
6: if a0 is not null and a0.count > 0 then
7: if a0.count > 0 then
17: end loop;
18: end if;
19: end if;
20: end rosetta_table_copy_in_p0;
21: procedure rosetta_table_copy_out_p0(t eam_objectinstantiation_pub.association_id_tbl_type, a0 out nocopy JTF_NUMBER_TABLE) as
22: ddindx binary_integer; indx binary_integer;
23: begin
24: if t is null or t.count = 0 then
25: a0 := JTF_NUMBER_TABLE();
40: end if;
41: end if;
42: end rosetta_table_copy_out_p0;
43:
44: end eam_objectinstantiation_pub_w;