Why this error in writing string to text file using utl_file?

Question

HI Friends,
Iam trying to write procedure to add one line of text in text file using UTIL package. But getting error.
create or replace procedure Add_To_File() is
OutFile utl_file.file_type;
l_err_code NUMBER(10);
l_err_msg VARCHAR2(2000);
vNewLine VARCHAR2(4000);
vdir varchar2(200):='UTIL_DIR';
begin
OutFile:=utl_file.fopen(vdir,'out.txt','w','32000');
vNewLine:='Loading is successfull';
utl_file.put_line(OutFile,vNewLine);
EXCEPTION
WHEN OTHERS THEN
l_err_code := SQLCODE;
l_err_msg := SUBSTR(SQLERRM,1,128);
Dbms_output.put_line(l_err_code || l_err_msg);
end;
when i execute above procedure iam getting this error.
LINE/COL ERROR
1/23 PLS-00103: Encountered the symbol ")" when expecting one of the
following:
<an identifier> <a double-quoted delimited-identifier>
current delete exists prior
Please suggest me where iam wrong.
Thanks,
Venkat Vadlamudi

Answer 1

868591 wrote:
HI Friends,
Iam trying to write procedure to add one line of text in text file using UTIL package. But getting error.
create or replace procedure Add_To_File() is
OutFile utl_file.file_type;
l_err_code NUMBER(10);
l_err_msg VARCHAR2(2000);
vNewLine VARCHAR2(4000);
vdir varchar2(200):='UTIL_DIR';
begin
OutFile:=utl_file.fopen(vdir,'out.txt','w','32000');
vNewLine:='Loading is successfull';
utl_file.put_line(OutFile,vNewLine);
EXCEPTION
WHEN OTHERS THEN
l_err_code := SQLCODE;
l_err_msg := SUBSTR(SQLERRM,1,128);
Dbms_output.put_line(l_err_code || l_err_msg);
end;
when i execute above procedure iam getting this error.
LINE/COL ERROR
1/23 PLS-00103: Encountered the symbol ")" when expecting one of the
following:
<an identifier> <a double-quoted delimited-identifier>
current delete exists prior
Please suggest me where iam wrong.
Thanks,
Venkat Vadlamudibelow works for me
  1  CREATE OR replace PROCEDURE Add_to_file
  2  IS
  3    outfile       utl_file.file_type;
  4    l_err_code NUMBER(10);
  5    l_err_msg  VARCHAR2(2000);
  6    vnewline   VARCHAR2(4000);
  7    vdir       VARCHAR2(200) := 'UTIL_DIR';
  8  BEGIN
  9    outfile := utl_file.Fopen(vdir, 'out.txt', 'w', '32000');
10    vnewline := 'Loading is successfull';
11    utl_file.Put_line(outfile, vnewline);
12  EXCEPTION
13    WHEN OTHERS THEN
14            l_err_code := SQLCODE;
15            l_err_msg := Substr(sqlerrm, 1, 128);
16            dbms_output.Put_line(l_err_code
17                           || l_err_msg);
18* END;
SQL> /
Procedure created.