DELETE FROM plsql_profiler_data;
DELETE FROM plsql_profiler_units;
DELETE FROM plsql_profiler_runs;

SELECT * FROM plsql_profiler_data;
SELECT * FROM plsql_profiler_units;
SELECT * FROM plsql_profiler_runs;


CREATE DIRECTORY Texte
 AS 'C:\oratxt';

CREATE OR REPLACE PROCEDURE Example_l2f IS
lobd BLOB;
fils BFILE := BFILENAME('SOME_DIR_OBJ','some_file');
amt INTEGER := 4000;
BEGIN
SELECT b_lob INTO lobd FROM lob_table WHERE key_value = 42 FOR UPDATE;
dbms_lob.fileopen(fils, dbms_lob.file_readonly);
dbms_lob.loadfromfile(lobd, fils, amt);
COMMIT;
dbms_lob.fileclose(fils);
END;

DECLARE
fil     CLOB;
pos     INTEGER := 214;
pattern VARCHAR2(400);
BEGIN
SELECT T_Inhalt
  INTO fil
  FROM SCOTT.Text
 WHERE T_Nr = 2;
dbms_lob.fileopen(fil, dbms_lob.file_readonly);
pattern := dbms_lob.substr(fil, 255, pos);
dbms_lob.fileclose(fil);
END;