DATA: LENGTH TYPE I VALUE 0,
STRL TYPE I VALUE 0,
STRING(30) TYPE C VALUE 'Test String'.
STRL = STRLEN( STRING ).
WHILE STRING NE SPACE.
WRITE STRING(1).
LENGTH = SY-INDEX.
SHIFT STRING.
ENDWHILE.
WRITE: / 'STRLEN: ', STRL.
WRITE: / 'Length of string:', LENGTH.
阅读(217) | 评论(0) | 转发(0) |