Scribd
Upload
34 views

Open Dataset

This document contains code to export data from an internal table to a text file. It loops through the table, concatenates the field values into a string separated by tabs, and writes each string record to the output file. It first writes header information with field names, then the data records. Various formatting and encoding steps are performed to generate a properly formatted text file for export.

Uploaded by

Kranti Kumar Yamparala
Copyright
© © All Rights Reserved
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
34 views

Open Dataset

This document contains code to export data from an internal table to a text file. It loops through the table, concatenates the field values into a string separated by tabs, and writes each string record to the output file. It first writes header information with field names, then the data records. Various formatting and encoding steps are performed to generate a properly formatted text file for export.

Uploaded by

Kranti Kumar Yamparala
Copyright
© © All Rights Reserved
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 4

OPEN DATASET p_file FOR OUTPUT in TEXT MODE ENCODING DEFAULT.

"BINARY
MODE ."ENCODING DEFAULT."LEGACY TEXT MODE CODE PAGE '4103' IGNORING CONVERSION
ERRORS.
IF sy-subrc IS NOT INITIAL.
EXIT.
ELSE.
IF lv_index = 1.
CONCATENATE
'Plant'
'Purchase Order'
'Order No'
'Invoice'
'Post Date'
'Customer(Payer Code)'
'Customer(Payer Name)'
'Ship-To Code'
'Ship-To Name'
'Ship to city'
'Item Number'
'Description'
'Item Description(Arabic)'
'Qty Invoiced'
'UoM'
'Price'
'Invoice Amount'
'Unit Cost'
'Margin %'
'Margin Amount'
'Tax Class'
'Tax Amount'
'Cust Type'
'HS Code'
'SFDA Reg Code'
'SalesOrg'
'Sales Office'
'Sales Division'
'Distribution Channel'
'Profit Center'
'TAX code'
'Posted'
'Salespsn Code'
'Salespsn Name'
'Division'
'Doc Category'
'Packing'
'Group'
'Supplier'
'Product Line'
'Product Group'
'Valuation Type'
'Bill Type'
'User ID'
'Billing Date'
'Material Code'
'VAT Registration #'
'Bill Type Desc'
'Ord Date'
'Total Inv Unit Cost'
'Unit Cost PGI'
'Total Unit Cost PGI'
*CL_ABAP_CHAR_UTILITIES=>CR_LF
INTO lw_string
SEPARATED BY CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB.
*call function 'SCMS_STRING_TO_XSTRING'
* exporting text = lw_string
* MIMETYPE = lv_apptype
* IMPORTING BUFFER = lw_xstring.
* Add the Byte Order Mark - UTF-16 Little Endian
*concatenate cl_abap_char_utilities=>byte_order_mark_little lw_xstring
* into lw_xstring in byte mode.
*TRANSFER lw_string to p_file.
TRANSFER lw_string to p_file.
lv_index = lv_index + 1.
ENDIF.
LOOP AT gt_data INTO lw_data.
CLEAR lw_string.
lv_fkimg = lw_data-fkimg.
lv_umvkz = lw_data-umvkz.
lv_umvkn = lw_data-umvkn.
lv_netwr = lw_data-netwr.
lv_netwr1 = lw_data-netwr1.
lv_kwert = lw_data-kwert.
lv_kwert1 = lw_data-kwert1.
lv_kbetr = lw_data-kbetr.
lv_kawrt = lw_data-kawrt.
lv_kbetr1 = lw_data-kbetr1.
lv_kawrt1 = lw_data-kawrt1.
lv_kwert2 = lw_data-kwert2.
lv_kwert3 = lw_data-kwert3.
lv_mwsbp = lw_data-mwsbp.
*CONCATENATE lw_data-vbeln
* lw_data-fkart
* lw_data-vtext4
* lw_data-vbtyp
* lw_data-vkorg
* lw_data-vtweg
* lw_data-knumv
* lw_data-gjahr
* lw_data-kdgrp
* lw_data-bukrs
* lw_data-ernam
* lw_data-fkdat
* lw_data-erdat
* lw_data-stceg
* lw_data-stcd5
* lw_data-spart
* lw_data-zuonr
* lw_data-posnr
* lv_fkimg
* lw_data-vrkme
* lv_umvkz
* lv_umvkn
* lw_data-meins
* lv_netwr
* lw_data-aubel
* lw_data-aupos
* lw_data-matnr
* lw_data-arktx
* lw_data-matkl
* lw_data-prodh
* lw_data-werks
* lw_data-vkbur
* lw_data-prctr
* lw_data-budat
* lw_data-kunnr1
* lw_data-name1
* lw_data-kunnr2
* lw_data-name2
* lw_data-ort01
* lw_data-pernr
* lw_data-ename
* lw_data-vtext
* lw_data-pack
* lw_data-vtext1
* lv_netwr1
* lv_kwert
* lv_kwert1
* lv_kbetr
* lv_kawrt
* lw_data-postd
* lv_kbetr1
* lv_kawrt1
* lw_data-steuc
* lw_data-atwrt
* lw_data-mwsk1
* lw_data-maktx
* lw_data-vtext2
* lw_data-vtext3
* lw_data-bwtar
* lw_data-awkey
* lv_mwsbp
* lw_data-audat
* lv_kwert2
* lv_kwert3
* lw_data-vgbel
* lw_data-vgpos
* lw_data-charg
* INTO lw_string SEPARATED BY CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB.
CONCATENATE lw_data-WERKS
lw_data-ZUONR
lw_data-AUBEL
lw_data-VBELN
lw_data-BUDAT
lw_data-KUNNR1
lw_data-NAME1
lw_data-KUNNR2
lw_data-NAME2
lw_data-ORT01
lw_data-POSNR
lw_data-ARKTX
lw_data-MAKTX
lv_fkimg
lw_data-VRKME
lv_netwr1
lv_netwr
lv_kwert
lv_kbetr
lv_kawrt
lv_kbetr1
lv_kawrt1
lw_data-KDGRP
lw_data-STEUC
lw_data-ATWRT
lw_data-VKORG
lw_data-VKBUR
lw_data-SPART
lw_data-VTWEG
lw_data-PRCTR
lw_data-MWSK1
lw_data-POSTD
lw_data-PERNR
lw_data-ENAME
lw_data-VTEXT
lw_data-VBTYP
lw_data-PACK
lw_data-MATKL
lw_data-VTEXT1
lw_data-VTEXT2
lw_data-VTEXT3
lw_data-BWTAR
lw_data-FKART
lw_data-ERNAM
lw_data-FKDAT
lw_data-MATNR
lw_data-STCD5
lw_data-VTEXT4
lw_data-AUDAT
lv_kawrt1
lv_kwert2
lv_kwert3
*CL_ABAP_CHAR_UTILITIES=>CR_LF
INTO lw_string SEPARATED BY CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB.
*call function 'SCMS_STRING_TO_XSTRING'
* exporting text = lw_string
* MIMETYPE = lv_apptype
* IMPORTING BUFFER = lw_xstring.
* Add the Byte Order Mark - UTF-16 Little Endian
*concatenate cl_abap_char_utilities=>byte_order_mark_little lw_xstring
* into lw_xstring in byte mode.
TRANSFER lw_string to p_file.
ENDLOOP.
CLOSE DATASET p_file.

You might also like