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

Question

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

Answer 1

Hi maheedhar.t,
Would it be ok if you just change your parameters like this so that there is no longer a need to TRANSLATE the value?
SELECTION-SCREEN BEGIN OF BLOCK A.
Parameter: p_text1 TYPE rlgrap-filename DEFAULT '06-DEC-06:Sites Converted From005 To 001'.
Parameter: p_text2 type rlgrap-filename DEFAULT 'As Country Has Move Off EST "RED" List'.
SELECTION-SCREEN END OF BLOCK A.
If your parameters are like this it will not be translated to ALL-CAPS in the first place.
Hope this gives you an idea.