home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / VOL8N11.ZIP / MAIN.PRG < prev    next >
Text File  |  1989-05-05  |  395b  |  22 lines
  1.  
  2. * Program MAIN.PRG
  3.     .
  4.     .
  5.     .
  6. * Function ALLTRIM() is user-defined
  7. SCAN
  8. lc_pict = lc_pict + ALLTRIM(LASTNAME) + ','
  9. ENDSCAN
  10.     .
  11.     .
  12.     .
  13. * EOP: MAIN.PRG
  14. * Function ALLTRIM() is a user-defined function
  15. * It removes leading and trailing blanks
  16. FUNCTION ALLTRIM
  17. PARAMETERS lc_string
  18. PRIVATE lc_string
  19. lc_string = LTRIM(RTRIM(lc_string))
  20. RETURN(lc_string)
  21. * EOF: FUNCTION ALLTRIM()
  22.