home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #1 / NN_1993_1.iso / spool / comp / lang / rexx / 1451 < prev    next >
Encoding:
Internet Message Format  |  1993-01-04  |  1.0 KB
  1. Path: sparky!uunet!zaphod.mps.ohio-state.edu!darwin.sura.net!sgiblab!munnari.oz.au!uniwa!DIALix!acix!johnv
  2. From: johnv@acix.DIALix.oz.au (John Verhoeven)
  3. Subject: Re: Lower-case alphabetic set
  4. Newsgroups: comp.lang.rexx
  5. References: <1993Jan4.022708.2922@ftpbox.mot.com>
  6. X-Newsreader: TIN [version 1.1 PL8]
  7. Message-ID: <johnv.040n@acix.DIALix.oz.au>
  8. Date: 4 Jan 93 21:25:16 WST
  9. Organization: ACix - Private UUCP Node, Cloverdale, Western Australia.
  10. Lines: 17
  11.  
  12. David McAnally (acus02@ems13.corp.mot.com) wrote:
  13. > In article <REXXLIST%93010320580660@OHSTVMA.ACS.OHIO-STATE.EDU>  writes:
  14. > > I found that, there's a function to translate all words to upper case
  15. > > but I could'nt find in HELP REXX to form the words from upper case to
  16. > > lower case by using a function. Could anyone help me to solve this
  17. > > problem?
  18.  
  19. > /* lower case REXX function (opposite of UPPER function) */
  20. > parse arg instring
  21. > return  
  22. > TRANSLATE(instring,'abcdefghijklmnopqrstuvwxyz','ABCDEFGHIJKLMNOPQRSTUVWXYZ' 
  23. > )
  24.  
  25. Or slightly shorter...
  26.  
  27. TRANSLATE(instring,XRANGE('a','z'),XRANGE('A','Z'))
  28.  
  29.