ABAP 新特性 - 内表操作:LINES/LINE_EXISTS/LINE_INDEX

论坛 期权论坛 期权     
匿名技术用户   2020-12-29 23:20   9948   0

LINES

SELECT carrid 
       FROM scarr 
       INTO TABLE @DATA(lt_tab). 

OLD:
DESCRIBE TABLE lt_tab LINES DATA(LV_TABIX).

NEW:
DATA(LV_TABIX) = LINES( lt_tab ).

LINE_EXISTS

SELECT * 
       FROM spfli 
       INTO TABLE @flight_tab. 

IF line_exists( flight_tab[ carrid = 'XM' 
                            connid = '6688' ] ). 
  "ACTION
ENDIF. 

LINE_INDEX

OLD:
READ TABLE flight_tab TRANSPORTING NO FIELDS WITH KEY carrid = 'XX'
                                                       connid = '88'.
IF sy-subrc = 0.
  WRITE: sy-tabix. "index
ENDIF.

NEW:
DATA(indx) = line_index( flight_tab[ carrid = 'XX'
                                      connid = '88'] ).
WRITE: indx.

分享到 :
0 人收藏
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

积分:7942463
帖子:1588486
精华:0
期权论坛 期权论坛
发布
内容

下载期权论坛手机APP