Skip to Content
0
Former Member
Dec 07, 2006 at 07:41 AM

how to change text 06-DEC-06 : SITES CONVERTED FROM 005 TO 001' to '06-Dec

27 Views

Parameter : p_text1(80) type c value ‘06-DEC-06 : Sites Converted From 005 To 001’,

P_text2(80) type c value ‘As Country Has Move Off EST "RED" List’.

Using below logic

AT SELECTION-SCREEN.

TRANSLATE P_TEXT1+1(69) TO LOWER CASE.

TRANSLATE P_TEXT2+1(69) TO LOWER CASE.

TRANSLATE P_TEXT3+1(69) TO LOWER CASE.

DATA : CTR TYPE I.

DATA : L TYPE I.

DATA : POS TYPE I.

DATA : POSB TYPE I.

L = STRLEN( P_TEXT1 ).

DO L TIMES.

POS = SY-INDEX.

POSB = SY-INDEX - 1.

CHECK POS >= 2.

IF NOT P_TEXT1POS(1) IS INITIAL AND P_TEXT1POSB(1) IS INITIAL.

TRANSLATE P_TEXT1+POS(1) TO UPPER CASE.

ELSEIF NOT P_TEXT2POS(1) IS INITIAL AND P_TEXT2POSB(1) IS INITIAL.

TRANSLATE P_TEXT2+POS(1) TO UPPER CASE.

ELSEIF NOT P_TEXT3POS(1) IS INITIAL AND P_TEXT3POSB(1) IS INITIAL.

TRANSLATE P_TEXT3+POS(1) TO UPPER CASE.

ENDIF.

ENDDO.

when i ran this report with following text 06-DEC-06 : SITES CONVERTED FROM 005 TO 001 it has to give output like 06-Ded-06 : Sites Converted From 005 To 001

and when i ran this reoirt with text AS COUNTRY HAS MOVE OFF EST "RED" LIST it has to give As Country Has Move EST "RED" List

any body can send me the sample cod eplz..

thanks

maheedhar.t