A continuación se describe un método para obtener la última cadena directamente en el código:
|
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.
|
Después de ejecutar:
