| View previous topic :: View next topic |
| Author |
Message |
Mike Nitz Beginner

Joined: 09 Jun 2005 Posts: 19 Topics: 12 Location: Kansas City, MO
|
Posted: Thu Feb 15, 2007 11:00 am Post subject: Translating to lowercase |
|
|
Does anyone know of a way to translate UPPERCASE data to lowercase?
I've looked through the TSO manuals & did a search on this site & have found nothing documenting if it is possible to do this. |
|
| Back to top |
|
 |
kolusu Site Admin

Joined: 26 Nov 2002 Posts: 12394 Topics: 75 Location: San Jose
|
|
| Back to top |
|
 |
Mike Nitz Beginner

Joined: 09 Jun 2005 Posts: 19 Topics: 12 Location: Kansas City, MO
|
Posted: Thu Feb 15, 2007 11:58 am Post subject: |
|
|
Kolusu,
I've looked at the manual & either the TRANSLATE command won't do
what I want it to do or I'm reading it wrong. I want to translate
variable UIDN with a value of XXXX to variable UIDN with a value of
xxxx. With the little bit of testing that I've done, it appears that the
TRANSLATE command will not translate from UPPERCASE to lowercase.
So again I ask the question, does anyone know of a way to do this?? |
|
| Back to top |
|
 |
superk Advanced

Joined: 19 Dec 2002 Posts: 684 Topics: 5
|
Posted: Thu Feb 15, 2007 12:14 pm Post subject: |
|
|
This worked for me:
| Code: |
/* REXX */
UIDN = 'XXXX'
Say UIDN
UIDN = LC(UIDN)
Say UIDN
Exit 0
LC:
Return Translate(Arg(1), ,
'abcdefghijklmnopqrstuvwxyz','ABCDEFGHIJKLMNOPQRSTUVWXYZ')
|
|
|
| Back to top |
|
 |
Mike Nitz Beginner

Joined: 09 Jun 2005 Posts: 19 Topics: 12 Location: Kansas City, MO
|
Posted: Thu Feb 15, 2007 12:21 pm Post subject: |
|
|
| Thank You!!! I haven't done much with translation & I thought I might be looking at it wrong. Again, THANK YOU!!!! |
|
| Back to top |
|
 |
kolusu Site Admin

Joined: 26 Nov 2002 Posts: 12394 Topics: 75 Location: San Jose
|
Posted: Thu Feb 15, 2007 12:32 pm Post subject: |
|
|
| Quote: |
TRANSLATE command will not translate from UPPERCASE to lowercase.
So again I ask the question, does anyone know of a way to do this??
|
huh ?
try this
| Code: |
/* REXX */
UVAR = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
LVAR = TRANSLATE(UVAR,,
'abcdefghijklmnopqrstuvwxyz',,
'ABCDEFGHIJKLMNOPQRSTUVWXYZ')
SAY LVAR
|
_________________ Kolusu
www.linkedin.com/in/kolusu |
|
| Back to top |
|
 |
kolusu Site Admin

Joined: 26 Nov 2002 Posts: 12394 Topics: 75 Location: San Jose
|
|
| Back to top |
|
 |
|
|
|