1: package body okc_aq_pvt_w as
2: /* $Header: okc_aq_pvt_w_b.pls 120.0 2005/05/26 09:36:50 appldev noship $ */
3:
4: procedure rosetta_table_copy_in_p1(t out nocopy okc_aq_pvt.msg_tab_typ, a0 JTF_VARCHAR2_TABLE_200
5: , a1 JTF_VARCHAR2_TABLE_300
1: package body okc_aq_pvt_w as
2: /* $Header: okc_aq_pvt_w_b.pls 120.0 2005/05/26 09:36:50 appldev noship $ */
3:
4: procedure rosetta_table_copy_in_p1(t out nocopy okc_aq_pvt.msg_tab_typ, a0 JTF_VARCHAR2_TABLE_200
5: , a1 JTF_VARCHAR2_TABLE_300
6: ) as
1: package body okc_aq_pvt_w as
2: /* $Header: okc_aq_pvt_w_b.pls 120.0 2005/05/26 09:36:50 appldev noship $ */
3:
4: procedure rosetta_table_copy_in_p1(t out nocopy okc_aq_pvt.msg_tab_typ, a0 JTF_VARCHAR2_TABLE_200
5: , a1 JTF_VARCHAR2_TABLE_300
6: ) as
7: ddindx binary_integer; indx binary_integer;
8: begin
6: ) as
7: ddindx binary_integer; indx binary_integer;
8: begin
9: if a0 is not null and a0.count=0 then
10: t := okc_aq_pvt.msg_tab_typ();
11: elsif a0 is not null and a0.count > 0 then
12: if a0.count > 0 then
13: t := okc_aq_pvt.msg_tab_typ();
14: t.extend(a0.count);
9: if a0 is not null and a0.count=0 then
10: t := okc_aq_pvt.msg_tab_typ();
11: elsif a0 is not null and a0.count > 0 then
12: if a0.count > 0 then
13: t := okc_aq_pvt.msg_tab_typ();
14: t.extend(a0.count);
15: indx := a0.first;
16: ddindx := 1;
17: while true loop
26: end if;
27: end if;
28: end rosetta_table_copy_in_p1;
29:
30: procedure rosetta_table_copy_out_p1(t okc_aq_pvt.msg_tab_typ, a0 out nocopy JTF_VARCHAR2_TABLE_200
31: , a1 out nocopy JTF_VARCHAR2_TABLE_300
32: ) as
33: ddindx binary_integer; indx binary_integer;
34: begin
58: end if;
59: end if;
60: end rosetta_table_copy_out_p1;
61:
62: end okc_aq_pvt_w;