Yurttas/PL/DBL/oracle/F/02/SPJ/Parts-ins.sp

 1/*
 2REM
 3REM Partsins.sp
 4REM
 5*/
 6
 7CREATE OR REPLACE
 8PROCEDURE Parts-Ins IS
 9
10  in_file UTL_FILE.FILE_TYPE;
11
12  line_buff VARCHAR2(255);
13
14BEGIN
15
16  in_file := UTL_FILE.FOPEN('/user/scratch4/',
17                            'Parts-Data.txt',
18                            'R');
19
20  LOOP
21    UTL_FILE.GET_LINE(in_file, line_buff);
22    DBMS_OUTPUT.PUT_LINE(line_buff);
23  END LOOP;
24
25  UTL_FILE.FCLOSE(in_file);
26
27END Parts-Ins;
28/