Re: CL - convert to uppercase?

["Mark S. Waterbury" <mark.s.waterbury@xxxxxxx>]

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?
>