Re: CL - convert to uppercase?

[Bruce Vining <bvining@xxxxxxxxxx>]

There is an API to provide upper and lower casing and which is sensitive to
your job CCSID.  And example of using it from CL is:

             PGM
             DCL        VAR(&LOWER) TYPE(*CHAR) LEN(50) +
                          VALUE('aBcâêÅÏ')
             DCL        VAR(&UPPER) TYPE(*CHAR) LEN(50)
             DCL        VAR(&REQUEST) TYPE(*CHAR) LEN(22) +
                          VALUE(X'00000001000000000000000000000000000+
                          000000000') /* Uppercase based on job +
                          default CCSID */
             DCL        VAR(&LENGTH) TYPE(*INT) LEN(4) VALUE(50)
             DCL        VAR(&ERRCODE) TYPE(*INT) LEN(4) VALUE(0)
             CALL       PGM(QLGCNVCS) PARM(&REQUEST &LOWER &UPPER +
                          &LENGTH &ERRCODE)
             ENDPGM

When the program finishes &upper is 'ABCÂÊÅÏ '.   There is also an ILE
flavor of the API (QlgConvertCase).

Bruce



                                                                           
             "Condon, Mike"                                                
             <M1C@ingersoll-im                                             
             c.com>                                                     To 
             Sent by:                  "'Midrange Systems Technical        
             midrange-l-bounce         Discussion'"                        
             s@xxxxxxxxxxxx            <midrange-l@xxxxxxxxxxxx>           
                                                                        cc 
                                                                           
             08/31/2004 03:46                                      Subject 
             PM                        CL - convert to uppercase?          
                                                                           
                                                                           
             Please respond to                                             
             Midrange Systems                                              
                 Technical                                                 
                Discussion                                                 
                                                                           
                                                                           




Is there a way to convert lower to uppercase in a CL program, or do I need
to do an RPG thing?
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.