Code: Alles auswählen.
REPORT ztable.
TYPE-POOLS: truxs.
TABLES: dd02l,bsik.
DATA: gt_table TYPE bsik OCCURS 0 WITH HEADER LINE,
gt_download TYPE truxs_t_text_data,
d_tabname LIKE dd02l-tabname,
d_out TYPE string,
d_tablefields TYPE TABLE OF dbfield,
d_tab LIKE dd02l-tabname.
DATA: BEGIN OF itab_download OCCURS 0,
strdownload(4096) TYPE c,
END OF itab_download.
FIELD-SYMBOLS: TYPE dbfield.
PARAMETERS: file(80) TYPE c ,
delim(1) TYPE c DEFAULT '|'.
START-OF-SELECTION.
d_tab = 'BSIK'.
* check table
SELECT tabname
FROM dd02l
INTO d_tabname
WHERE tabname = d_tab.
ENDSELECT.
* READ field description
CALL FUNCTION 'DB_GET_TABLE_FIELDS'
EXPORTING
tabname = d_tabname
TABLES
dbfields = d_tablefields.
LOOP AT d_tablefields ASSIGNING .
CONCATENATE d_out -name delim INTO d_out.
ENDLOOP.
SELECT * FROM bsik INTO TABLE gt_table.
CALL FUNCTION 'SAP_CONVERT_TO_TEX_FORMAT'
EXPORTING
i_field_seperator = delim
* i_line_header = 'X'
* I_FILENAME =
* I_APPL_KEEP = ' '
TABLES
i_tab_sap_data = gt_table
CHANGING
i_tab_converted_data = gt_download
EXCEPTIONS
conversion_failed = 1
OTHERS = 2.
OPEN DATASET file FOR OUTPUT IN TEXT MODE.
TRANSFER d_out TO file.
LOOP AT gt_download INTO itab_download.
TRANSFER itab_download TO file.
ENDLOOP.
CLOSE DATASET file.
WRITE :/ 'Fertig'.