Re: How to print upper case ?

[alan shore <SHOREA@xxxxxxxx>]

I am assuming you are talking RPG IV. 
Assume that FieldA has a value of      'abc123ABC'.

D  UC    C               'ABCDEFGHIJKLMNOPQRSTUVWXYZ;
D  LC     C               'abcdefghijklmnopqrstuvwxyz'

C   LC:UC     XLATE       FieldA      FieldA

FieldA  now is      'ABC123ABC', because LC is the "from" string and UC is the 
"to" string. Had they been reversed (i.e.  UC:LC), FieldA would now be 
'abc123abc'
>>> Sharma Deepak <deepak.sharma@kiosk.ch> 12/15 5:30 AM >>>
Hi all,

Is there any way to print a character string in UPPER case letters only ? 
 I am looking for any keyword in either printer files or some other way in 
program ?

Regards
Deepak Sharma


* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                               
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *