1: package body ams_cpyutility_pvt_w as
2: /* $Header: amswcpub.pls 115.5 2003/08/26 20:39:45 asaha noship $ */
3: procedure rosetta_table_copy_in_p0(t out nocopy ams_cpyutility_pvt.copy_attributes_table_type, a0 JTF_VARCHAR2_TABLE_100) 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 ams_cpyutility_pvt.copy_attributes_table_type, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
22: ddindx binary_integer; indx binary_integer;
23: begin
24: if t is null or t.count = 0 then
25: a0 := JTF_VARCHAR2_TABLE_100();
21: procedure rosetta_table_copy_out_p0(t ams_cpyutility_pvt.copy_attributes_table_type, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
22: ddindx binary_integer; indx binary_integer;
23: begin
24: if t is null or t.count = 0 then
25: a0 := JTF_VARCHAR2_TABLE_100();
26: else
27: a0 := JTF_VARCHAR2_TABLE_100();
28: if t.count > 0 then
29: a0.extend(t.count);
23: begin
24: if t is null or t.count = 0 then
25: a0 := JTF_VARCHAR2_TABLE_100();
26: else
27: a0 := JTF_VARCHAR2_TABLE_100();
28: if t.count > 0 then
29: a0.extend(t.count);
30: ddindx := t.first;
31: indx := 1;
40: end if;
41: end if;
42: end rosetta_table_copy_out_p0;
43:
44: procedure rosetta_table_copy_in_p2(t out nocopy ams_cpyutility_pvt.copy_columns_table_type, a0 JTF_VARCHAR2_TABLE_100
45: , a1 JTF_VARCHAR2_TABLE_4000
46: ) as
47: ddindx binary_integer; indx binary_integer;
48: begin
61: end loop;
62: end if;
63: end if;
64: end rosetta_table_copy_in_p2;
65: procedure rosetta_table_copy_out_p2(t ams_cpyutility_pvt.copy_columns_table_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
66: , a1 out nocopy JTF_VARCHAR2_TABLE_4000
67: ) as
68: ddindx binary_integer; indx binary_integer;
69: begin
67: ) as
68: ddindx binary_integer; indx binary_integer;
69: begin
70: if t is null or t.count = 0 then
71: a0 := JTF_VARCHAR2_TABLE_100();
72: a1 := JTF_VARCHAR2_TABLE_4000();
73: else
74: a0 := JTF_VARCHAR2_TABLE_100();
75: a1 := JTF_VARCHAR2_TABLE_4000();
70: if t is null or t.count = 0 then
71: a0 := JTF_VARCHAR2_TABLE_100();
72: a1 := JTF_VARCHAR2_TABLE_4000();
73: else
74: a0 := JTF_VARCHAR2_TABLE_100();
75: a1 := JTF_VARCHAR2_TABLE_4000();
76: if t.count > 0 then
77: a0.extend(t.count);
78: a1.extend(t.count);
90: end if;
91: end if;
92: end rosetta_table_copy_out_p2;
93:
94: procedure rosetta_table_copy_in_p3(t out nocopy ams_cpyutility_pvt.log_mesg_type_table, a0 JTF_VARCHAR2_TABLE_100) as
95: ddindx binary_integer; indx binary_integer;
96: begin
97: if a0 is not null and a0.count > 0 then
98: if a0.count > 0 then
108: end loop;
109: end if;
110: end if;
111: end rosetta_table_copy_in_p3;
112: procedure rosetta_table_copy_out_p3(t ams_cpyutility_pvt.log_mesg_type_table, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
113: ddindx binary_integer; indx binary_integer;
114: begin
115: if t is null or t.count = 0 then
116: a0 := JTF_VARCHAR2_TABLE_100();
112: procedure rosetta_table_copy_out_p3(t ams_cpyutility_pvt.log_mesg_type_table, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
113: ddindx binary_integer; indx binary_integer;
114: begin
115: if t is null or t.count = 0 then
116: a0 := JTF_VARCHAR2_TABLE_100();
117: else
118: a0 := JTF_VARCHAR2_TABLE_100();
119: if t.count > 0 then
120: a0.extend(t.count);
114: begin
115: if t is null or t.count = 0 then
116: a0 := JTF_VARCHAR2_TABLE_100();
117: else
118: a0 := JTF_VARCHAR2_TABLE_100();
119: if t.count > 0 then
120: a0.extend(t.count);
121: ddindx := t.first;
122: indx := 1;
172: end if;
173: end if;
174: end rosetta_table_copy_out_p4;
175:
176: procedure rosetta_table_copy_in_p5(t out nocopy ams_cpyutility_pvt.log_act_used_by_table, a0 JTF_VARCHAR2_TABLE_100) as
177: ddindx binary_integer; indx binary_integer;
178: begin
179: if a0 is not null and a0.count > 0 then
180: if a0.count > 0 then
190: end loop;
191: end if;
192: end if;
193: end rosetta_table_copy_in_p5;
194: procedure rosetta_table_copy_out_p5(t ams_cpyutility_pvt.log_act_used_by_table, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
195: ddindx binary_integer; indx binary_integer;
196: begin
197: if t is null or t.count = 0 then
198: a0 := JTF_VARCHAR2_TABLE_100();
194: procedure rosetta_table_copy_out_p5(t ams_cpyutility_pvt.log_act_used_by_table, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
195: ddindx binary_integer; indx binary_integer;
196: begin
197: if t is null or t.count = 0 then
198: a0 := JTF_VARCHAR2_TABLE_100();
199: else
200: a0 := JTF_VARCHAR2_TABLE_100();
201: if t.count > 0 then
202: a0.extend(t.count);
196: begin
197: if t is null or t.count = 0 then
198: a0 := JTF_VARCHAR2_TABLE_100();
199: else
200: a0 := JTF_VARCHAR2_TABLE_100();
201: if t.count > 0 then
202: a0.extend(t.count);
203: ddindx := t.first;
204: indx := 1;
255: end if;
256: end rosetta_table_copy_out_p6;
257:
258: procedure get_column_value(p_column_name VARCHAR2
259: , p1_a0 JTF_VARCHAR2_TABLE_100
260: , p1_a1 JTF_VARCHAR2_TABLE_4000
261: , x_column_value out nocopy VARCHAR2
262: )
263:
283:
284: end;
285:
286: function is_copy_attribute(p_attribute VARCHAR2
287: , p_attributes_table JTF_VARCHAR2_TABLE_100
288: ) return varchar2
289:
290: as
291: ddp_attributes_table ams_cpyutility_pvt.copy_attributes_table_type;