401: procedure clean_rail_segs
402: is
403: cursor c1( start_id NUMBER ) is
404: select railroad_segment_id, rowid 405: from csf_md_rail_segs 406: where railroad_segment_id >= start_id
407: order by railroad_segment_id;
408: r1 c1%ROWTYPE;
409:
Line 429: delete from csf_md_rail_segs where rowid = r1.rowid;
425: exit;
426: end if;
427:
428: if ( min_start_id = r1.railroad_segment_id ) then 429: delete from csf_md_rail_segs where rowid = r1.rowid; 430: else
431: min_start_id := r1.railroad_segment_id;
432: end if;
433: