RE: Convert uppercase to mixed case

["Alex Roytman" <sasha@xxxxxxxxxxx>]

Title: Convert uppercase to mixed case

Dave,

 

The following code will convert Name to Upper case:

 

C     1             Do        30            i                      
C     1             SubSt     Name:i        Char              1    
C                   BitOn     '1'           Char                   
C                   Eval      %Subst(Name:i:1) = Char              
C                   EndDo                                          

 

Alex Roytman

Profound Logic Software

http://www.rpgalive.com

 

 -----Original Message-----
From: owner-midrange-l@midrange.com [mailto:owner-midrange-l@midrange.com]On Behalf Of Leland, David
Sent: Friday, November 19, 1999 12:33 PM
To: 'MIDRANGE-L@midrange.com'
Subject: Convert uppercase to mixed case

Does anyone have a generic routine (RPG) for converting uppercase to mixed case?  I'm looking to convert all our customer and vendor names and addresses from upper to mixed.

Thanks,
Dave