ABAP function module to check data is a valid number

Question

Hi Guys,
I am parsing a long string from a R3 table to load into BW, and need to verify the incoming data is valid number instead of having some or all charactors so I can load into a quantity field, in BW, it is a Key figure infoObject. The string length is 14.
For example, if data is 123.34, then the number is valid. If data is 1A23, then it is not valid number.
Thanks in advance.
JA

Answer 1

Hi,
SAP provides the function BUS_NUMBERFIELD_PAI,
You pass in a table/field reference that matches the number you want to match to say GLT0-TSLVT (len 15 dec 2) and the string.
It tells you if the number is valid and will even return a reformatted string.
I.E.
123456,78 is valid and formatted as 123,456.99
123,,456.78 raises AMOUNT_NOT_ALLOWED
123.456 raises INTERNAL_ERROR as there are too many decimals
Hope that helps.
FUNCTION BUS_NUMBERFIELD_PAI .
*"  IMPORTING
*"     VALUE(I_TABNAME) LIKE  DD03L-TABNAME (Ex
*"     VALUE(I_FIELDNAME) LIKE  DD03L-FIELDNAME
*"     VALUE(I_CURRENCY) LIKE  TCURC-WAERS OPTIONAL
*"  EXPORTING
*"     VALUE(E_VALUE_DB)
*"  CHANGING
*"     VALUE(C_VALUE_DYNP)
*"  EXCEPTIONS
*"      NUMBER_NOT_ALLOWED
*"      AMOUNT_NOT_ALLOWED
*"      INTERNAL_ERROR