&---------------------------------------------------------------------*
*& Report ZTEST005
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZTEST005 .
DATA str ( 20 ) TYPE c .
str = 'hello world' .
SEARCH str FOR 'lo' .
IF sy - subrc = 0 .
WRITE : sy - fdpos . "查找内容第一次出现的位置.
ENDIF .
*& Report ZTEST005
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZTEST005 .
DATA str ( 20 ) TYPE c .
str = 'hello world' .
SEARCH str FOR 'lo' .
IF sy - subrc = 0 .
WRITE : sy - fdpos . "查找内容第一次出现的位置.
ENDIF .