ABAP NUMERIC CHECK WITH DECIMAL

*-ABAP NUMERIC CHECK WITH DECIMAL
*-ABAP 数値チェック（小数）
REPORT YZEROCHO00.

DATA: W(13) VALUE '1234.345'.

DATA: TEMP(13).
DATA: I TYPE I.

TEMP = W.
REPLACE ALL OCCURRENCES OF '.' IN TEMP WITH ''.
I = STRLEN( W ) - STRLEN( TEMP ).
IF W CO '0123456789. ' AND I <= 1.
WRITE :/ 'A NUMBER:'.
WRITE W.
ELSE.
WRITE :/ 'NOT A NUMBER:'.
WRITE W.
ENDIF.

W = '1.2.34....'.
TEMP = W.
REPLACE ALL OCCURRENCES OF '.' IN TEMP WITH ''.
I = STRLEN( W ) - STRLEN( TEMP ).
IF W CO '0123456789. ' AND I <= 1.
WRITE :/ 'A NUMBER:'.
WRITE W.
ELSE.
WRITE :/ 'NOT A NUMBER:'.
WRITE W.
ENDIF.

*NOTE: '0123456789. '(THERE IS A SPACE AFTER .DOT)
*-----RESULT-----
*A NUMBER: 1234.345
*NOT A NUMBER: 1.2.34....


*http://enta2008.blogspot.com/2010/08/abap-numeric-checknuber-check.html