428: end if;
429: end if;
430: end rosetta_table_copy_out_p29;
431:
432: procedure rosetta_table_copy_in_p30(t out nocopy okl_streams_util.var1995tabtyp, a0 JTF_VARCHAR2_TABLE_2000) as
433: ddindx binary_integer; indx binary_integer;
434: begin
435: if a0 is not null and a0.count > 0 then
436: if a0.count > 0 then
446: end loop;
447: end if;
448: end if;
449: end rosetta_table_copy_in_p30;
450: procedure rosetta_table_copy_out_p30(t okl_streams_util.var1995tabtyp, a0 out nocopy JTF_VARCHAR2_TABLE_2000) as
451: ddindx binary_integer; indx binary_integer;
452: begin
453: if t is null or t.count = 0 then
454: a0 := JTF_VARCHAR2_TABLE_2000();
450: procedure rosetta_table_copy_out_p30(t okl_streams_util.var1995tabtyp, a0 out nocopy JTF_VARCHAR2_TABLE_2000) as
451: ddindx binary_integer; indx binary_integer;
452: begin
453: if t is null or t.count = 0 then
454: a0 := JTF_VARCHAR2_TABLE_2000();
455: else
456: a0 := JTF_VARCHAR2_TABLE_2000();
457: if t.count > 0 then
458: a0.extend(t.count);
452: begin
453: if t is null or t.count = 0 then
454: a0 := JTF_VARCHAR2_TABLE_2000();
455: else
456: a0 := JTF_VARCHAR2_TABLE_2000();
457: if t.count > 0 then
458: a0.extend(t.count);
459: ddindx := t.first;
460: indx := 1;