Forum Post: RE: Regex

Try the following:       working-storage section.       01 wValido condition-value.       01 Lnk-Processo2 string.       procedure division.          move "mmsis@mmsis.com.br" to Lnk-Processo2          set wValido to type Regex::IsMatch(Lnk-Processo2,                "^(?("")("".+?(? !\\)""@)|(([0-9a-z]((\.(?!\.))|[-!#\$%&'\*\+/=\?\^`\{\}\|~\w])*)(? =[0-9a-z])@))" &               "(?(\[)(\[(\d{1,3}\.){3}\d{1,3}\])|(([0-9a-z][-\w]*[0-9a-z]*\.)+[a-z0-9][\-a-z0-9]{0,22}[a-z0-9]))$",                type RegexOptions::IgnoreCase)          display wValido