Fieldnames in GUI_Download function module

Question

Dear All,
In the following code im passing the parameter it_fieldnames into 'c:/text.txt' file along with the data but im not able to get the fieldnames in to it, it is getting only data from the it_final. can any1 tell me what is the problem.
call function 'GUI_DOWNLOAD'
    exporting
      filename                = 'c:/text.txt'"p_fname
      filetype                = 'ASC'
     append                  = 'X'
      write_field_separator   = 'X'
    tables
      data_tab                = it_final
      fieldnames              = it_fieldnames
    exceptions
      file_write_error        = 1
      no_batch                = 2
      gui_refuse_filetransfer = 3
      invalid_type            = 4
      no_authority            = 5.
  case sy-subrc.
    when 0.
    when 1.
      write : / 'Error in opening file ', fname.
    when 2.
      write : / 'Error in writing file ', fname.
    when 3.
      write : / 'The file type is not valid'.
    when others.
      write : / 'The file could not be transferred'.
  endcase.
endform.                    " f_submit_layout
*&      Form  VEND_FIELDNAMES
      text
form tab_fieldnames.
  it_fieldnames-name = 'Sl No'.
  append it_fieldnames.
  it_fieldnames-name = 'Credit Acc'.
  append it_fieldnames.
  it_fieldnames-name = 'credit Doc'.
  append it_fieldnames.
  it_fieldnames-name = 'Credit Ref'.
  append it_fieldnames.
  it_fieldnames-name = '           '.
  append it_fieldnames.
  it_fieldnames-name =   'Amount'.
  append it_fieldnames.
  it_fieldnames-name =   'SSI'.
  append it_fieldnames.
  it_fieldnames-name =   'Debit Bankcode'.
  append it_fieldnames.
  it_fieldnames-name =   'Debit BrCode'.
  append it_fieldnames.
  it_fieldnames-name =   'Debit Acc'.
  append it_fieldnames.
  it_fieldnames-name =   'Debit Cheque'.
  append it_fieldnames.
  it_fieldnames-name =   '            '.
  append it_fieldnames.
  it_fieldnames-name =   ' '.
  append it_fieldnames.
  it_fieldnames-name =   'Batch date'.
  append it_fieldnames.
  it_fieldnames-name =   '          '.
  append it_fieldnames.
endform.                    "VEND_FIELDNAMES
Thanks a lot,
Santosh Kotra.

Answer 1

Hi santosh,
1. Exactly for the same purpose
2. There is an independent subroutine (FORM)
   in my program,
   which will download any table,
   to the specified filename
   (along with FIELDNAMES)
3. just copy paste
4.
report abc.
data : itab like table of t001 with header line.
select * from t001 into table itab.
perform mydownload tables itab using 'D:\t001.txt'.
INDEPENDENT FORM
form mydownload tables ptab using filename.
DAta
  DATA : components     LIKE     rstrucinfo OCCURS 0 WITH HEADER LINE.
  DATA : allfields(300) TYPE c.
  DATA : fld(100) TYPE c.
  data : begin of htab occurs 0,
         allfields(300) type c,
         end of htab.
Get component list
  CALL FUNCTION 'GET_COMPONENT_LIST'
    EXPORTING
      program    = sy-repid
      fieldname  = 'ITAB'
    TABLES
      components = components.
construct
  LOOP AT components.
    CONCATENATE   components-compname
  CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB INTO fld.
    CONCATENATE allfields fld INTO allfields .
  ENDLOOP.
  htab-allfields = allfields.
  append htab.
download first field list
  CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
  BIN_FILESIZE                    =
      FILENAME                        = 'D:\t001.txt'
     WRITE_FIELD_SEPARATOR           = 'X'
    TABLES
      DATA_TAB                        = htab
then download file data
CALL FUNCTION 'GUI_DOWNLOAD'
  EXPORTING
  BIN_FILESIZE                    =
    FILENAME                        = filename
    APPEND                          = 'X'
   WRITE_FIELD_SEPARATOR           = 'X'
  TABLES
    DATA_TAB                        = ptab
  endform.
regards,
amit m.