如何使用ABAP 7.40新的关键字FOR IN WHERE组合创建ABAP内表的过滤表

REPORT ZNEWABAP1.
 TYPES:
      BEGIN OF line1,
        col1 TYPE i,
        col2 TYPE i,
        col3 TYPE i,
        col4 TYPE i,
      END OF line1,
      itab1 TYPE TABLE OF line1 WITH EMPTY KEY
                                WITH UNIQUE SORTED KEY
                                     key COMPONENTS col1,
      BEGIN OF line2,
        col1 TYPE i,
        col2 TYPE i,
      END OF line2,
      itab2 TYPE TABLE OF line1 WITH EMPTY KEY,
      itab3 TYPE TABLE OF line2 WITH EMPTY KEY,
      itab4 TYPE TABLE OF i     WITH EMPTY KEY.

    DATA(out) = cl_demo_output=>new( ).

    DATA(itab1) = VALUE itab1(
      ( col1 = 41 col2 = 42 col3 = 43 col4 = 44 )
      ( col1 = 31 col2 = 32 col3 = 33 col4 = 34 )
      ( col1 = 21 col2 = 22 col3 = 23 col4 = 24 )
      ( col1 = 11 col2 = 12 col3 = 13 col4 = 14 ) ).
    "out->write( itab1 ).

    DATA(itab2) = VALUE itab2(
      FOR wa IN itab1 WHERE ( col1 < 30 )
        ( col1 = wa-col1
          col3 = wa-col3 + wa-col1
          ) ).
    BREAK-POINT.
    ```

要获取更多Jerry的原创文章,请关注公众号"汪子熙":
![](https://imgconvert.csdnimg.cn/aHR0cHM6Ly91cGxvYWQtaW1hZ2VzLmppYW5zaHUuaW8vdXBsb2FkX2ltYWdlcy8yMDg1NzkxLWZjN2VjZDk3ZGViNjcwOTAucG5n?x-oss-process=image/format,png)
发布了6327 篇原创文章 · 获赞 617 · 访问量 99万+

猜你喜欢

转载自blog.csdn.net/i042416/article/details/103967069