Função para validar se a string possui somente números.

FUNCTION numeros RETURN LOGICAL (INPUT texto AS CHARACTER):
DEFINE VARIABLE loop AS INTEGER NO-UNDO.
DO loop = 1 TO LENGTH(texto):
IF INDEX(“0123456789.,”:U,SUBSTRING(texto,loop,1)) = 0 THEN
RETURN NO.
END.
RETURN YES.
END.

flw