Re: Does anyone know of an API to validate an email address?

[Jose Perez <joseenocperez.jp@xxxxxxxxx>]

exec sql

  set :pos = regexp_instr(

    :email,

    '[A-Z0-9._%-]+@[A-Z0-9._%-]+\.[A-Z]{2,4}',

    1, // start

    1, // occurence

    0, // return start of text

    'i'); // case insensitive


If pos=0 valid email

On Fri, Dec 4, 2020, 11:45 AM Logic IT: K. Fritz <k.fritz@xxxxxxxx> wrote:

> Use the General Email Regex (RFC 5322 Official Standard)
>
> Example:
>         dcl-s      myEMail     varchar(50) inz('mailme@xxxxxxxxxx');
>         dcl-s      myCount     int(5) inz;
>         dcl-c      myRegex
>
> '(?:[a-z0-9!#$%&’*+/=?^_`{|}~-]+(?:\.[a-z0-9!#$%&’*+/=?^_`+
>
> {|}~-]+)*|”(?:[\x01-\x08\x0b\x0c\x0e-\x1f\x21\x23-\x5b\x5d+
>
> -\x7f]|\\[\x01-\x09\x0b\x0c\x0e-\x7f])*”)@(?:(?:[a-z0-9](?:+
>
> [a-z0-9-]*[a-z0-9])?\.)+[a-z0-9](?:[a-z0-9-]*[a-z0-9])?|\+
>
> [(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25+
>
> [0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?|[a-z0-9-]*[a-z0-9]:(?:+
>
> [\x01-\x08\x0b\x0c\x0e-\x1f\x21-\x5a\x53-\x7f]|\\[\x01-\x09+
>                     \x0b\x0c\x0e-\x7f])+)\])';
>
>         exec sql
>             set :myCount = regexp_count( :myEmail, :myRegex);
>
>         If myCount = 1;
>            dsply 'ok';
>         else;
>            dsply 'false';
>         endif;
>
> -----Ursprüngliche Nachricht-----
> Von: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx] Im Auftrag von
> Timothy Feldmeier
> Gesendet: Freitag, 4. Dezember 2020 16:21
> An: 'RPG400-L@xxxxxxxxxxxxxxxxxx'
> Betreff: Does anyone know of an API to validate an email address?
>
> I have a screen for the user to enter email addresses. Sometimes they enter
> a typo. It would be nice to have an API, instead of writing code for the
> validation of an email address.
>
>
> Thank You
>
> Tim Felmeier
> Programmer Analyst For Coyote System
> Roadrunner Transportation Systems
> 1431 Opus Place, Suite 530
> Downers Grove, IL 60515
> Phone# (331)-2337921
> Timothy.Feldmeier@xxxxxxxx
>
> [RRTS_transportation SYSTEMS]
>
>
> The information transmitted is intended only for the person or entity to
> which it is addressed and may contain proprietary, business-confidential
> and/or privileged material. If you are not the intended recipient of this
> message you are hereby notified that any use, review, retransmission,
> dissemination, distribution, reproduction or any action taken in reliance
> upon this message is prohibited. If you received this in error, please
> contact the sender and delete the material from any computer.
> --
> 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.
>
> Help support midrange.com by shopping at amazon.com with our affiliate
> link:
> https://amazon.midrange.com
>
> --
> 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.
>
> Help support midrange.com by shopping at amazon.com with our affiliate
> link: https://amazon.midrange.com