Help on procedure from a code at asktom...

Question

hello all,
i found this procedure on asktom.oracle.com...
http://asktom.oracle.com/pls/asktom/f?p=100:11:0::::P11_QUESTION_ID:1352202934074
and for some reason i cant get it working..here is the script...
drop table alert_log;
create global temporary table alert_log
( line   int primary key,
  text   varchar2(4000)
on commit preserve rows
create or replace procedure load_alert
as
    l_background_dump_dest   v$parameter.value%type;
    l_filename               varchar2(255);
    l_bfile                  bfile;
    l_last                   number;
    l_current                number;
    l_start                  number := dbms_utility.get_time;
begin
    select a.value, 'alert_' || b.instance || '.log'
      into l_background_dump_dest, l_filename
      from v$parameter a, v$thread b
     where a.name = 'background_dump_dest';
    execute immediate
    'create or replace directory x$alert_log$x as
    ''' || l_background_dump_dest || '''';
    dbms_output.put_line( l_background_dump_dest );
    dbms_output.put_line( l_filename );
    delete from alert_log;
    l_bfile := bfilename( 'X$ALERT_LOG$X', l_filename );
    dbms_lob.fileopen( l_bfile );
    l_last := 1;
    for l_line in 1 .. 50000
    loop
        dbms_application_info.set_client_info( l_line || ', ' ||
        to_char(round((dbms_utility.get_time-l_start)/100, 2 ) )
        || ', '||
        to_char((dbms_utility.get_time-l_start)/l_line)
        l_current := dbms_lob.instr( l_bfile, '0A', l_last, 1 );
        exit when (nvl(l_current,0) = 0);
        insert into alert_log
        ( line, text )
        values
        ( l_line,
          utl_raw.cast_to_varchar2(
              dbms_lob.substr( l_bfile, l_current-l_last+1,
                                                    l_last ) )
        l_last := l_current+1;
    end loop;
    dbms_lob.fileclose(l_bfile);
end;
/select name, value from v$parameter where name = 'background_dump_dest';
NAME                                                                           
VALUE                                                                          
background_dump_dest                                                           
/oracle/admin/orcl/bdump   but when i run the procedure...
BEGIN
scott.LOAD_ALERT;
COMMIT;
END;
i get below errors
Error at line 1
ORA-22288: file or LOB operation FILEOPEN failed
No such file or directory
ORA-06512: at "SYS.DBMS_LOB", line 523
ORA-06512: at "scott.LOAD_ALERT", line 27
ORA-06512: at line 2
ALSO...user scott has dba grant and all other grants necessary. Also its not like the procedure is invalid or anything...its valid...but throws me this error....
any help is appericiated...

Answer 1

S2K,
The procedure contains platform specific code. Of course you couldn't be bothered to specify your version or platform. But, as the error message is self-explanatory. why didn't you verify whether the alert_<instance>.log actually exists?
You really need to learn to troubleshoot yourself, instead of just dumping everything in this forum rightaway.
This forum is not about doing your work (or should I say 'ur work') for free!!!!!!!!!!!!!!!!!!
And BTW: you could easily set up this procedur without needing access to v$thread and v$parameter.
The quality of the code in this procedure is sadly way below average.
Sybrand Bakker
Senior Oracle DBA