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 = |*| ).
无须判断
声明：本站所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。
