FIND函数的用法。关于字串查询一个DEMO

DATA: patt TYPE string VALUE `nows`,"要查找的字串，需要出

      text TYPE string VALUE 'Everybody knows this is nowhere nows',"被查找的字串，需要初始化

      off  TYPE i,"从第几个位置开始找，需要初始化 一般为0

      moff TYPE i,"找到后输出位置，系统自动处理，为输出结果

      mlen TYPE i."查找字串的长度，自动处理一般是要查找字串的长度

off = 0.

WHILE sy-subrc = 0.

*  WRITE / sy-subrc.

*  WRITE / mlen.

  FIND patt IN SECTION OFFSET off OF text MATCH OFFSET moff

       MATCH LENGTH mlen.

  IF sy-subrc = 0.

    WRITE / moff.

    off = moff + mlen.

  ENDIF.

ENDWHILE.

*WRITE / sy-subrc.