/* 
Subject: Re: determine if a character is alpha or numeric
         Date: Mon, 13 Aug 2001 20:30:55 +0100
        From: "Shaun Roach" <shaun.roach@ntlworld.com>
  Newsgroups: comp.databases.progress
*/

Function IsNumber Returns Logical ( lsVal As Char ):

  Def Var liNum As Int No-undo.

  Assign
    liNum = Decimal( lsVal ) No-error.

  Return Not Error-status:Error.

End Function.

/* Scott Auge */

FUNCTION IsAlpha RETURNS LOGICAL (IsVal AS CHARACTER):

  RETURN NOT IsNumber (IsVal).

END. /* FUNCTION IsAlpha () */