Re: CL - convert to uppercase? -- MIDRANGE-L

× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.

Sorry, a typo ... &PAT should be &DATA ...

----- Original Message -----
> From: "Mark S. Waterbury" <mark.s.waterbury@xxxxxxx>
> To: "Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx>
> Sent: Tuesday, August 31, 2004 2:56 PM
> Subject: Re: CL - convert to uppercase?
>
> Here you go...
>
> /* variables for QDCXLATE */
>    DCL &TBLNAM   *CHAR LEN(10) VALUE('QSYSTRNTBL')
>    DCL &TBLLIB   *CHAR LEN(10) VALUE('QSYS      ')
>    DCL &FLDLEN   *DEC  LEN(5 0)
>
>     /* translate DATA "a-z" to uppercase "A-Z" */
>        CHGVAR     VAR(&DATA) VALUE(&WHATEVER)
>        CHGVAR     VAR(&FLDLEN) VALUE(128) /* max size of DATA */
>        CALL       PGM(QDCXLATE) PARM(&FLDLEN &DATA &TBLNAM &TBLLIB)
>
>
> ----- Original Message -----
> > From: "Condon, Mike" <M1C@xxxxxxxxxxxxxxxxx>
> > To: "'Midrange Systems Technical Discussion'" <midrange-l@xxxxxxxxxxxx>
> > Sent: Tuesday, August 31, 2004 2:46 PM
> > Subject: CL - convert to uppercase?
> >
>
> > Is there a way to convert lower to uppercase in a CL program, or do I
need
> > to do an RPG thing?
>

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.