Re: Opposite of %CHECK?

[Jon Paris <jon.paris@xxxxxxxxxxxxxx>]

Yup - that was one fo the "other" options I alluded to.  It works well as long as you don't need to know what the lower-case letter was or what position it was in.


Jon P.

> On Jul 25, 2023, at 4:19 PM, John Yeung <gallium.arsenide@xxxxxxxxx> wrote:
>
> This does not answer the question as stated in the subject line, but does
> fit your use case: if you have a recent enough RPG, use the %UPPER built-in
> function to see whether anything got converted to uppercase. E.g. if
> %upper(myvar) <> myvar then myvar contains lowercase.
>
> John Y.
>
>
> On Tue, Jul 25, 2023, 3:58 PM James H. H. Lampert via RPG400-L <
> rpg400-l@xxxxxxxxxxxxxxxxxx> wrote:
>
> > I'm looking for an easy way to determine whether a character string
> > contains at least one lowercase character.
> >
> > I can see that %CHECK() will tell me if there's at least one character
> > in "base" that *doesn't* appear in "comparator," but is there an easy
> > way to determine if there's at least one character in "base" that *does*
> > appear in "comparator"?
> >
> > Or do I have to do a %CHECK with a big, long "comparator" that contains
> > everything *but* lowercase letters?
> >
> > --
> > JHHL
> > --
> > This is the RPG programming on IBM i (RPG400-L) mailing list
> > To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> > or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > at https://archive.midrange.com/rpg400-l.
> >
> > Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
> > questions.
> -- 
> This is the RPG programming on IBM i (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/rpg400-l.
>
> Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.