Como Validar que un dato sea numerico

[jtristan]

Pensando en como saber si un valor es numérico también se me ha ocurrido esta idea. Es un poco rara pero parece que va. Sería dividir todos los valores entre uno y aquel que no sea numérico nos lanzará una excepción CX_SY_CONVERSION_NO_NUMBER que podemos capturar.

data: numero type i value 15,
caracter(4) type c value 'a23',
decimal(10) type p DECIMALS 2 value '15.25',
valor(10) type p decimals 2.



try.
valor = numero / 1.
valor = decimal / 1.
valor = caracter / 1.
catch CX_SY_CONVERSION_NO_NUMBER.
write 'no es numerico'.
endtry.