PROCEDURE load_import (file_name IN VARCHAR2)
                 IS
                 vSFile UTL_FILE.FILE_TYPE;
                 vNewLine VARCHAR2(2000);
                 BEGIN
                    vSFile := UTL_FILE.FOPEN ('c:\temp\',file_name,'r');
                    IF UTL_FILE.IS_OPEN(vSFile) THEN
                       LOOP
                          BEGIN
                             utl_file.get_line (vSFile, vNewLine);
                             IF vNewLine IS NULL THEN
                                EXIT;
                             END IF;
                             INSERT INTO test
                             (fld1, fld2)
                             VALUES
                             (vNewLine, file_name);
                          END;
                       END LOOP;
                       COMMIT;
                    END IF;
                 END load_import;