ABAP FIND关键字

ag • 2020.05.06 23:08 • 文章 • 阅读 1269

程序来源于FAGL_LINE_ITEM_BROWSER / RKESS_FORMS，FIND关键字用于判断指定字符在变量中是否存在，若存在则subrc返回0.

FORM SS_SO_TO_SEL
  USING
    I_FIELDNAME   TYPE RSSCR_DBFI
    IT_SO         TYPE ANY TABLE.

  DATA: S_TRANGE  TYPE RSDS_RANGE,
        TABIX     LIKE SY-TABIX VALUE 0.

  FIND '-' IN I_FIELDNAME.
  IF SY-SUBRC = 0.
    SPLIT I_FIELDNAME AT '-' INTO SS_TABLENAME SS_FIELDNAME.
  ELSE.
    SS_FIELDNAME = I_FIELDNAME.
  ENDIF.

  CHECK SS_FIELDNAME IS NOT INITIAL.

  READ TABLE SS_GR_INT->T_TRANGE INTO S_TRANGE
    WITH KEY TABLENAME = SS_TABLENAME.

  IF SY-SUBRC = 0.
    TABIX = SY-TABIX.
  ELSE.
    S_TRANGE-TABLENAME = SS_TABLENAME.
  ENDIF.

  CL_KESS_FREE_SELECTION_INT=>CONVERT_RANGE_TO_SELTAB(
    EXPORTING
      I_FIELDNAME = SS_FIELDNAME
      IT_TABLE    = IT_SO
    CHANGING
      XT_SELTAB = S_TRANGE-FRANGE_T ).

  IF TABIX = 0.
    APPEND S_TRANGE TO SS_GR_INT->T_TRANGE.
  ELSE.
    MODIFY SS_GR_INT->T_TRANGE FROM S_TRANGE INDEX TABIX.
  ENDIF.

ENDFORM.