2244: cursor cur_find_line(n_object_id in dba_objects.object_id%type
2245: , c_name in dba_objects.object_name%type) is
2246: select line
2247: , source
2248: from sys.source$
2249: where upper(source) like c_name
2250: and obj# = n_object_id;
2251:
2252: cursor cur_print_line(n_object_id in dba_objects.object_id%type
2249: where upper(source) like c_name
2250: and obj# = n_object_id;
2251:
2252: cursor cur_print_line(n_object_id in dba_objects.object_id%type
2253: , n_line in sys.source$.line%type) is
2254: select line
2255: , source
2256: from sys.source$
2257: where line > (n_line - 5)
2252: cursor cur_print_line(n_object_id in dba_objects.object_id%type
2253: , n_line in sys.source$.line%type) is
2254: select line
2255: , source
2256: from sys.source$
2257: where line > (n_line - 5)
2258: and line < (n_line +5)
2259: and obj# = n_object_id;
2260:
2258: and line < (n_line +5)
2259: and obj# = n_object_id;
2260:
2261: v_string varchar2(512);
2262: v_line sys.source$.line%type;
2263: v_first boolean := TRUE;
2264:
2265: begin
2266: v_string := '%'||upper(c_name)||'%';
2294:
2295: cursor cur_find_line(n_object_id in dba_objects.object_id%type) is
2296: select line
2297: , source
2298: from sys.source$
2299: where obj# = n_object_id;
2300:
2301:
2302: v_line sys.source$.line%type;
2298: from sys.source$
2299: where obj# = n_object_id;
2300:
2301:
2302: v_line sys.source$.line%type;
2303: v_prevline sys.source$.line%type := 1;
2304:
2305: v_firstline sys.source$.line%type := 0;
2306: v_lastline sys.source$.line%type := 0;
2299: where obj# = n_object_id;
2300:
2301:
2302: v_line sys.source$.line%type;
2303: v_prevline sys.source$.line%type := 1;
2304:
2305: v_firstline sys.source$.line%type := 0;
2306: v_lastline sys.source$.line%type := 0;
2307:
2301:
2302: v_line sys.source$.line%type;
2303: v_prevline sys.source$.line%type := 1;
2304:
2305: v_firstline sys.source$.line%type := 0;
2306: v_lastline sys.source$.line%type := 0;
2307:
2308: v_first boolean := TRUE;
2309: type source_table is table of sys.source$.source%type index by binary_integer;
2302: v_line sys.source$.line%type;
2303: v_prevline sys.source$.line%type := 1;
2304:
2305: v_firstline sys.source$.line%type := 0;
2306: v_lastline sys.source$.line%type := 0;
2307:
2308: v_first boolean := TRUE;
2309: type source_table is table of sys.source$.source%type index by binary_integer;
2310: v_source source_table;
2305: v_firstline sys.source$.line%type := 0;
2306: v_lastline sys.source$.line%type := 0;
2307:
2308: v_first boolean := TRUE;
2309: type source_table is table of sys.source$.source%type index by binary_integer;
2310: v_source source_table;
2311:
2312: type line_rec is record
2313: ( select_line number(32)