home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / firstcap.zip / ISCHAR.PRG < prev   
Text File  |  1986-03-12  |  432b  |  19 lines
  1.  
  2. **********************************
  3. *  Function.....: Ischar()
  4. *  Author.......: Dennis L. Dias
  5. *  Source ID....: NAN449
  6. *  Date.........: 12/14/85
  7. *
  8. *  Syntax: ISCHAR( <expC> )
  9. *  Return: Logical true if the first character in <expC> is alpha
  10. *          or STR() or an apostrophe (')
  11. *
  12. FUNCTION ISCHAR
  13. *
  14. PARAMETERS fl_string
  15. *
  16. RETURN(UPPER(SUBSTR(fl_string,1,1)) ;
  17.    $ "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'")
  18. *
  19.