home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
xbase
/
library
/
clipper
/
keyboard
/
caps
/
ischar.prg
< prev
Wrap
Text File
|
1986-03-12
|
432b
|
19 lines
**********************************
* Function.....: Ischar()
* Author.......: Dennis L. Dias
* Source ID....: NAN449
* Date.........: 12/14/85
*
* Syntax: ISCHAR( <expC> )
* Return: Logical true if the first character in <expC> is alpha
* or STR() or an apostrophe (')
*
FUNCTION ISCHAR
*
PARAMETERS fl_string
*
RETURN(UPPER(SUBSTR(fl_string,1,1)) ;
$ "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'")
*