Validation of a quantity Field gives a run time dump

Question

I have an upload file which provide me with a quantity input field which i needs to validate for non characters and special characters.
I have used a code which does a validation for the character or special character entry in the field but i am not able to check for '.' in the entry.
the problem is if the user by mistake enters two decimal point which should only be one; the program goes for a dump.
the below given code is what i have used for validation of the quantity field.
  IF NOT wa_final-actual_quan IS INITIAL.
    MOVE wa_final-actual_quan TO l_fld_quantity.
    TRANSLATE l_fld_quantity TO UPPER CASE.
    IF l_fld_quantity CA sy-abcde OR
                      l_fld_quantity CA '!~@#$%^&*"?><`|}{[]()+-='.
     *giving an error message
      v_flag1 = c_x.
    ELSE.
      CLEAR: l_fld_quantity1,l_fld_quantity2.
      SPLIT l_fld_quantity AT '.' INTO
                                  l_fld_quantity1 l_fld_quantity2.
      CONDENSE l_fld_quantity1.
      l_len = strlen( l_fld_quantity1 ) .
      IF l_len LE 10.
        IF NOT l_fld_quantity2 IS INITIAL.
          l_len1 = strlen( l_fld_quantity2 ).
          IF l_len1 LT 2.
          CONCATENATE l_fld_quantity2 '0' INTO l_fld_quantity2.
          ENDIF.
          CONCATENATE l_fld_quantity1 '.'  l_fld_quantity2(2)
                                      INTO l_fld_quantity3.
          CONDENSE l_fld_quantity3.
        ELSE.
          CONCATENATE l_fld_quantity1 '.' '00'
                                      INTO l_fld_quantity3.
        ENDIF.
        wa_zphyin-acqty = l_fld_quantity3.
the requirement is that if the user enters the input for quantity it should only accept one decimal place in the field and if by mistake he enters 2 decimal points it should give an error stating :- invalid input for quantity.
experts please guide as to how i can overcome the problem.
helpfull amswers will be rewarded.

Answer 1

Use try..catch..endtry block to handle the error.
REPORT  Z_TEST2.
data: l_num type p decimals 2.
parameter: p_value type char10.
start-of-selection.
try.
l_num = p_value.
catch cx_root.
write: 'Not numeric'.
exit.
endtry.
write: 'Numeric'.
Regards,
Joy