678: v_sqlstmt := v_sqlstmt || ' where ' || ccid_col_name || ' = ';
679: v_sqlstmt := v_sqlstmt || to_char(ccid);
680:
681:
682: v_cursorid := dbms_sql.open_cursor;
683: dbms_sql.parse(v_cursorid, v_sqlstmt, DBMS_SQL.V7);
684:
685: for seg_ctr in 1 .. num_segs loop
686:
679: v_sqlstmt := v_sqlstmt || to_char(ccid);
680:
681:
682: v_cursorid := dbms_sql.open_cursor;
683: dbms_sql.parse(v_cursorid, v_sqlstmt, DBMS_SQL.V7);
684:
685: for seg_ctr in 1 .. num_segs loop
686:
687: dbms_sql.define_column(v_cursorid, seg_ctr, segarray(seg_ctr), 30);
683: dbms_sql.parse(v_cursorid, v_sqlstmt, DBMS_SQL.V7);
684:
685: for seg_ctr in 1 .. num_segs loop
686:
687: dbms_sql.define_column(v_cursorid, seg_ctr, segarray(seg_ctr), 30);
688:
689: end loop;
690:
691: v_return := dbms_sql.execute(v_cursorid);
687: dbms_sql.define_column(v_cursorid, seg_ctr, segarray(seg_ctr), 30);
688:
689: end loop;
690:
691: v_return := dbms_sql.execute(v_cursorid);
692: v_return := dbms_sql.fetch_rows(v_cursorid);
693:
694: for seg_ctr in 1 .. num_segs loop
695: dbms_sql.column_value(v_cursorid, seg_ctr, segarray(seg_ctr));
688:
689: end loop;
690:
691: v_return := dbms_sql.execute(v_cursorid);
692: v_return := dbms_sql.fetch_rows(v_cursorid);
693:
694: for seg_ctr in 1 .. num_segs loop
695: dbms_sql.column_value(v_cursorid, seg_ctr, segarray(seg_ctr));
696:
691: v_return := dbms_sql.execute(v_cursorid);
692: v_return := dbms_sql.fetch_rows(v_cursorid);
693:
694: for seg_ctr in 1 .. num_segs loop
695: dbms_sql.column_value(v_cursorid, seg_ctr, segarray(seg_ctr));
696:
697: end loop;
698:
699: for seg_ctr in 1 .. num_segs loop
702: end loop;
703:
704: concat_string := rtrim(concat_string,delim);
705:
706: dbms_sql.close_cursor(v_cursorid);
707:
708: exception
709: when others then
710: