技术开发 频道

ABAP性能实例七例

    12. Array Operations

    12.1. Appending tables

    使用"APPEND LINES OF itab1 TO itab2" 将itab1的所有行添加到内表itab2。

    LOOP AT ITAB1 INTO WA.

      APPEND WA TO ITAB2.

    ENDLOOP.
    

    APPEND LINES OF ITAB1 TO ITAB2.

    12.2.Inserting tables

    使用"INSERT LINES OF itab1 INTO itab2 INDEX idx" 语句将内表itab1从内表itab2的索引idx处插入。
    I = 250.

    LOOP AT ITAB1 INTO WA.

      INSERT WA INTO ITAB2 INDEX I.

      ADD 1 TO I.

    ENDLOOP.
   

    I = 250.

    INSERT LINES OF ITAB1 INTO ITAB2

                          INDEX I.

    12.3.Deleting duplicates(删除内表中重复的记录)

    使用 "DELETE ADJACENT DUPLICATES" 语句删除重复记录。

    READ TABLE ITAB INDEX 1 INTO PREV_LINE.

    LOOP AT ITAB FROM 2 INTO WA.

      IF WA = PREV_LINE.

        DELETE ITAB.

      ELSE.

        PREV_LINE = WA.

      ENDIF.

    ENDLOOP.
    

    DELETE ADJACENT DUPLICATES FROM ITAB

                    COMPARING K.

0
相关文章