home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Database / CLIPR503.W96 / LENNUM.PR_ / LENNUM.PR
Text File  |  1995-06-20  |  318b  |  23 lines
  1. /***
  2. *
  3. *  Lennum.prg
  4. *
  5. *  Summer '87 LENNUM() Compatibility Routine
  6. *
  7. *  Copyright (c) 1993, Computer Associates International Inc.
  8. *  All rights reserved.
  9. *
  10. */
  11.  
  12.  
  13. /***
  14. *
  15. *    LENNUM( <nNum> )
  16. *
  17. *    Return the string length of <nNum>
  18. *
  19. */
  20. FUNCTION LENNUM(cl_number)
  21.     RETURN LEN(LTRIM(STR(cl_number)))
  22.  
  23.