String islemleri

*ITAB da aradığımız string var mı ?
DATA TEXT(100) VALUE 'Texas California New Mexico Louisiana Oregon'.

SEARCH TEXT FOR 'California'.
IF SY-SUBRC NE 0.
WRITE 'Not found'.
ENDIF.

SEARCH TEXT FOR 'cAliforniA'.
IF SY-SUBRC NE 0.
WRITE 'Not found'.
ENDIF.

SEARCH TEXT FOR 'New M'.
IF SY-SUBRC NE 0.
WRITE 'Not found'.
ENDIF.


* Replacing & translating .

DATA: STRING(80),EXPRESSION(30).
STRING = 'Variable: &. The variable & is substituted later.'.
REPLACE '&' WITH 'X' INTO STRING.
WRITE / STRING.
TRANSLATE STRING USING '&X'.
WRITE / STRING.EXPRESSION = 'a ** 2 + b ** 2 = c ** 2'.
TRANSLATE EXPRESSION USING 'axbycz'.
WRITE / EXPRESSION.
REPLACE ',' WITH '' INTO lv_degisken.
REPLACE ALL OCCURRENCES OF ',' IN lv_degisken WITH ''.

*Boşlukları silerek shift işlemi

NAMES = 'Joanne___'.
SHIFT NAMES RIGHT DELETING TRAILING SPACE.
WRITE / NAMES.