RE: Using regex() -- RPG400-L

Hi Mark,

Thanks for this correction, but we have tested the program with valid and
non valid addresses.

The result give use each time the same return.

So there is something else wrong in using this regexec function.

BR
Danny

-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Mark
Murphy
Sent: dinsdag 5 december 2017 16:38
To: RPG programming on the IBM i (AS/400 and iSeries)
<rpg400-l@xxxxxxxxxxxx>
Subject: Re: Using regex()

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

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