**********************************************************************
* FORM : remove_comma
* Created : 13.09.2011 18:33:22
**********************************************************************
FORM REMOVE_COMMA CHANGING $FIELD.
DATA : WA_INDEX(02) TYPE I.
DATA : F3(10) TYPE C.
F3 = $FIELD.
DO 10 TIMES.
IF F3+WA_INDEX(01) EQ ','.
F3+WA_INDEX(01) = ''.
ENDIF.
ADD 1 TO WA_INDEX.
ENDDO.
CONDENSE F3 NO-GAPS.
$FIELD = F3.
ENDFORM. " remove_comma
**********************************************************************
* FORM : remove_fullstop
* Created : 13.09.2011 18:33:22
**********************************************************************
FORM REMOVE_FULLSTOP CHANGING $FIELD.
DATA : WA_INDEX(02) TYPE I.
DATA : F3(10) TYPE C.
F3 = $FIELD.
DO 10 TIMES.
IF F3+WA_INDEX(01) EQ '.'.
F3+WA_INDEX(01) = ''.
ENDIF.
ADD 1 TO WA_INDEX.
ENDDO.
CONDENSE F3 NO-GAPS.
$FIELD = F3.
ENDFORM. " remove_fullstop
Post a Comment