SAP 航班测试表更新数据 spfli, sflight, scarr

转摘https://blog.csdn.net/rztyzxzy/article/details/46458131
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.
IF sy-subrc EQ 0.
DELETE FROM spfli.
l_subrc = sy-subrc.
IF l_subrc <> 0.
WRITE: / ‘表SPFLI清空失败！’.
ENDIF.
ENDIF.

SELECT SINGLE * FROM sflight.
IF sy-subrc EQ 0 AND l_subrc EQ 0.
DELETE FROM sflight.
l_subrc = sy-subrc.
IF l_subrc <> 0.
WRITE: / ‘表SFLIGHT清空失败！’.
ENDIF.
ENDIF.

SELECT SINGLE * FROM scarr.
IF sy-subrc EQ 0 AND l_subrc EQ 0.
DELETE FROM scarr.
l_subrc = sy-subrc.
IF l_subrc <> 0.
WRITE: / ‘表SCARR清空失败！’.
ENDIF.
ENDIF.

CHECK l_subrc EQ 0.

" 重新获取数据
CALL FUNCTION ‘BCALV_GENERATE_TEST_DATA’
EXPORTING
i_amount_spfli = 100
i_amount_sflight = 100
TABLES
et_spfli = gt_spfli
et_sflight = gt_sflight.

" 删除主键相同的记录
SORT gt_spfli BY carrid connid.
DELETE ADJACENT DUPLICATES FROM gt_spfli COMPARING carrid connid.
" 删除主键相同的记录
SORT gt_sflight BY carrid connid.
DELETE ADJACENT DUPLICATES FROM gt_sflight COMPARING carrid connid.
"插入数据
TRY.
INSERT spfli FROM TABLE gt_spfli.
l_subrc = sy-subrc.
spfli_dbcnt = sy-dbcnt.

  IF l_subrc EQ 0.
    INSERT sflight FROM TABLE gt_sflight.
    l_subrc       = sy-subrc.
    sflight_dbcnt = sy-dbcnt.
  ENDIF.

  IF l_subrc EQ 0.
    SELECT
      carrid
      carrname
      currency AS currcode
      INTO CORRESPONDING FIELDS OF TABLE gt_scarr
      FROM alv_t_t2.
    " 删除主键相同的记录
    SORT gt_scarr BY carrid.
    DELETE ADJACENT DUPLICATES FROM gt_scarr COMPARING carrid.

    INSERT scarr FROM TABLE gt_scarr.
    l_subrc     = sy-subrc.
    scarr_dbcnt = sy-dbcnt.
  ENDIF.

CATCH cx_root INTO lr_ref.
  l_msgtx = lr_ref->get_text( ). " 获取错误信息
  l_subrc = 1."表示有错误

ENDTRY.

CASE: l_subrc. "处理是否成功
WHEN 0.
COMMIT WORK. "提交客制化表的表处理提交
WRITE: / ‘表SPFLI 已经成功生成数据：’,spfli_dbcnt, ‘条！’.
WRITE: / ‘表SFLIGHT已经成功生成数据：’,sflight_dbcnt,‘条！’.
WRITE: / ‘表SCARR 已经成功生成数据：’,scarr_dbcnt, ‘条！’.
SKIP 3.
WRITE: / ‘请查看spfli、sflight、scarr三表中的数据！’.
WHEN OTHERS.
ROLLBACK WORK."回滚客制化表的表处理提交
WRITE:/ l_msgtx. " 错误提示
ENDCASE.

ENDFORM. "deal_data

注：如有疏漏之处，还请不吝赐教！

作者：rztyzxzy
来源：CSDN
原文：https://blog.csdn.net/rztyzxzy/article/details/46458131
版权声明：本文为博主原创文章，转载请附上博文链接！