Hello,
@ all many thanks for every idea.
Have solved my problem via SQL.
Hereby my pgm. Can be useful for someone else.
**free
ctl-opt main(main) dftactgrp(*no);
dcl-proc main;
dcl-pi main extpgm('STL9110P');
PxEMail char(1024);
PxOK char(1);
end-pi;
dcl-s Count int(10);
dcl-s Email varchar(1024);
exec sql
set option commit = *none,
datfmt = *iso;
Email = PxEMail;
exec sql
values regexp_instr(trim(:Email),
'^[a-zA-Z0-9._%-]+@[a-zA-Z0-9.-]+\.[a-zA-Z]{2,4}$',
1,
1,
0,
'i')
into :Count;
PxOK = %char(Count);
return;
end-proc;
Again many thanks to all.
BR
Danny
-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of David
Gibbs
Sent: dinsdag 5 december 2017 18:43
To: RPG programming on the IBM i (AS/400 and iSeries)
<rpg400-l@xxxxxxxxxxxx>
Subject: Re: Using regex()
On 12/5/2017 8:19 AM, Danny Rodius wrote:
Do you have an example of checking an email address against a regular
expression?
Take a look at
https://archive.midrange.com/rpg400-l/201712/msg00039.html
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.net/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
midrange.com
