Duvida Tipo de caracter em uma variável char

Só em VB.NET existe uma função isNumeric, mas no Progress, faz isso aqui:

Código:

DEF VAR texto AS CHAR INIT "ABC123DEF".
DEF VAR numero AS DECIMAL.
DEF VAR xi AS INTEGER.

DO xi = 1 TO LENGTH(texto).
   numero = INTEGER(SUBSTRING(texto,xi,1)) NO-ERROR.
   IF ERROR-STATUS:ERROR THEN DO:
      MESSAGE SUBSTRING(texto,xi,1) SKIP "Não é Número!"
              VIEW-AS ALERT-BOX INFO BUTTONS OK.
   END.
   ELSE DO:
      MESSAGE SUBSTRING(texto,xi,1) SKIP "É Número!"
              VIEW-AS ALERT-BOX INFO BUTTONS OK.
   END.
END.

if substring(campo,1,1) >= '0' and substring(campo,1,1) <= '9'