Re: Using regex()

On 12/6/2017 1:45 AM, Danny Rodius wrote:

Thanks for this, but could you provide the full SQL statement.

This is very rough ... and I haven't actually compiled it, but you should get the general idea:

dcl-s pos int (10);
dcl-s email char (128) inz('david@xxxxxxxxxxxx');

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 <> *zero;
// email valid
else;
// email invalid
endif;