Comma separated format is required

Question

Hi all
this is the code which i have written:
OPEN DATASET g_ufile FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
   LOOP AT t_file WHERE werks = t_file1-werks.
    MOVE : gc_kaganplntcode TO t_file-fieldname1,
           gc_productcode TO t_file-fieldname2,
           gc_qtyavailable TO t_file-fieldname3.
          CONCATENATE t_file-fieldname1
                      t_file-fieldname2
                      t_file-fieldname3
                   INTO gv_itemdet1 separated by ','.
   ENDLOOP.
     transfer gv_itemdet1 to g_ufile.
    loop at t_file into t_file1.
    condense t_file1 no-gaps.
    transfer t_file1 to g_ufile.
    append t_file1.
    clear t_file1.
    clear gv_itemdet.
    endloop.
in t_file1 data is coming in continous manner. i need to have comma separated data. ie each field shud be separated by ','.
can anybody tell me logic for it.
very urgent.
regrd
Mona
Edited by: Alvaro Tejada Galindo on Apr 14, 2008 1:03 PM

Answer 1

Try it this way mona
Declare a fiel-symbol type any and an string to tranfer the contents.
loop at t_file into t_file1.
clear string.
condense t_file1 no-gaps.
do.
assign component sy-index of structure t_file1 to <fs>.
if sy-subrc ne 0.
exit.
endif.
concatenate string <fs> ',' into string.
enddo.
transfer string to g_ufile.
append t_file1.
clear t_file1.
clear gv_itemdet.
endloop.