home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / comp / lang / rexx / 1449 < prev    next >
Encoding:
Text File  |  1993-01-03  |  1.6 KB  |  43 lines
  1. Newsgroups: comp.lang.rexx
  2. Path: sparky!uunet!ftpbox!news
  3. From: acus02@ems13.corp.mot.com (David McAnally)
  4. Subject: re: Lower-case alphabetic set
  5. Message-ID: <1993Jan4.022708.2922@ftpbox.mot.com>
  6. Sender: news@ftpbox.mot.com (C News)
  7. Reply-To: acus02@email.mot.com
  8. Organization: Motorola, Inc.
  9. References: <REXXLIST%93010320580660@OHSTVMA.ACS.OHIO-STATE.EDU>
  10. Date: Mon, 4 Jan 1993 02:27:08 GMT
  11. Lines: 30
  12.  
  13. In article <REXXLIST%93010320580660@OHSTVMA.ACS.OHIO-STATE.EDU>  writes:
  14. > Hello netters!
  15. > 
  16. > I found that, there's a function to translate all words to upper case
  17. > but I could'nt find in HELP REXX to form the words from upper case to
  18. > lower case by using a function. Could anyone help me to solve this
  19. > problem?
  20. > 
  21. > Thanks in advance.
  22. > 
  23. > -WAN-
  24.  
  25. Although there isn't a specific "lower" case translation function, you can  
  26. create one, or do the same thing using the "translate()" function. Create a  
  27. procedure or subroutine function something like the following. (my editor  
  28. probably wraps the long line, but you get the idea)
  29.  
  30. /* lower case REXX function (opposite of UPPER function) */
  31. parse arg instring
  32. return  
  33. TRANSLATE(instring,'abcdefghijklmnopqrstuvwxyz','ABCDEFGHIJKLMNOPQRSTUVWXYZ' 
  34. )
  35.  
  36. --
  37. +-------------------------------------------------------------------------+
  38. | David McAnally                     | EMail: acus02@waccvm.corp.mot.com  |
  39. | Motorola Corp. Computer Services   |  Next: acus02@ems13.corp.mot.com   |
  40. | CS / Application Engineering       |                                    |
  41. | M/D AZ49 R3148                     |                                    |
  42. +-------------------------------------------------------------------------+
  43.