REPORT ztest_sy04.
TABLES: spfli, sflight, scarr.
DATA: gt_spfli LIKE TABLE OF spfli,
gt_sflight LIKE TABLE OF sflight,
gt_scarr LIKE TABLE OF scarr.
DATA: l_subrc TYPE sy-subrc,
l_msgtx TYPE bapi_msg,
spfli_dbcnt TYPE sy-dbcnt,
sflight_dbcnt TYPE sy-dbcnt,
scarr_dbcnt TYPE sy-dbcnt.
DATA: lr_ref TYPE REF TO cx_root.
START-OF-SELECTION.
PERFORM deal_data.
*&---------------------------------------------------------------------*
*& Form deal_data
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM deal_data.
" 表中若有数据,先清空
SELECT SINGLE * FROM spfli
TABLES: spfli, sflight, scarr.
DATA: gt_spfli LIKE TABLE OF spfli,
gt_sflight LIKE TABLE OF sflight,
gt_scarr LIKE TABLE OF scarr.
DATA: l_subrc TYPE sy-subrc,
l_msgtx TYPE bapi_msg,
spfli_dbcnt TYPE sy-dbcnt,
sflight_dbcnt TYPE sy-dbcnt,
scarr_dbcnt TYPE sy-dbcnt.
DATA: lr_ref TYPE REF TO cx_root.
START-OF-SELECTION.
PERFORM deal_data.
*&---------------------------------------------------------------------*
*& Form deal_data
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM deal_data.
" 表中若有数据,先清空
SELECT SINGLE * FROM spfli