267: end if;
268: end if;
269: end rosetta_table_copy_out_p9;
270:
271: procedure rosetta_table_copy_in_p10(t out nocopy amv_stock_pvt.amv_char_varray_type, a0 JTF_VARCHAR2_TABLE_400) as
272: ddindx binary_integer; indx binary_integer;
273: begin
274: if a0 is not null and a0.count > 0 then
275: if a0.count > 0 then
285: end loop;
286: end if;
287: end if;
288: end rosetta_table_copy_in_p10;
289: procedure rosetta_table_copy_out_p10(t amv_stock_pvt.amv_char_varray_type, a0 out nocopy JTF_VARCHAR2_TABLE_400) as
290: ddindx binary_integer; indx binary_integer;
291: begin
292: if t is null or t.count = 0 then
293: a0 := JTF_VARCHAR2_TABLE_400();
289: procedure rosetta_table_copy_out_p10(t amv_stock_pvt.amv_char_varray_type, a0 out nocopy JTF_VARCHAR2_TABLE_400) as
290: ddindx binary_integer; indx binary_integer;
291: begin
292: if t is null or t.count = 0 then
293: a0 := JTF_VARCHAR2_TABLE_400();
294: else
295: a0 := JTF_VARCHAR2_TABLE_400();
296: if t.count > 0 then
297: a0.extend(t.count);
291: begin
292: if t is null or t.count = 0 then
293: a0 := JTF_VARCHAR2_TABLE_400();
294: else
295: a0 := JTF_VARCHAR2_TABLE_400();
296: if t.count > 0 then
297: a0.extend(t.count);
298: ddindx := t.first;
299: indx := 1;
582: , x_msg_count out nocopy NUMBER
583: , x_msg_data out nocopy VARCHAR2
584: , p_vendor_id NUMBER
585: , p_all_keys VARCHAR2
586: , x_keys_array out nocopy JTF_VARCHAR2_TABLE_400
587: )
588:
589: as
590: ddx_keys_array amv_stock_pvt.amv_char_varray_type;