home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #1 / NN_1993_1.iso / spool / comp / lang / rexx / 1459 < prev    next >
Encoding:
Text File  |  1993-01-06  |  1.1 KB  |  37 lines
  1. Newsgroups: comp.lang.rexx
  2. Path: sparky!uunet!cs.utexas.edu!zaphod.mps.ohio-state.edu!swrinde!elroy.jpl.nasa.gov!ames!agate!dog.ee.lbl.gov!hellgate.utah.edu!csn!stortek!LSTC2VM.stortek.com!MCMASTER
  3. From: MCMASTER@LSTC2VM.stortek.com (Jim McMaster)
  4. Subject: Re: Lower-case alphabetic set
  5. Message-ID: <16B4E7F50.MCMASTER@LSTC2VM.stortek.com>
  6. Sender: usenet@stortek.com
  7. Nntp-Posting-Host: lstc2vm.stortek.com
  8. Organization: StorageTek SW Engineering
  9. References:  <1993Jan5.064658.4491@schbbs.mot.com>
  10. Date: Wed, 6 Jan 1993 16:03:11 GMT
  11. Lines: 24
  12.  
  13. In article <1993Jan5.064658.4491@schbbs.mot.com>
  14. TCSAR03@waccvm.corp.mot.com (Germain Leutwyler) writes:
  15.  
  16. >Hi,
  17. >
  18. >Here is another routine to translate each letter from uppercase to
  19. >lowercase. You may specify the characters that shouldn'tbe converted
  20. >in the verify function.
  21. >
  22. >Best regards,
  23. >Germain Leutwyler
  24. >
  25. >/* TRANSLATION OF CERTAIN CHARACTERS WITHIN STRING "ST" TO LOWERCASE */
  26. >ST=''
  27. >do P=1 to length(ST)
  28. > C=substr(ST,P,1)
  29. > if verify(C,'?!0123456789')/=0 then C=bitxor(C,' ')
  30. > ST=ST||C
  31. >end
  32.  
  33. This works, but only for EBCDIC, and is much slower than the built-in
  34. translate function.
  35.  
  36. Jim McMaster
  37.