* 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,
lv_row TYPE string,
w_tab_field TYPE c VALUE cl_abap_char_utilities=>cr_lf
.
REFRESH gt_figl_joined.
TRY.
OPEN DATASET w_ruta FOR INPUT IN TEXT MODE ENCODING DEFAULT.
DO.
READ DATASET w_ruta INTO lv_row.
IF NOT lv_row IS INITIAL.
SPLIT lv_row AT w_tab_field
INTO
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
wa_figl_joined-h_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
wa_figl_joined-l_dmbtr
wa_figl_joined-l_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
wa_figl_joined-l_criteria.
IF sy-subrc = 0.
APPEND wa_figl_joined TO gt_figl_joined.
ELSE.
EXIT.
ENDIF.
ELSE.
EXIT.
ENDIF.
ENDDO.
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'(005).
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.
ENDIF.
READ 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: 1540