How to Publish the ABAP query results as csv

Question

Hi,
I have a scenario and need help for the same, I need to query a table in CRM which has the long text information and publish or save the result as a csv file, is it possible? if so please tell me the steps and code if available
Thanks
Akila.R

Answer 1

Hi,
Two formats of creating a CSV file:
report zrich_0001 .
data: it001 type table of t001 with header line.
data: iout type table of string .
data: xout type string.
field-symbols: <fs>.
select * into table it001 from t001.
loop at it001.
  clear xout.
  do.
    assign component sy-index of structure it001 to <fs>.
    if sy-subrc <> 0.
      exit.
    endif.
    if sy-index = 1.
      xout = <fs>.
    else.
      concatenate xout <fs> into xout separated by ','.
    endif.
  enddo.
  append xout to iout.
endloop.
call function 'GUI_DOWNLOAD'
     exporting
          filename = 'C:\test.csv'
     tables
          data_tab = iout.
report ztest.
type-pools:TRUXS.
data: begin of itab occurs 0,
      vbeln like vbap-vbeln,
      posnr like vbap-posnr,
      end of itab.
data:  itab1 type TRUXS_T_TEXT_DATA.
select vbeln
       posnr
       up to 10 rows
       from vbap
       into table itab.
CALL FUNCTION 'SAP_CONVERT_TO_CSV_FORMAT'
  EXPORTING
    I_FIELD_SEPERATOR          = ','
  TABLES
    I_TAB_SAP_DATA             = itab
  CHANGING
    I_TAB_CONVERTED_DATA       =  itab1
  EXCEPTIONS
    CONVERSION_FAILED          = 1
    OTHERS                     = 2.
IF SY-SUBRC <> 0.
  MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION 'GUI_DOWNLOAD'
  EXPORTING
    filename = 'C:\TEMP\TEST.CSV'
  TABLES
    data_tab = itab1
  EXCEPTIONS
    OTHERS   = 1.
Use SE38.
Regards
Subramanian