在internal table中把相邻的两行组织成一行

最新推荐文章于 2022-06-11 14:46:39 发布

lvzhqi

最新推荐文章于 2022-06-11 14:46:39 发布

阅读量989

点赞数

分类专栏： abap sample code 文章标签： table 测试

本文链接：https://blog.youkuaiyun.com/lvzhqi/article/details/4410585

版权

abap sample code 专栏收录该内容

0 篇文章

订阅专栏

REPORT  ZTESTINTERNALTABLE.
TYPES: BEGIN OF ts_table,
         matnr TYPE matnr,
         lgort TYPE lgort_d,
       END OF ts_table,
       BEGIN OF ts_table2,
         matnr TYPE matnr,
         f_lgort TYPE lgort_d,
         t_lgort TYPE  lgort_d,
       END OF ts_table2.
DATA: wa_table TYPE ts_table,
      wa_table2 TYPE ts_table2,
      it_table TYPE TABLE OF ts_table,
      it_table2 TYPE TABLE OF ts_table2.
DATA: v_len TYPE i.

*组织测试数据
DO 6 TIMES.
  wa_table-matnr = 'AAA'.
  wa_table-lgort = sy-index.
  APPEND wa_table TO it_table.
ENDDO.
DO.
  v_len = lines( it_table ).
  IF v_len = 0. “如果internal table中没有数据退出循环
    EXIT.
  ENDIF.
  CLEAR wa_table.

*将前两条数据放到一条记录中
  READ TABLE it_table INTO wa_table INDEX 1.
  wa_table2-matnr = wa_table-matnr.
  wa_table2-f_lgort = wa_table-lgort.
  READ TABLE it_table INTO wa_table INDEX 2.
  wa_table2-t_lgort = wa_table-lgort.
  APPEND wa_table2 TO it_table2.