2010/08/25

ABAP TRANSLATE USING

*-ABAP TRANSLATE USING
REPORT YZEROCHO00.

DATA: W(13) VALUE '12;34;56;AB;CD'.


WRITE:/ 'Before TRANSLATE:'. WRITE W.

TRANSLATE W USING ';,'. "Translate ; to ,

WRITE:/ 'After TRANSLATE:'. WRITE W.

DATA: TEXT TYPE STRING.
TEXT = 'Abcdefg'.
WRITE:/ 'Before TRANSLATE:'. WRITE TEXT.

* Translate A to 1 ,b to 2, c to 3 .....
TRANSLATE TEXT USING 'A1b2c3d4e5f7g7'.

WRITE:/ 'After TRANSLATE:'. WRITE TEXT.

*----RESULT------
*Before TRANSLATE: 12;34;56;AB;C
*After TRANSLATE: 12,34,56,AB,C
*Before TRANSLATE: Abcdefg
*After TRANSLATE: 1234577

2 comments: