TRY.
* --------------------------------------------------------------------*
DATA: w_tab_field TYPE c VALUE cl_abap_char_utilities=>cr_lf.
DATA lv_string_to_dataset TYPE string.
DATA lv_kursf(14) TYPE c.
DATA lv_dmbtr(15) TYPE c.
DATA lv_wrbtr(15) TYPE c.
* local data declaration
DATA:
lo_cxfo TYPE REF TO cx_sy_file_open ,
lo_cxcp TYPE REF TO cx_sy_codepage_converter_init ,
lo_cxcc TYPE REF TO cx_sy_conversion_codepage ,
lo_cxfa TYPE REF TO cx_sy_file_authority ,
lo_cxpn TYPE REF TO cx_sy_pipes_not_supported,
lo_cxmf TYPE REF TO cx_sy_too_many_files,
lo_cxroo TYPE REF TO cx_root
.
* --------------------------------------------------------------------*
CONCATENATE v_url_ou '/rep' sy-datum v_time '.txt' INTO w_ruta.
OPEN DATASET w_ruta FOR OUTPUT IN TEXT MODE ENCODING DEFAULT .
LOOP AT gt_figl_joined INTO wa_figl_joined.
lv_kursf = wa_figl_joined-h_kursf.
lv_dmbtr = wa_figl_joined-l_dmbtr.
lv_wrbtr = wa_figl_joined-l_wrbtr.
CONCATENATE
wa_figl_joined-h_mandt
wa_figl_joined-h_bukrs
wa_figl_joined-h_belnr
wa_figl_joined-h_gjahr
wa_figl_joined-l_buzei
wa_figl_joined-h_blart
wa_figl_joined-h_bldat
wa_figl_joined-h_budat
wa_figl_joined-h_cpudt
wa_figl_joined-h_xblnr
wa_figl_joined-h_bktxt
wa_figl_joined-h_waers
lv_kursf
wa_figl_joined-h_xref1_hd
wa_figl_joined-h_xref2_hd
wa_figl_joined-l_bschl
wa_figl_joined-l_shkzg
wa_figl_joined-l_gsber
lv_dmbtr
lv_wrbtr
wa_figl_joined-l_valut
wa_figl_joined-l_zuonr
wa_figl_joined-l_sgtxt
wa_figl_joined-l_kostl
wa_figl_joined-l_prctr
wa_figl_joined-l_hkont
wa_figl_joined-l_xref1
wa_figl_joined-l_xref2
wa_figl_joined-l_xref3
INTO lv_string_to_dataset
SEPARATED BY w_tab_field
.
TRANSFER lv_string_to_dataset TO w_ruta .
ENDLOOP.
CLOSE DATASET w_ruta.
CATCH cx_sy_file_open INTO lo_cxfo.
WRITE: /, 'Error at open file'.
CATCH cx_sy_codepage_converter_init INTO lo_cxcp.
WRITE: /, 'Error Code Page Converter initialization'.
CATCH cx_sy_conversion_codepage INTO lo_cxcc.
WRITE: /, 'Error Code Page Concersion'.
CATCH cx_sy_file_authority INTO lo_cxfa.
WRITE: /, 'Error no authorization to process file'.
CATCH cx_sy_pipes_not_supported INTO lo_cxpn.
WRITE: /, 'Error at open file'.
CATCH cx_sy_too_many_files INTO lo_cxmf.
WRITE: /, 'Error al tratar de procesar muchos archivos'.
CATCH cx_root INTO lo_cxroo.
WRITE: /, 'Error genérico'.
ENDTRY.
SAVE DATASET separated by tab
- Detalles
- Escrito por Consulting De Lo Mejor SA de CV
- Categoría de nivel principal o raíz: All Articles
- Categoría: ABAP Workbench
- Visto: 2819