ZBlog学习笔记

DATA:l_str  TYPE string VALUE '好像不能从后面截取',
     l_len  TYPE string,
     l_len2 TYPE string.
DATA:lv_i TYPE i.
DATA:lv_j TYPE i.

CHECK l_str IS NOT INITIAL.
lv_i = strlen( l_str ).
DO lv_i TIMES.
  CONCATENATE l_str+lv_j(1) l_len INTO l_len.
  lv_j = lv_j + 1.
ENDDO.


IF lv_i GT 25.
  l_len = l_len+0(25).
ELSE.
  l_len = l_len+0(lv_i).
ENDIF.
CLEAR lv_j.
lv_i = strlen( l_len ).
DO lv_i TIMES.
  CONCATENATE l_len+lv_j(1) l_len2 INTO l_len2.
  lv_j = lv_j + 1.
ENDDO.

WRITE:l_len2.