RE: Syntax check a string as a valid email address

Thank you for sharing that Mike.
Yes, it could use some updating. But I'm not saying that just because I'm
encouraging the latest and greatest.
Some of us are curious as to what you mean by
* check for left-side valid characters
C EVAL sPos = %check(CheckLeft:LeftSide)
Like what is the value of CheckLeft?
Modernizing this by making it a subprocedure instead of a subroutine, and
putting LeftSide as a variable local to that subprocedure would make it
tighter and easier to post.
Then once you have it as a subprocedure it's quite easy to put into a
service program.
Once you have it into a service program it's quite easy to make a UDF, or
User Defined Function, out of it so you can do stuff like
select PrimaryKey, SomeDescriptiveColumn, EmailAddress
from tableInQuestion
where VerifyEmail(EmailAddress)='N'

Where VerifyEmail is the results of your evolution from subroutine to
internal subprocedure to service program subprocedure to user defined
function.

And none of this was just style for style's sake. I even left out the
whole fixed format vs free format argument.

Rob Berendt