1: package body cn_calc_sql_exps_pvt_w as
2: /* $Header: cnwcexpb.pls 120.6 2007/03/14 12:56:53 kjayapau ship $ */
3: procedure rosetta_table_copy_in_p0(t out nocopy cn_calc_sql_exps_pvt.parent_expression_tbl_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 cn_calc_sql_exps_pvt.parent_expression_tbl_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 cn_calc_sql_exps_pvt.parent_expression_tbl_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;
41: end if;
42: end rosetta_table_copy_out_p0;
43:
44: procedure rosetta_table_copy_in_p2(t out nocopy cn_calc_sql_exps_pvt.calc_expression_tbl_type, a0 JTF_NUMBER_TABLE
45: , a1 JTF_VARCHAR2_TABLE_100
46: , a2 JTF_VARCHAR2_TABLE_100
47: , a3 JTF_VARCHAR2_TABLE_100
48: , a4 JTF_VARCHAR2_TABLE_100
49: ) as
42: end rosetta_table_copy_out_p0;
43:
44: procedure rosetta_table_copy_in_p2(t out nocopy cn_calc_sql_exps_pvt.calc_expression_tbl_type, a0 JTF_NUMBER_TABLE
45: , a1 JTF_VARCHAR2_TABLE_100
46: , a2 JTF_VARCHAR2_TABLE_100
47: , a3 JTF_VARCHAR2_TABLE_100
48: , a4 JTF_VARCHAR2_TABLE_100
49: ) as
50: ddindx binary_integer; indx binary_integer;
43:
44: procedure rosetta_table_copy_in_p2(t out nocopy cn_calc_sql_exps_pvt.calc_expression_tbl_type, a0 JTF_NUMBER_TABLE
45: , a1 JTF_VARCHAR2_TABLE_100
46: , a2 JTF_VARCHAR2_TABLE_100
47: , a3 JTF_VARCHAR2_TABLE_100
48: , a4 JTF_VARCHAR2_TABLE_100
49: ) as
50: ddindx binary_integer; indx binary_integer;
51: begin
44: procedure rosetta_table_copy_in_p2(t out nocopy cn_calc_sql_exps_pvt.calc_expression_tbl_type, a0 JTF_NUMBER_TABLE
45: , a1 JTF_VARCHAR2_TABLE_100
46: , a2 JTF_VARCHAR2_TABLE_100
47: , a3 JTF_VARCHAR2_TABLE_100
48: , a4 JTF_VARCHAR2_TABLE_100
49: ) as
50: ddindx binary_integer; indx binary_integer;
51: begin
52: if a0 is not null and a0.count > 0 then
68: end if;
69: end if;
70: end rosetta_table_copy_in_p2;
71: procedure rosetta_table_copy_out_p2(t cn_calc_sql_exps_pvt.calc_expression_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
72: , a1 out nocopy JTF_VARCHAR2_TABLE_100
73: , a2 out nocopy JTF_VARCHAR2_TABLE_100
74: , a3 out nocopy JTF_VARCHAR2_TABLE_100
75: , a4 out nocopy JTF_VARCHAR2_TABLE_100
76: ) as
69: end if;
70: end rosetta_table_copy_in_p2;
71: procedure rosetta_table_copy_out_p2(t cn_calc_sql_exps_pvt.calc_expression_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
72: , a1 out nocopy JTF_VARCHAR2_TABLE_100
73: , a2 out nocopy JTF_VARCHAR2_TABLE_100
74: , a3 out nocopy JTF_VARCHAR2_TABLE_100
75: , a4 out nocopy JTF_VARCHAR2_TABLE_100
76: ) as
77: ddindx binary_integer; indx binary_integer;
70: end rosetta_table_copy_in_p2;
71: procedure rosetta_table_copy_out_p2(t cn_calc_sql_exps_pvt.calc_expression_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
72: , a1 out nocopy JTF_VARCHAR2_TABLE_100
73: , a2 out nocopy JTF_VARCHAR2_TABLE_100
74: , a3 out nocopy JTF_VARCHAR2_TABLE_100
75: , a4 out nocopy JTF_VARCHAR2_TABLE_100
76: ) as
77: ddindx binary_integer; indx binary_integer;
78: begin
71: procedure rosetta_table_copy_out_p2(t cn_calc_sql_exps_pvt.calc_expression_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
72: , a1 out nocopy JTF_VARCHAR2_TABLE_100
73: , a2 out nocopy JTF_VARCHAR2_TABLE_100
74: , a3 out nocopy JTF_VARCHAR2_TABLE_100
75: , a4 out nocopy JTF_VARCHAR2_TABLE_100
76: ) as
77: ddindx binary_integer; indx binary_integer;
78: begin
79: if t is null or t.count = 0 then
77: ddindx binary_integer; indx binary_integer;
78: begin
79: if t is null or t.count = 0 then
80: a0 := JTF_NUMBER_TABLE();
81: a1 := JTF_VARCHAR2_TABLE_100();
82: a2 := JTF_VARCHAR2_TABLE_100();
83: a3 := JTF_VARCHAR2_TABLE_100();
84: a4 := JTF_VARCHAR2_TABLE_100();
85: else
78: begin
79: if t is null or t.count = 0 then
80: a0 := JTF_NUMBER_TABLE();
81: a1 := JTF_VARCHAR2_TABLE_100();
82: a2 := JTF_VARCHAR2_TABLE_100();
83: a3 := JTF_VARCHAR2_TABLE_100();
84: a4 := JTF_VARCHAR2_TABLE_100();
85: else
86: a0 := JTF_NUMBER_TABLE();
79: if t is null or t.count = 0 then
80: a0 := JTF_NUMBER_TABLE();
81: a1 := JTF_VARCHAR2_TABLE_100();
82: a2 := JTF_VARCHAR2_TABLE_100();
83: a3 := JTF_VARCHAR2_TABLE_100();
84: a4 := JTF_VARCHAR2_TABLE_100();
85: else
86: a0 := JTF_NUMBER_TABLE();
87: a1 := JTF_VARCHAR2_TABLE_100();
80: a0 := JTF_NUMBER_TABLE();
81: a1 := JTF_VARCHAR2_TABLE_100();
82: a2 := JTF_VARCHAR2_TABLE_100();
83: a3 := JTF_VARCHAR2_TABLE_100();
84: a4 := JTF_VARCHAR2_TABLE_100();
85: else
86: a0 := JTF_NUMBER_TABLE();
87: a1 := JTF_VARCHAR2_TABLE_100();
88: a2 := JTF_VARCHAR2_TABLE_100();
83: a3 := JTF_VARCHAR2_TABLE_100();
84: a4 := JTF_VARCHAR2_TABLE_100();
85: else
86: a0 := JTF_NUMBER_TABLE();
87: a1 := JTF_VARCHAR2_TABLE_100();
88: a2 := JTF_VARCHAR2_TABLE_100();
89: a3 := JTF_VARCHAR2_TABLE_100();
90: a4 := JTF_VARCHAR2_TABLE_100();
91: if t.count > 0 then
84: a4 := JTF_VARCHAR2_TABLE_100();
85: else
86: a0 := JTF_NUMBER_TABLE();
87: a1 := JTF_VARCHAR2_TABLE_100();
88: a2 := JTF_VARCHAR2_TABLE_100();
89: a3 := JTF_VARCHAR2_TABLE_100();
90: a4 := JTF_VARCHAR2_TABLE_100();
91: if t.count > 0 then
92: a0.extend(t.count);
85: else
86: a0 := JTF_NUMBER_TABLE();
87: a1 := JTF_VARCHAR2_TABLE_100();
88: a2 := JTF_VARCHAR2_TABLE_100();
89: a3 := JTF_VARCHAR2_TABLE_100();
90: a4 := JTF_VARCHAR2_TABLE_100();
91: if t.count > 0 then
92: a0.extend(t.count);
93: a1.extend(t.count);
86: a0 := JTF_NUMBER_TABLE();
87: a1 := JTF_VARCHAR2_TABLE_100();
88: a2 := JTF_VARCHAR2_TABLE_100();
89: a3 := JTF_VARCHAR2_TABLE_100();
90: a4 := JTF_VARCHAR2_TABLE_100();
91: if t.count > 0 then
92: a0.extend(t.count);
93: a1.extend(t.count);
94: a2.extend(t.count);
111: end if;
112: end if;
113: end rosetta_table_copy_out_p2;
114:
115: procedure rosetta_table_copy_in_p4(t out nocopy cn_calc_sql_exps_pvt.expr_type_tbl_type, a0 JTF_VARCHAR2_TABLE_100
116: , a1 JTF_VARCHAR2_TABLE_100
117: , a2 JTF_VARCHAR2_TABLE_100
118: , a3 JTF_VARCHAR2_TABLE_4000
119: ) as
112: end if;
113: end rosetta_table_copy_out_p2;
114:
115: procedure rosetta_table_copy_in_p4(t out nocopy cn_calc_sql_exps_pvt.expr_type_tbl_type, a0 JTF_VARCHAR2_TABLE_100
116: , a1 JTF_VARCHAR2_TABLE_100
117: , a2 JTF_VARCHAR2_TABLE_100
118: , a3 JTF_VARCHAR2_TABLE_4000
119: ) as
120: ddindx binary_integer; indx binary_integer;
113: end rosetta_table_copy_out_p2;
114:
115: procedure rosetta_table_copy_in_p4(t out nocopy cn_calc_sql_exps_pvt.expr_type_tbl_type, a0 JTF_VARCHAR2_TABLE_100
116: , a1 JTF_VARCHAR2_TABLE_100
117: , a2 JTF_VARCHAR2_TABLE_100
118: , a3 JTF_VARCHAR2_TABLE_4000
119: ) as
120: ddindx binary_integer; indx binary_integer;
121: begin
136: end loop;
137: end if;
138: end if;
139: end rosetta_table_copy_in_p4;
140: procedure rosetta_table_copy_out_p4(t cn_calc_sql_exps_pvt.expr_type_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
141: , a1 out nocopy JTF_VARCHAR2_TABLE_100
142: , a2 out nocopy JTF_VARCHAR2_TABLE_100
143: , a3 out nocopy JTF_VARCHAR2_TABLE_4000
144: ) as
137: end if;
138: end if;
139: end rosetta_table_copy_in_p4;
140: procedure rosetta_table_copy_out_p4(t cn_calc_sql_exps_pvt.expr_type_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
141: , a1 out nocopy JTF_VARCHAR2_TABLE_100
142: , a2 out nocopy JTF_VARCHAR2_TABLE_100
143: , a3 out nocopy JTF_VARCHAR2_TABLE_4000
144: ) as
145: ddindx binary_integer; indx binary_integer;
138: end if;
139: end rosetta_table_copy_in_p4;
140: procedure rosetta_table_copy_out_p4(t cn_calc_sql_exps_pvt.expr_type_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
141: , a1 out nocopy JTF_VARCHAR2_TABLE_100
142: , a2 out nocopy JTF_VARCHAR2_TABLE_100
143: , a3 out nocopy JTF_VARCHAR2_TABLE_4000
144: ) as
145: ddindx binary_integer; indx binary_integer;
146: begin
144: ) as
145: ddindx binary_integer; indx binary_integer;
146: begin
147: if t is null or t.count = 0 then
148: a0 := JTF_VARCHAR2_TABLE_100();
149: a1 := JTF_VARCHAR2_TABLE_100();
150: a2 := JTF_VARCHAR2_TABLE_100();
151: a3 := JTF_VARCHAR2_TABLE_4000();
152: else
145: ddindx binary_integer; indx binary_integer;
146: begin
147: if t is null or t.count = 0 then
148: a0 := JTF_VARCHAR2_TABLE_100();
149: a1 := JTF_VARCHAR2_TABLE_100();
150: a2 := JTF_VARCHAR2_TABLE_100();
151: a3 := JTF_VARCHAR2_TABLE_4000();
152: else
153: a0 := JTF_VARCHAR2_TABLE_100();
146: begin
147: if t is null or t.count = 0 then
148: a0 := JTF_VARCHAR2_TABLE_100();
149: a1 := JTF_VARCHAR2_TABLE_100();
150: a2 := JTF_VARCHAR2_TABLE_100();
151: a3 := JTF_VARCHAR2_TABLE_4000();
152: else
153: a0 := JTF_VARCHAR2_TABLE_100();
154: a1 := JTF_VARCHAR2_TABLE_100();
149: a1 := JTF_VARCHAR2_TABLE_100();
150: a2 := JTF_VARCHAR2_TABLE_100();
151: a3 := JTF_VARCHAR2_TABLE_4000();
152: else
153: a0 := JTF_VARCHAR2_TABLE_100();
154: a1 := JTF_VARCHAR2_TABLE_100();
155: a2 := JTF_VARCHAR2_TABLE_100();
156: a3 := JTF_VARCHAR2_TABLE_4000();
157: if t.count > 0 then
150: a2 := JTF_VARCHAR2_TABLE_100();
151: a3 := JTF_VARCHAR2_TABLE_4000();
152: else
153: a0 := JTF_VARCHAR2_TABLE_100();
154: a1 := JTF_VARCHAR2_TABLE_100();
155: a2 := JTF_VARCHAR2_TABLE_100();
156: a3 := JTF_VARCHAR2_TABLE_4000();
157: if t.count > 0 then
158: a0.extend(t.count);
151: a3 := JTF_VARCHAR2_TABLE_4000();
152: else
153: a0 := JTF_VARCHAR2_TABLE_100();
154: a1 := JTF_VARCHAR2_TABLE_100();
155: a2 := JTF_VARCHAR2_TABLE_100();
156: a3 := JTF_VARCHAR2_TABLE_4000();
157: if t.count > 0 then
158: a0.extend(t.count);
159: a1.extend(t.count);