ABAP 新语法segment 的使用示例

DATA(lv_str)  = 'A1/A2/A3/A4/A5/A6'.
DATA(lv_str1) = 'A4'.




DO.
  TRY.
      DATA(lv_index) = segment( val = lv_str index = sy-index sep = '/'  ).
    CATCH cx_sy_strg_par_val.
      EXIT.
  ENDTRY.
  WRITE lv_index.
  IF lv_str1 = lv_index .
    DATA(lv_flag) = abap_true.
    EXIT.
  ENDIF.

ENDDO.

WRITE lv_flag.