551: end if;
552: end if;
553: end rosetta_table_copy_out_p32;
554:
555: procedure rosetta_table_copy_in_p33(t out nocopy okl_streams_util.var240tabtyp, a0 JTF_VARCHAR2_TABLE_300) as
556: ddindx binary_integer; indx binary_integer;
557: begin
558: if a0 is not null and a0.count > 0 then
559: if a0.count > 0 then
569: end loop;
570: end if;
571: end if;
572: end rosetta_table_copy_in_p33;
573: procedure rosetta_table_copy_out_p33(t okl_streams_util.var240tabtyp, a0 out nocopy JTF_VARCHAR2_TABLE_300) as
574: ddindx binary_integer; indx binary_integer;
575: begin
576: if t is null or t.count = 0 then
577: a0 := JTF_VARCHAR2_TABLE_300();
573: procedure rosetta_table_copy_out_p33(t okl_streams_util.var240tabtyp, a0 out nocopy JTF_VARCHAR2_TABLE_300) as
574: ddindx binary_integer; indx binary_integer;
575: begin
576: if t is null or t.count = 0 then
577: a0 := JTF_VARCHAR2_TABLE_300();
578: else
579: a0 := JTF_VARCHAR2_TABLE_300();
580: if t.count > 0 then
581: a0.extend(t.count);
575: begin
576: if t is null or t.count = 0 then
577: a0 := JTF_VARCHAR2_TABLE_300();
578: else
579: a0 := JTF_VARCHAR2_TABLE_300();
580: if t.count > 0 then
581: a0.extend(t.count);
582: ddindx := t.first;
583: indx := 1;
674: end if;
675: end if;
676: end rosetta_table_copy_out_p35;
677:
678: procedure rosetta_table_copy_in_p36(t out nocopy okl_streams_util.var300tabtyp, a0 JTF_VARCHAR2_TABLE_300) as
679: ddindx binary_integer; indx binary_integer;
680: begin
681: if a0 is not null and a0.count > 0 then
682: if a0.count > 0 then
692: end loop;
693: end if;
694: end if;
695: end rosetta_table_copy_in_p36;
696: procedure rosetta_table_copy_out_p36(t okl_streams_util.var300tabtyp, a0 out nocopy JTF_VARCHAR2_TABLE_300) as
697: ddindx binary_integer; indx binary_integer;
698: begin
699: if t is null or t.count = 0 then
700: a0 := JTF_VARCHAR2_TABLE_300();
696: procedure rosetta_table_copy_out_p36(t okl_streams_util.var300tabtyp, a0 out nocopy JTF_VARCHAR2_TABLE_300) as
697: ddindx binary_integer; indx binary_integer;
698: begin
699: if t is null or t.count = 0 then
700: a0 := JTF_VARCHAR2_TABLE_300();
701: else
702: a0 := JTF_VARCHAR2_TABLE_300();
703: if t.count > 0 then
704: a0.extend(t.count);
698: begin
699: if t is null or t.count = 0 then
700: a0 := JTF_VARCHAR2_TABLE_300();
701: else
702: a0 := JTF_VARCHAR2_TABLE_300();
703: if t.count > 0 then
704: a0.extend(t.count);
705: ddindx := t.first;
706: indx := 1;