使用ABAP 7.40引入的table表达式来操作内表

REPORT ZNGAP.
TYPES:
   BEGIN OF struc,
      col1 TYPE c LENGTH 2,
      col2 TYPE i,
      col3 TYPE i,
   END OF struc.

DATA itab TYPE SORTED TABLE OF struc WITH UNIQUE KEY col1
          WITH UNIQUE SORTED KEY sec_key COMPONENTS col2.

itab = VALUE #( ( col1 = 'AA' col2 = 5 col3 = 100 )
                ( col1 = 'BB' col2 = 4 col3 = 100 )
                ( col1 = 'CC' col2 = 3 col3 = 100 )
                ( col1 = 'DD' col2 = 2 col3 = 100 )
                ( col1 = 'EE' col2 = 1 col3 = 100 ) ).

DATA(wa) = itab[ 1 ].

ASSIGN itab[ col1 = 'BB' ] TO FIELD-SYMBOL(<fs>).

cl_demo_output=>display( itab[ 3 ] ).

IF line_exists( itab[ KEY sec_key col2 = 2 ] ).
ENDIF.

DATA(line) = itab[ KEY sec_key col2 = 4 ].

TRY.
DATA(not) = itab[ KEY sec_key col2 = 333 ].
CATCH cx_root.
ENDTRY.

itab[ col1 = 'EE' ]-col3 = 555.

要获取更多Jerry的原创文章,请关注公众号"汪子熙":

发布了6288 篇原创文章 · 获赞 617 · 访问量 98万+

猜你喜欢

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