DATA: STR(20),STR2(20),N.
STR = ‘ abcade*’.
WRITE STR.
IF SUBSTRING( VAL = STR OFF = STRLEN( STR ) – 1 LEN = 1 ) = ‘*’.
STR = SUBSTRING( VAL = STR LEN = STRLEN( STR ) – 1 ) .
ENDIF.
WRITE / STR.
此程序是出自abap 老白，此处只为记录下来备用，
这个程序在ehp7可以编译通过，在ecc6 环境下可能会有编译错误
DATA v_res TYPE string.
v_res = shift_right( val = str places = 0 ).
WRITE : v_res.
v_res = shift_right( val = str sub = |*| ).
无须判断
