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

how to change '06-DEC-06 : Sites Converted From 005 To 001' to '06-Dec-06'

30 Views

hi all i have one requirement.

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 output is coming like '06-dec-06 : Sites Converted From 005 To 001' but my requirement is '06-Dec-06 : Sites Converted From 005 To 001'

second text is As Country Has Move Off EST "RED" List

my requirement is As Country Has Move Off EST "RED" List