martes, 5 de febrero de 2013

2 last characters of a string

DATA: int TYPE I, PEP TYPE C,
AUX_PEP TYPE /BI0/OIWBS_ELEMT.



CLEAR: INT, AUX_PEP.
PEP = COMM_STRUCTURE-WBS_ELEMT.
DESCRIBE FIELD PEp LENGTH INT IN CHARACTER MODE.
INT = INT - 2.
* result value of the routine
AUX_PEP = COMM_STRUCTURE-WBS_ELEMT+INT(2).
IF AUX_PEP ca SY-ABCDE.
RESULT = AUX_PEP.
ELSE.
RESULT = 99.
ENDIF.

No hay comentarios: