Procedure using utl_file.fopen

Question

Hi ,
I want to open a file ,read it line by line and if i find one particular word i want to display the whole line.
I tried writing a procedure but not getting desired output.
DECLARE
x utl_file.file_type;
y varchar2(200);
BEGIN
x:= utl_file.fopen('TRACE1',DB_ora_111_trc.txt','R');
LOOP
BEGIN
UTL_FILE.GET_LINE(x,y);
if x='select' then
dbms_output.put_line(x);
end if;
EXCEPTION
WHEN NO_DATA_FOUND THEN EXIT ;
END;
END LOOP;
utl_file.fclose(x);
END;
Here i am opening a tkprof file and trying to grep for select word and if it is found,display the whole select query.The above is not showing any output.Kindly assist me since i am new to coding.
Thanks

Answer 1

user10698496 wrote:
Hi,
I am getting only these much as my output . I want to see entire select query.DECLARE
f utl_file.file_type;
s varchar2(2000);
BEGIN
f := utl_file.fopen('TRACE1','DB_ora_1118250.trc.txt','R');
LOOP
BEGIN
UTL_FILE.GET_LINE(f,s);
if lower(s) like '%select%' then
dbms_output.put_line(s);
end if;
EXCEPTION
WHEN NO_DATA_FOUND THEN EXIT ;
END;
END LOOP;
utl_file.fclose(f);
END;
SELECT uid,tname,str,acol,hcol,TO__CHAR(u_time,'DD-MM-YYYY
SELECTgroup,name,address1,state,country,fax_no,
PL/SQL procedure successfully completed.
Ok, so that is telling us that you have your queries split over multiple lines?
In that case you need to "switch on" the output of lines from the moment you find a "select" and then switch it off again when you get a line that indicates the end of the select. So let's assume your selects end with a ";" as the last character on the last line of the select, you can do something like this...
DECLARE
  f utl_file.file_type;
  s varchar2(2000);
  in_select boolean;
BEGIN
  f := utl_file.fopen('TRACE1','DB_ora_1118250.trc.txt','R');
  in_select := false;
  LOOP
    BEGIN
      UTL_FILE.GET_LINE(f,s);
      if lower(s) like '%select%' or in_select then
        dbms_output.put_line(s);
        in_select := not(s like '%;'); -- stop when we get to ";" at end of a line.
      end if;
    EXCEPTION
      WHEN NO_DATA_FOUND THEN EXIT ;
    END;
  END LOOP;
  utl_file.fclose(f);
END;
Also i attempted to cut only table name from the output select query.I tried something like o :=substr(s,instr(s,'from')+4);PFB the code and output.Pls let me know where am i going wrong.
DECLARE
2  f utl_file.file_type;
3  s varchar2(2000);
4  op varchar2(1000);
5  BEGIN
6  f := utl_file.fopen('TRACE_EXTRACT','DB_ora_1118250.trc.txt','R');
7  LOOP
8  BEGIN
9  UTL_FILE.GET_LINE(f,s);
10  if lower(s) like '%select%' then
11  op :=substr(s,instr(s,'from')+4);
12  dbms_output.put_line(op);
13  end if;
14
15  EXCEPTION
16  WHEN NO_DATA_FOUND THEN EXIT ;
17  END;
18  END LOOP;
19  utl_file.fclose(f);
20  END;
21  /
ECT uid,tname,str,acol,hcol,TO__CHAR(u_time,'DD-MM-YYYY
ECTgroup,name,address1,state,country,fax_no,
that's because there is no "from" on those lines, so the result of the instr is 0 and you are adding 4, so you are getting all characters from character 4 onwards.
What you need in conjunction with my above suggestion is something like this...
DECLARE
  f utl_file.file_type;
  s varchar2(2000);
  in_select boolean;
BEGIN
  f := utl_file.fopen('TRACE1','DB_ora_1118250.trc.txt','R');
  in_select := false;
  LOOP
    BEGIN
      UTL_FILE.GET_LINE(f,s);
      if lower(s) like '%select%' or in_select then
        dbms_output.put_line(s);
        if lower(s) like '%from%' then
          dbms_output.put_line('TABLES: '||substr(s,instr(s,'from'+5))); -- +5 to get past the from and the space character after it.
        end if;
        in_select := not(s like '%;'); -- stop when we get to ";" at end of a line.
      end if;
    EXCEPTION
      WHEN NO_DATA_FOUND THEN EXIT ;
    END;
  END LOOP;
  utl_file.fclose(f);
END;
/