OraFAQ Forum: Forms » generate text file

Home » Developer & Programmer » Forms » generate text file

Show: Today's Messages :: Polls :: Message Navigator
E-mail to friend

generate text file [message #213016]

Tue, 09 January 2007 02:42

wreyaz
Messages: 44
Registered: April 2006
Location: Saudi Arabia

Member

I want to create a text file (emp.txt) with the following code under when_button_pressed trigger, i am using forms 10g.

Declare
Cursor C1 IS SELECT * FROM pp_emp_mast WHERE
comp = :global.comp AND STS_FLAG != 'D' AND EMPNO != 0
ORDER BY EMPNO;
x sc_circular%rowtype;
out_file CLIENT_Text_IO.File_Type;
eno char(5);
nm CHAR(45);
bs CHAR(15);
tot CHAR(15);

Begin
out_file := CLIENT_Text_IO.Fopen('c:\EMP.txt','w');
FOR x IN C1
LOOP
ENO := nvl(x.EMPNO,' ');
CLIENT_Text_IO.Put(out_file,ENO);
NM := nvl(x.ENAME,' ');
CLIENT_Text_IO.Put(out_file,NM);
BS := lpad(nvl(x.F_BASIC,0.00),10,' ');
CLIENT_Text_IO.Put(out_file,BS);
TOT := lpad(to_char(nvl(x.T_SAL,0.00)),10,' ');
CLIENT_Text_IO.Put(out_file,TOT);
CLIENT_Text_IO.New_Line(out_file,1);
END LOOP;
CLIENT_Text_IO.Fclose(out_file);
MessageBox('message','Text File Generated..');
:global.view := 'Y';
End;

The module is working without any errors, but when i press the button to generate the text file, it didn't create the 'emp.txt' file. (it does nothing).

Is there any thing missing in the code? Please help me to solve the problem.

Report message to a moderator

Re: generate text file [message #213220 is a reply to message #213016]

Tue, 09 January 2007 18:59

djmartin
Messages: 10181
Registered: March 2005
Location: Surges Bay TAS Australia

Senior Member
Account Moderator

Have you defined the output directory in the database? Search this forum or google for 'init.ora' or 'utl_file_dir'.

David

Report message to a moderator

Re: generate text file [message #213243 is a reply to message #213220]

Wed, 10 January 2007 00:04

wreyaz
Messages: 44
Registered: April 2006
Location: Saudi Arabia

Member

I forget to mention here that the 'EMP.TXT' file is created on C:\ but no data inside (blank file).
Same code is working fine in Forms 5. The only thing i change is 'text_io' to 'client_text_io'.
webutil is also configured well as it is working good with other applications.

Report message to a moderator

Re: generate text file [message #213458 is a reply to message #213243]

Wed, 10 January 2007 18:17

djmartin
Messages: 10181
Registered: March 2005
Location: Surges Bay TAS Australia

Senior Member
Account Moderator

Have you placed 'message; pause;' pairs in your code to PROVE that the code is being executed and that it is not just failing on the 'open'?

David

Report message to a moderator

Re: generate text file [message #213638 is a reply to message #213016]

Thu, 11 January 2007 11:06

MarcL
Messages: 455
Registered: November 2006
Location: Connecticut, USA

Senior Member

Sounds like an empty cursor to me

Report message to a moderator

Re: generate text file [message #214548 is a reply to message #213243]

Wed, 17 January 2007 00:05

wreyaz
Messages: 44
Registered: April 2006
Location: Saudi Arabia

Member

Yes I put a message like:

....
....
Begin
out_file := CLIENT_text_io.fopen('c:\EMP.txt','W');

MessageBox('message','Testing....1'); -- Success

FOR x IN C1
LOOP

MessageBox('message','Testing....2'); -- Success

ENO := nvl(x.EMPNO,' ');
CLIENT_Text_IO.Put(out_file,ENO);

MessageBox('message','Testing....3'); -- Not Success

NM := nvl(x.ENAME,' ');
CLIENT_Text_IO.Put(out_file,NM);
....
....

The file 'EMP.TXT' is created but empty.

I would like to mention here that the same code is working good with Forms 5&6.

Report message to a moderator