Looking at the documentation for regexec() I find:


Return Value

If *a match is found*, the regexec() function returns 0. If no match is
found, the regexec() function returns REG_NOMATCH. Otherwise, it returns a
nonzero value indicating an error.
A nonzero return value can be used in a call to the regerror() function.


So, it appears that you may be setting PxOK backwards (depending on what
the values 0 and 1 mean to you). If 0 is not OK, and 1 is OK, then:

if rc = 0;
PxOK = 1;
else;
PxOK = 0;
EndIf;



On Tue, Dec 5, 2017 at 9:39 AM, David Gibbs <david@xxxxxxxxxxxx> wrote:

On 12/5/2017 8:09 AM, Danny Rodius wrote:

Have checked these scalar functions out. However a compare is not
included. Need to check if an email is valid.


Can you give an example of the expression & data and results you would
like?

I found the REGEXP_INSTR function will tell me if a character field
matches the expression

Here's a really basic example I've used in the past ...

values(regexp_instr(
'david@xxxxxxxxxxxx',
'[A-Z0-9._%-]+@[A-Z0-9._%-]+\.[A-Z]{2,4}',
1,
1,
0,
'i'));

The returned value is 1.


david
--
David Gibbs
midrange.com

IBM i on Power Systems: For when you can't afford to be out of business!

I'm riding 615 miles (Yes, you read that right) in the American Diabetes
Association's Tour de Cure to raise money for diabetes research, education,
advocacy, and awareness. You can make a tax deductible donation to my ride
by visiting https://list.diabetessucks.net.

See where I get my donations from ... visit https://lsteml.diabetessucks.n
et/map for an interactive map (it's a geeky thing).

I may have diabetes, but diabetes doesn't have me!
--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: http://amzn.to/2dEadiD


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.