下面介绍一个取得字符串最后一位的方法,直接上代码:
1
2
3
4
5
6
7
8
9
10
11
|
REPORT ztest_shift.
DATA:l_number(10) TYPE c VALUE '12345678F',
l_len TYPE i,
l_off TYPE i,
l_ret(10) TYPE c.
l
_len = strlen( l_number ).
l
_len = l_len - 1.
l
_ret = l_number+l_len(1).
WRITE:l_number, / l_ret.
|
运行后: