Re: Convert uppercase to mixed case

["Simon Coulter" <shc@xxxxxxxxxxxxxxxxx>]

M
Hello Alex,

That only works reliably in the base EBCDIC code page.  It will not work 
everywhere in 
the world, not even in other countries that use the Latin alphabet, and heaven 
help you 
if you attempt this on lower-case characters in a DBCS code page.  The proper 
method is 
to use a conversion table or the iconv() API - even the XLATE RPG instruction 
doesn't 
help.

Regards,
Simon Coulter.

«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
«» FlyByNight Software         AS/400 Technical Specialists       «»
«» Eclipse the competition - run your business on an IBM AS/400.  «»
«»                                                                «»
«» Phone: +61 3 9419 0175      Mobile: +61 0411 091 400           «»
«» Fax:   +61 3 9419 0175      mailto: shc@flybynight.com.au      «»
«»                                                                «»
«» Windoze should not be open at Warp speed.                      «»
«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
M-Mailer: Microsoft Outlook 8.5, Build 4.71.2173.0
Date: Fri, 19 Nov 1999 14:05:47 -0500
From: "Alex Roytman" <sasha@arehart.com>
To: MIDRANGE-L@midrange.com
Reply-To: MIDRANGE-L@midrange.com
Subject: Convert uppercase to mixed case
Importance: Normal
Monvert uppercase to mixed caseDave,

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

Title: Convert uppercase to mixed case

0!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

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