170: where po_req_distribution_id = p_po_req_distribution_id;
171: Begin
172:
173: Begin
174: v_inv_cursor := DBMS_SQL.OPEN_CURSOR ;
175: Exception
176: When Others Then
177: v_error_code := sqlcode ;
178: v_error_mesg := sqlerrm ;
196:
197:
198: Begin
199:
200: dbms_sql.parse(v_inv_cursor, v_select, DBMS_SQL.V7) ;
201:
202: dbms_sql.bind_variable(v_inv_cursor,':b_from_period',v_from_period);
203: dbms_sql.bind_variable(v_inv_cursor,':b_to_period',v_to_period);
204: dbms_sql.bind_variable(v_inv_cursor,':b_set_of_books_id',v_set_of_books_id);
198: Begin
199:
200: dbms_sql.parse(v_inv_cursor, v_select, DBMS_SQL.V7) ;
201:
202: dbms_sql.bind_variable(v_inv_cursor,':b_from_period',v_from_period);
203: dbms_sql.bind_variable(v_inv_cursor,':b_to_period',v_to_period);
204: dbms_sql.bind_variable(v_inv_cursor,':b_set_of_books_id',v_set_of_books_id);
205:
206: dbms_sql.bind_variable(v_inv_cursor,':b_segval1_low',v_segval1_low);
199:
200: dbms_sql.parse(v_inv_cursor, v_select, DBMS_SQL.V7) ;
201:
202: dbms_sql.bind_variable(v_inv_cursor,':b_from_period',v_from_period);
203: dbms_sql.bind_variable(v_inv_cursor,':b_to_period',v_to_period);
204: dbms_sql.bind_variable(v_inv_cursor,':b_set_of_books_id',v_set_of_books_id);
205:
206: dbms_sql.bind_variable(v_inv_cursor,':b_segval1_low',v_segval1_low);
207: dbms_sql.bind_variable(v_inv_cursor,':b_segval1_high',v_segval1_high);
200: dbms_sql.parse(v_inv_cursor, v_select, DBMS_SQL.V7) ;
201:
202: dbms_sql.bind_variable(v_inv_cursor,':b_from_period',v_from_period);
203: dbms_sql.bind_variable(v_inv_cursor,':b_to_period',v_to_period);
204: dbms_sql.bind_variable(v_inv_cursor,':b_set_of_books_id',v_set_of_books_id);
205:
206: dbms_sql.bind_variable(v_inv_cursor,':b_segval1_low',v_segval1_low);
207: dbms_sql.bind_variable(v_inv_cursor,':b_segval1_high',v_segval1_high);
208:
202: dbms_sql.bind_variable(v_inv_cursor,':b_from_period',v_from_period);
203: dbms_sql.bind_variable(v_inv_cursor,':b_to_period',v_to_period);
204: dbms_sql.bind_variable(v_inv_cursor,':b_set_of_books_id',v_set_of_books_id);
205:
206: dbms_sql.bind_variable(v_inv_cursor,':b_segval1_low',v_segval1_low);
207: dbms_sql.bind_variable(v_inv_cursor,':b_segval1_high',v_segval1_high);
208:
209: If v_segval2 is NOT NULL Then
210: dbms_sql.bind_variable(v_inv_cursor,':b_segval2_low',v_segval2_low);
203: dbms_sql.bind_variable(v_inv_cursor,':b_to_period',v_to_period);
204: dbms_sql.bind_variable(v_inv_cursor,':b_set_of_books_id',v_set_of_books_id);
205:
206: dbms_sql.bind_variable(v_inv_cursor,':b_segval1_low',v_segval1_low);
207: dbms_sql.bind_variable(v_inv_cursor,':b_segval1_high',v_segval1_high);
208:
209: If v_segval2 is NOT NULL Then
210: dbms_sql.bind_variable(v_inv_cursor,':b_segval2_low',v_segval2_low);
211: dbms_sql.bind_variable(v_inv_cursor,':b_segval2_high',v_segval2_high);
206: dbms_sql.bind_variable(v_inv_cursor,':b_segval1_low',v_segval1_low);
207: dbms_sql.bind_variable(v_inv_cursor,':b_segval1_high',v_segval1_high);
208:
209: If v_segval2 is NOT NULL Then
210: dbms_sql.bind_variable(v_inv_cursor,':b_segval2_low',v_segval2_low);
211: dbms_sql.bind_variable(v_inv_cursor,':b_segval2_high',v_segval2_high);
212: End if;
213:
214: If v_segval3 is NOT NULL Then
207: dbms_sql.bind_variable(v_inv_cursor,':b_segval1_high',v_segval1_high);
208:
209: If v_segval2 is NOT NULL Then
210: dbms_sql.bind_variable(v_inv_cursor,':b_segval2_low',v_segval2_low);
211: dbms_sql.bind_variable(v_inv_cursor,':b_segval2_high',v_segval2_high);
212: End if;
213:
214: If v_segval3 is NOT NULL Then
215: dbms_sql.bind_variable(v_inv_cursor,':b_segval3_low',v_segval3_low);
211: dbms_sql.bind_variable(v_inv_cursor,':b_segval2_high',v_segval2_high);
212: End if;
213:
214: If v_segval3 is NOT NULL Then
215: dbms_sql.bind_variable(v_inv_cursor,':b_segval3_low',v_segval3_low);
216: dbms_sql.bind_variable(v_inv_cursor,':b_segval3_high',v_segval3_high);
217: End if;
218:
219: Exception
212: End if;
213:
214: If v_segval3 is NOT NULL Then
215: dbms_sql.bind_variable(v_inv_cursor,':b_segval3_low',v_segval3_low);
216: dbms_sql.bind_variable(v_inv_cursor,':b_segval3_high',v_segval3_high);
217: End if;
218:
219: Exception
220: When Others Then
223: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,l_module_name||'.final_exception',v_error_mesg);
224: End ;
225:
226:
227: dbms_sql.define_column(v_inv_cursor, 1, v_invnum,50);
228: dbms_sql.define_column(v_inv_cursor, 2, v_invdate);
229: dbms_sql.define_column(v_inv_cursor, 3, v_invamt);
230: dbms_sql.define_column(v_inv_cursor, 4, v_invccid);
231: dbms_sql.define_column(v_inv_cursor, 5, v_inv_po_distribution_id);
224: End ;
225:
226:
227: dbms_sql.define_column(v_inv_cursor, 1, v_invnum,50);
228: dbms_sql.define_column(v_inv_cursor, 2, v_invdate);
229: dbms_sql.define_column(v_inv_cursor, 3, v_invamt);
230: dbms_sql.define_column(v_inv_cursor, 4, v_invccid);
231: dbms_sql.define_column(v_inv_cursor, 5, v_inv_po_distribution_id);
232: dbms_sql.define_column(v_inv_cursor, 6, v_seg_val1,25);
225:
226:
227: dbms_sql.define_column(v_inv_cursor, 1, v_invnum,50);
228: dbms_sql.define_column(v_inv_cursor, 2, v_invdate);
229: dbms_sql.define_column(v_inv_cursor, 3, v_invamt);
230: dbms_sql.define_column(v_inv_cursor, 4, v_invccid);
231: dbms_sql.define_column(v_inv_cursor, 5, v_inv_po_distribution_id);
232: dbms_sql.define_column(v_inv_cursor, 6, v_seg_val1,25);
233:
226:
227: dbms_sql.define_column(v_inv_cursor, 1, v_invnum,50);
228: dbms_sql.define_column(v_inv_cursor, 2, v_invdate);
229: dbms_sql.define_column(v_inv_cursor, 3, v_invamt);
230: dbms_sql.define_column(v_inv_cursor, 4, v_invccid);
231: dbms_sql.define_column(v_inv_cursor, 5, v_inv_po_distribution_id);
232: dbms_sql.define_column(v_inv_cursor, 6, v_seg_val1,25);
233:
234: if(v_segval2 is not null) then
227: dbms_sql.define_column(v_inv_cursor, 1, v_invnum,50);
228: dbms_sql.define_column(v_inv_cursor, 2, v_invdate);
229: dbms_sql.define_column(v_inv_cursor, 3, v_invamt);
230: dbms_sql.define_column(v_inv_cursor, 4, v_invccid);
231: dbms_sql.define_column(v_inv_cursor, 5, v_inv_po_distribution_id);
232: dbms_sql.define_column(v_inv_cursor, 6, v_seg_val1,25);
233:
234: if(v_segval2 is not null) then
235: dbms_sql.define_column(v_inv_cursor, 7, v_seg_val2,25);
228: dbms_sql.define_column(v_inv_cursor, 2, v_invdate);
229: dbms_sql.define_column(v_inv_cursor, 3, v_invamt);
230: dbms_sql.define_column(v_inv_cursor, 4, v_invccid);
231: dbms_sql.define_column(v_inv_cursor, 5, v_inv_po_distribution_id);
232: dbms_sql.define_column(v_inv_cursor, 6, v_seg_val1,25);
233:
234: if(v_segval2 is not null) then
235: dbms_sql.define_column(v_inv_cursor, 7, v_seg_val2,25);
236: End if;
231: dbms_sql.define_column(v_inv_cursor, 5, v_inv_po_distribution_id);
232: dbms_sql.define_column(v_inv_cursor, 6, v_seg_val1,25);
233:
234: if(v_segval2 is not null) then
235: dbms_sql.define_column(v_inv_cursor, 7, v_seg_val2,25);
236: End if;
237:
238: if(v_segval3 is not null) then
239: dbms_sql.define_column(v_inv_cursor, 8, v_seg_val3,25);
235: dbms_sql.define_column(v_inv_cursor, 7, v_seg_val2,25);
236: End if;
237:
238: if(v_segval3 is not null) then
239: dbms_sql.define_column(v_inv_cursor, 8, v_seg_val3,25);
240: End if;
241:
242:
243: Begin
240: End if;
241:
242:
243: Begin
244: v_exec_ret := dbms_sql.execute(v_inv_cursor);
245: Exception
246: When Others Then
247: v_error_code := sqlcode ;
248: v_error_mesg := sqlerrm ;
249: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,l_module_name||'.final_exception',v_error_mesg);
250: End ;
251:
252: Loop
253: if dbms_sql.fetch_rows(v_inv_cursor) = 0 then
254: exit;
255: else
256: dbms_sql.column_value(v_inv_cursor, 1, v_invnum);
257: dbms_sql.column_value(v_inv_cursor, 2, v_invdate);
252: Loop
253: if dbms_sql.fetch_rows(v_inv_cursor) = 0 then
254: exit;
255: else
256: dbms_sql.column_value(v_inv_cursor, 1, v_invnum);
257: dbms_sql.column_value(v_inv_cursor, 2, v_invdate);
258: dbms_sql.column_value(v_inv_cursor, 3, v_invamt);
259: dbms_sql.column_value(v_inv_cursor, 4, v_invccid);
260: dbms_sql.column_value(v_inv_cursor, 5,
253: if dbms_sql.fetch_rows(v_inv_cursor) = 0 then
254: exit;
255: else
256: dbms_sql.column_value(v_inv_cursor, 1, v_invnum);
257: dbms_sql.column_value(v_inv_cursor, 2, v_invdate);
258: dbms_sql.column_value(v_inv_cursor, 3, v_invamt);
259: dbms_sql.column_value(v_inv_cursor, 4, v_invccid);
260: dbms_sql.column_value(v_inv_cursor, 5,
261: v_inv_po_distribution_id);
254: exit;
255: else
256: dbms_sql.column_value(v_inv_cursor, 1, v_invnum);
257: dbms_sql.column_value(v_inv_cursor, 2, v_invdate);
258: dbms_sql.column_value(v_inv_cursor, 3, v_invamt);
259: dbms_sql.column_value(v_inv_cursor, 4, v_invccid);
260: dbms_sql.column_value(v_inv_cursor, 5,
261: v_inv_po_distribution_id);
262: dbms_sql.column_value(v_inv_cursor, 6, v_seg_val1);
255: else
256: dbms_sql.column_value(v_inv_cursor, 1, v_invnum);
257: dbms_sql.column_value(v_inv_cursor, 2, v_invdate);
258: dbms_sql.column_value(v_inv_cursor, 3, v_invamt);
259: dbms_sql.column_value(v_inv_cursor, 4, v_invccid);
260: dbms_sql.column_value(v_inv_cursor, 5,
261: v_inv_po_distribution_id);
262: dbms_sql.column_value(v_inv_cursor, 6, v_seg_val1);
263:
256: dbms_sql.column_value(v_inv_cursor, 1, v_invnum);
257: dbms_sql.column_value(v_inv_cursor, 2, v_invdate);
258: dbms_sql.column_value(v_inv_cursor, 3, v_invamt);
259: dbms_sql.column_value(v_inv_cursor, 4, v_invccid);
260: dbms_sql.column_value(v_inv_cursor, 5,
261: v_inv_po_distribution_id);
262: dbms_sql.column_value(v_inv_cursor, 6, v_seg_val1);
263:
264: if(v_segval2 is not null) then
258: dbms_sql.column_value(v_inv_cursor, 3, v_invamt);
259: dbms_sql.column_value(v_inv_cursor, 4, v_invccid);
260: dbms_sql.column_value(v_inv_cursor, 5,
261: v_inv_po_distribution_id);
262: dbms_sql.column_value(v_inv_cursor, 6, v_seg_val1);
263:
264: if(v_segval2 is not null) then
265: dbms_sql.column_value(v_inv_cursor, 7, v_seg_val2);
266: End if;
261: v_inv_po_distribution_id);
262: dbms_sql.column_value(v_inv_cursor, 6, v_seg_val1);
263:
264: if(v_segval2 is not null) then
265: dbms_sql.column_value(v_inv_cursor, 7, v_seg_val2);
266: End if;
267:
268: if(v_segval3 is not null) then
269: dbms_sql.column_value(v_inv_cursor, 8, v_seg_val3);
265: dbms_sql.column_value(v_inv_cursor, 7, v_seg_val2);
266: End if;
267:
268: if(v_segval3 is not null) then
269: dbms_sql.column_value(v_inv_cursor, 8, v_seg_val3);
270: End if;
271:
272: end if;
273:
445:
446: end loop;
447:
448: Begin
449: dbms_sql.close_cursor(v_inv_cursor);
450: Exception
451: When Others then
452: v_error_code := sqlcode ;
453: v_error_mesg := sqlerrm ;
507: l_errbuf varchar2(300);
508: Begin
509:
510: Begin
511: v_po_cursor := DBMS_SQL.OPEN_CURSOR ;
512: Exception
513: When Others then
514: v_error_code := sqlcode ;
515: v_error_mesg := sqlerrm ;
560: Insert into surya_temp values('PO', v_po_select) ;
561: ----------------- TESTING ------------------------ */
562:
563: Begin
564: dbms_sql.parse(v_po_cursor, v_po_select, DBMS_SQL.V7) ;
565: dbms_sql.bind_variable(v_po_cursor,':b_from_period',v_from_period);
566: dbms_sql.bind_variable(v_po_cursor,':b_to_period',v_to_period);
567: dbms_sql.bind_variable(v_po_cursor,':b_set_of_books_id',v_set_of_books_id);
568:
561: ----------------- TESTING ------------------------ */
562:
563: Begin
564: dbms_sql.parse(v_po_cursor, v_po_select, DBMS_SQL.V7) ;
565: dbms_sql.bind_variable(v_po_cursor,':b_from_period',v_from_period);
566: dbms_sql.bind_variable(v_po_cursor,':b_to_period',v_to_period);
567: dbms_sql.bind_variable(v_po_cursor,':b_set_of_books_id',v_set_of_books_id);
568:
569: dbms_sql.bind_variable(v_po_cursor,':b_segval1_low',v_segval1_low);
562:
563: Begin
564: dbms_sql.parse(v_po_cursor, v_po_select, DBMS_SQL.V7) ;
565: dbms_sql.bind_variable(v_po_cursor,':b_from_period',v_from_period);
566: dbms_sql.bind_variable(v_po_cursor,':b_to_period',v_to_period);
567: dbms_sql.bind_variable(v_po_cursor,':b_set_of_books_id',v_set_of_books_id);
568:
569: dbms_sql.bind_variable(v_po_cursor,':b_segval1_low',v_segval1_low);
570: dbms_sql.bind_variable(v_po_cursor,':b_segval1_high',v_segval1_high);
563: Begin
564: dbms_sql.parse(v_po_cursor, v_po_select, DBMS_SQL.V7) ;
565: dbms_sql.bind_variable(v_po_cursor,':b_from_period',v_from_period);
566: dbms_sql.bind_variable(v_po_cursor,':b_to_period',v_to_period);
567: dbms_sql.bind_variable(v_po_cursor,':b_set_of_books_id',v_set_of_books_id);
568:
569: dbms_sql.bind_variable(v_po_cursor,':b_segval1_low',v_segval1_low);
570: dbms_sql.bind_variable(v_po_cursor,':b_segval1_high',v_segval1_high);
571:
565: dbms_sql.bind_variable(v_po_cursor,':b_from_period',v_from_period);
566: dbms_sql.bind_variable(v_po_cursor,':b_to_period',v_to_period);
567: dbms_sql.bind_variable(v_po_cursor,':b_set_of_books_id',v_set_of_books_id);
568:
569: dbms_sql.bind_variable(v_po_cursor,':b_segval1_low',v_segval1_low);
570: dbms_sql.bind_variable(v_po_cursor,':b_segval1_high',v_segval1_high);
571:
572: If v_segval2 is NOT NULL Then
573: dbms_sql.bind_variable(v_po_cursor,':b_segval2_low',v_segval2_low);
566: dbms_sql.bind_variable(v_po_cursor,':b_to_period',v_to_period);
567: dbms_sql.bind_variable(v_po_cursor,':b_set_of_books_id',v_set_of_books_id);
568:
569: dbms_sql.bind_variable(v_po_cursor,':b_segval1_low',v_segval1_low);
570: dbms_sql.bind_variable(v_po_cursor,':b_segval1_high',v_segval1_high);
571:
572: If v_segval2 is NOT NULL Then
573: dbms_sql.bind_variable(v_po_cursor,':b_segval2_low',v_segval2_low);
574: dbms_sql.bind_variable(v_po_cursor,':b_segval2_high',v_segval2_high);
569: dbms_sql.bind_variable(v_po_cursor,':b_segval1_low',v_segval1_low);
570: dbms_sql.bind_variable(v_po_cursor,':b_segval1_high',v_segval1_high);
571:
572: If v_segval2 is NOT NULL Then
573: dbms_sql.bind_variable(v_po_cursor,':b_segval2_low',v_segval2_low);
574: dbms_sql.bind_variable(v_po_cursor,':b_segval2_high',v_segval2_high);
575: End if;
576:
577: If v_segval3 is NOT NULL Then
570: dbms_sql.bind_variable(v_po_cursor,':b_segval1_high',v_segval1_high);
571:
572: If v_segval2 is NOT NULL Then
573: dbms_sql.bind_variable(v_po_cursor,':b_segval2_low',v_segval2_low);
574: dbms_sql.bind_variable(v_po_cursor,':b_segval2_high',v_segval2_high);
575: End if;
576:
577: If v_segval3 is NOT NULL Then
578: dbms_sql.bind_variable(v_po_cursor,':b_segval3_low',v_segval3_low);
574: dbms_sql.bind_variable(v_po_cursor,':b_segval2_high',v_segval2_high);
575: End if;
576:
577: If v_segval3 is NOT NULL Then
578: dbms_sql.bind_variable(v_po_cursor,':b_segval3_low',v_segval3_low);
579: dbms_sql.bind_variable(v_po_cursor,':b_segval3_high',v_segval3_high);
580: End if;
581:
582: Exception
575: End if;
576:
577: If v_segval3 is NOT NULL Then
578: dbms_sql.bind_variable(v_po_cursor,':b_segval3_low',v_segval3_low);
579: dbms_sql.bind_variable(v_po_cursor,':b_segval3_high',v_segval3_high);
580: End if;
581:
582: Exception
583: When Others then
586: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,l_module_name||'.final_exception',v_error_mesg);
587: End ;
588:
589:
590: dbms_sql.define_column(v_po_cursor, 1, v_oblignum, 50);
591: dbms_sql.define_column(v_po_cursor, 2, v_obligdate);
592: dbms_sql.define_column(v_po_cursor, 3, v_obligamt);
593: dbms_sql.define_column(v_po_cursor, 4, v_obligstatus, 25);
594: dbms_sql.define_column(v_po_cursor, 5, v_obligccid);
587: End ;
588:
589:
590: dbms_sql.define_column(v_po_cursor, 1, v_oblignum, 50);
591: dbms_sql.define_column(v_po_cursor, 2, v_obligdate);
592: dbms_sql.define_column(v_po_cursor, 3, v_obligamt);
593: dbms_sql.define_column(v_po_cursor, 4, v_obligstatus, 25);
594: dbms_sql.define_column(v_po_cursor, 5, v_obligccid);
595: dbms_sql.define_column(v_po_cursor, 6, v_po_req_distribution_id);
588:
589:
590: dbms_sql.define_column(v_po_cursor, 1, v_oblignum, 50);
591: dbms_sql.define_column(v_po_cursor, 2, v_obligdate);
592: dbms_sql.define_column(v_po_cursor, 3, v_obligamt);
593: dbms_sql.define_column(v_po_cursor, 4, v_obligstatus, 25);
594: dbms_sql.define_column(v_po_cursor, 5, v_obligccid);
595: dbms_sql.define_column(v_po_cursor, 6, v_po_req_distribution_id);
596: dbms_sql.define_column(v_po_cursor, 7, v_po_distribution_id);
589:
590: dbms_sql.define_column(v_po_cursor, 1, v_oblignum, 50);
591: dbms_sql.define_column(v_po_cursor, 2, v_obligdate);
592: dbms_sql.define_column(v_po_cursor, 3, v_obligamt);
593: dbms_sql.define_column(v_po_cursor, 4, v_obligstatus, 25);
594: dbms_sql.define_column(v_po_cursor, 5, v_obligccid);
595: dbms_sql.define_column(v_po_cursor, 6, v_po_req_distribution_id);
596: dbms_sql.define_column(v_po_cursor, 7, v_po_distribution_id);
597: dbms_sql.define_column(v_po_cursor, 8, v_seg_val1,25);
590: dbms_sql.define_column(v_po_cursor, 1, v_oblignum, 50);
591: dbms_sql.define_column(v_po_cursor, 2, v_obligdate);
592: dbms_sql.define_column(v_po_cursor, 3, v_obligamt);
593: dbms_sql.define_column(v_po_cursor, 4, v_obligstatus, 25);
594: dbms_sql.define_column(v_po_cursor, 5, v_obligccid);
595: dbms_sql.define_column(v_po_cursor, 6, v_po_req_distribution_id);
596: dbms_sql.define_column(v_po_cursor, 7, v_po_distribution_id);
597: dbms_sql.define_column(v_po_cursor, 8, v_seg_val1,25);
598: if(v_segval2 is not null) then
591: dbms_sql.define_column(v_po_cursor, 2, v_obligdate);
592: dbms_sql.define_column(v_po_cursor, 3, v_obligamt);
593: dbms_sql.define_column(v_po_cursor, 4, v_obligstatus, 25);
594: dbms_sql.define_column(v_po_cursor, 5, v_obligccid);
595: dbms_sql.define_column(v_po_cursor, 6, v_po_req_distribution_id);
596: dbms_sql.define_column(v_po_cursor, 7, v_po_distribution_id);
597: dbms_sql.define_column(v_po_cursor, 8, v_seg_val1,25);
598: if(v_segval2 is not null) then
599: dbms_sql.define_column(v_po_cursor, 9, v_seg_val2,25);
592: dbms_sql.define_column(v_po_cursor, 3, v_obligamt);
593: dbms_sql.define_column(v_po_cursor, 4, v_obligstatus, 25);
594: dbms_sql.define_column(v_po_cursor, 5, v_obligccid);
595: dbms_sql.define_column(v_po_cursor, 6, v_po_req_distribution_id);
596: dbms_sql.define_column(v_po_cursor, 7, v_po_distribution_id);
597: dbms_sql.define_column(v_po_cursor, 8, v_seg_val1,25);
598: if(v_segval2 is not null) then
599: dbms_sql.define_column(v_po_cursor, 9, v_seg_val2,25);
600: End if;
593: dbms_sql.define_column(v_po_cursor, 4, v_obligstatus, 25);
594: dbms_sql.define_column(v_po_cursor, 5, v_obligccid);
595: dbms_sql.define_column(v_po_cursor, 6, v_po_req_distribution_id);
596: dbms_sql.define_column(v_po_cursor, 7, v_po_distribution_id);
597: dbms_sql.define_column(v_po_cursor, 8, v_seg_val1,25);
598: if(v_segval2 is not null) then
599: dbms_sql.define_column(v_po_cursor, 9, v_seg_val2,25);
600: End if;
601: if(v_segval3 is not null) then
595: dbms_sql.define_column(v_po_cursor, 6, v_po_req_distribution_id);
596: dbms_sql.define_column(v_po_cursor, 7, v_po_distribution_id);
597: dbms_sql.define_column(v_po_cursor, 8, v_seg_val1,25);
598: if(v_segval2 is not null) then
599: dbms_sql.define_column(v_po_cursor, 9, v_seg_val2,25);
600: End if;
601: if(v_segval3 is not null) then
602: dbms_sql.define_column(v_po_cursor, 10, v_seg_val3,25);
603: End if;
598: if(v_segval2 is not null) then
599: dbms_sql.define_column(v_po_cursor, 9, v_seg_val2,25);
600: End if;
601: if(v_segval3 is not null) then
602: dbms_sql.define_column(v_po_cursor, 10, v_seg_val3,25);
603: End if;
604:
605: Begin
606: v_exec_ret := dbms_sql.execute(v_po_cursor);
602: dbms_sql.define_column(v_po_cursor, 10, v_seg_val3,25);
603: End if;
604:
605: Begin
606: v_exec_ret := dbms_sql.execute(v_po_cursor);
607: Exception
608: When Others then
609: v_error_code := sqlcode ;
610: v_error_mesg := sqlerrm ;
612: End ;
613:
614:
615: loop
616: if dbms_sql.fetch_rows(v_po_cursor) = 0 then
617: exit;
618: else
619:
620: dbms_sql.column_value(v_po_cursor, 1, v_oblignum);
616: if dbms_sql.fetch_rows(v_po_cursor) = 0 then
617: exit;
618: else
619:
620: dbms_sql.column_value(v_po_cursor, 1, v_oblignum);
621: dbms_sql.column_value(v_po_cursor, 2, v_obligdate);
622: dbms_sql.column_value(v_po_cursor, 3, v_obligamt);
623: dbms_sql.column_value(v_po_cursor, 4, v_obligstatus);
624: dbms_sql.column_value(v_po_cursor, 5, v_obligccid);
617: exit;
618: else
619:
620: dbms_sql.column_value(v_po_cursor, 1, v_oblignum);
621: dbms_sql.column_value(v_po_cursor, 2, v_obligdate);
622: dbms_sql.column_value(v_po_cursor, 3, v_obligamt);
623: dbms_sql.column_value(v_po_cursor, 4, v_obligstatus);
624: dbms_sql.column_value(v_po_cursor, 5, v_obligccid);
625: dbms_sql.column_value(v_po_cursor, 6,
618: else
619:
620: dbms_sql.column_value(v_po_cursor, 1, v_oblignum);
621: dbms_sql.column_value(v_po_cursor, 2, v_obligdate);
622: dbms_sql.column_value(v_po_cursor, 3, v_obligamt);
623: dbms_sql.column_value(v_po_cursor, 4, v_obligstatus);
624: dbms_sql.column_value(v_po_cursor, 5, v_obligccid);
625: dbms_sql.column_value(v_po_cursor, 6,
626: v_po_req_distribution_id);
619:
620: dbms_sql.column_value(v_po_cursor, 1, v_oblignum);
621: dbms_sql.column_value(v_po_cursor, 2, v_obligdate);
622: dbms_sql.column_value(v_po_cursor, 3, v_obligamt);
623: dbms_sql.column_value(v_po_cursor, 4, v_obligstatus);
624: dbms_sql.column_value(v_po_cursor, 5, v_obligccid);
625: dbms_sql.column_value(v_po_cursor, 6,
626: v_po_req_distribution_id);
627: dbms_sql.column_value(v_po_cursor, 7, v_po_distribution_id);
620: dbms_sql.column_value(v_po_cursor, 1, v_oblignum);
621: dbms_sql.column_value(v_po_cursor, 2, v_obligdate);
622: dbms_sql.column_value(v_po_cursor, 3, v_obligamt);
623: dbms_sql.column_value(v_po_cursor, 4, v_obligstatus);
624: dbms_sql.column_value(v_po_cursor, 5, v_obligccid);
625: dbms_sql.column_value(v_po_cursor, 6,
626: v_po_req_distribution_id);
627: dbms_sql.column_value(v_po_cursor, 7, v_po_distribution_id);
628: dbms_sql.column_value(v_po_cursor, 8, v_seg_val1);
621: dbms_sql.column_value(v_po_cursor, 2, v_obligdate);
622: dbms_sql.column_value(v_po_cursor, 3, v_obligamt);
623: dbms_sql.column_value(v_po_cursor, 4, v_obligstatus);
624: dbms_sql.column_value(v_po_cursor, 5, v_obligccid);
625: dbms_sql.column_value(v_po_cursor, 6,
626: v_po_req_distribution_id);
627: dbms_sql.column_value(v_po_cursor, 7, v_po_distribution_id);
628: dbms_sql.column_value(v_po_cursor, 8, v_seg_val1);
629: if(v_segval2 is not null) then
623: dbms_sql.column_value(v_po_cursor, 4, v_obligstatus);
624: dbms_sql.column_value(v_po_cursor, 5, v_obligccid);
625: dbms_sql.column_value(v_po_cursor, 6,
626: v_po_req_distribution_id);
627: dbms_sql.column_value(v_po_cursor, 7, v_po_distribution_id);
628: dbms_sql.column_value(v_po_cursor, 8, v_seg_val1);
629: if(v_segval2 is not null) then
630: dbms_sql.column_value(v_po_cursor, 9, v_seg_val2);
631: End if;
624: dbms_sql.column_value(v_po_cursor, 5, v_obligccid);
625: dbms_sql.column_value(v_po_cursor, 6,
626: v_po_req_distribution_id);
627: dbms_sql.column_value(v_po_cursor, 7, v_po_distribution_id);
628: dbms_sql.column_value(v_po_cursor, 8, v_seg_val1);
629: if(v_segval2 is not null) then
630: dbms_sql.column_value(v_po_cursor, 9, v_seg_val2);
631: End if;
632: if(v_segval3 is not null) then
626: v_po_req_distribution_id);
627: dbms_sql.column_value(v_po_cursor, 7, v_po_distribution_id);
628: dbms_sql.column_value(v_po_cursor, 8, v_seg_val1);
629: if(v_segval2 is not null) then
630: dbms_sql.column_value(v_po_cursor, 9, v_seg_val2);
631: End if;
632: if(v_segval3 is not null) then
633: dbms_sql.column_value(v_po_cursor, 10, v_seg_val3);
634: End if;
629: if(v_segval2 is not null) then
630: dbms_sql.column_value(v_po_cursor, 9, v_seg_val2);
631: End if;
632: if(v_segval3 is not null) then
633: dbms_sql.column_value(v_po_cursor, 10, v_seg_val3);
634: End if;
635:
636: end if;
637:
690:
691: end loop;
692:
693: Begin
694: dbms_sql.close_cursor(v_po_cursor);
695: Exception
696: When Others then
697: v_error_code := sqlcode ;
698: v_error_mesg := sqlerrm ;