Mega Code Archive

 

Categories / Oracle PLSQL / Stored Procedure Function

 

File dump procedure

SQL> SQL> create or replace procedure file_dump( p_directory in varchar2,p_filename  in varchar2 )   2  as   3      type array is table of varchar2(5) index by binary_integer;   4   5      l_chars  array;   6      l_bfile  bfile;   7      l_buffsize number default 15;   8      l_data   varchar2(30);   9      l_len    number;  10      l_offset number default 1;  11      l_char   char(1);  12  begin  13      l_chars(0)  := '\0';  14      l_chars(13) := '\r';  15      l_chars(10) := '\n';  16      l_chars(9)  := '\t';  17  18      l_bfile := bfilename( p_directory, p_filename );  19      dbms_lob.fileopen( l_bfile );  20  21      l_len := dbms_lob.getlength( l_bfile );  22      while( l_offset < l_len )  23      loop  24          l_data := utl_raw.cast_to_varchar2(dbms_lob.substr( l_bfile, l_buffsize, l_offset ));  25  26          for i in 1 .. length(l_data)  27          loop  28              l_char := substr(l_data,i,1);  29  30              if ascii( l_char ) between 32 and 126  31              then  32                  dbms_output.put( lpad(l_char,3) );  33              elsif ( l_chars.exists( ascii(l_char) ) )  34              then  35                  dbms_output.put( lpad( l_chars(ascii(l_char)), 3 ) );  36              else  37                  dbms_output.put( to_char(ascii(l_char),'0X') );  38              end if;  39          end loop;  40          dbms_output.new_line;  41  42          l_offset := l_offset + l_buffsize;  43      end loop;  44      dbms_lob.close( l_bfile );  45  end;  46  / Procedure created. SQL> SQL> SQL> exec file_dump( 'MY_FILES', 'demo17.dat' ); BEGIN file_dump( 'MY_FILES', 'demo17.dat' ); END; * ERROR at line 1: ORA-22285: non-existent directory or file for FILEOPEN operation ORA-06512: at "SYS.DBMS_LOB", line 523 ORA-06512: at "RNTSOFT.FILE_DUMP", line 19 ORA-06512: at line 1 SQL> SQL> --