Creating a text file output from ABAP

Question

Hi
I'm trying to create a comma delimited text file by using ABAP code
Could someone please help me with my coding in the following areas or is there better coding to do it:
1)Is there a way  to move the entire Customer file KNA1 into my text file instead of doing it field by field.
2)How can I do the comma seperation correctly?
REPORT  ZTEXTFILE.
data: lt_kna1 type table of kna1.
data: ls_kna1 type kna1.
data: lv_filename type string value 'ztest.txt'.
select * from kna1 into table lt_kna1.
open dataset lv_filename for output in text mode encoding default.
IF sy-subrc <> 0.
  WRITE :/ 'ERROR'.
  EXIT.
ENDIF.
loop at lt_kna1 into ls_kna1.
transfer ls_kna1-kunnr  to lv_filename.
transfer ';' to lv_filename.
transfer ls_kna1-name1 to lv_filename.
transfer ';' to lv_filename.
endloop.
close dataset lv_filename.
WRITE :/ 'DONE'.
Many thanks
Gerhard

Answer 1

REPORT ZTEXTFILE.
data: lt_kna1 type table of kna1,
        ls_kna1 type kna1,
        lv_filename type string value 'ztest.txt',
        lv_file type string.
select * from kna1 into table lt_kna1.
open dataset lv_filename for output in text mode encoding default.
IF sy-subrc ne 0.
WRITE :/ 'ERROR'.
EXIT.
else
loop at lt_kna1 into ls_kna1.
CONCATENATE ls_kna1-kunnr ls_kna1-name1 into lv_file separated by ','.
transfer lv_file to lv_lilename.
clear lv_file.
endloop.
close dataset lv_filename.
endif.
WRITE :/ 'DONE'.
Try this out, should do the trick. Also, may i suggest not using '*' in your select statement and fetch data only for the fields you wish to have in your text file after filtering using a where Claus. It would greatly improve performance.
Edited by: AJ Nayak on Feb 9, 2012 11:05 AM