====== pears.ValidateEmailAddressStd ======
<WRAP center round info>
Generated schema reference. Regenerate this page from the SQL unload; keep hand-maintained business notes in the narrative namespace.
</WRAP>

===== Original SQL =====
<code sql>
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."ValidateEmailAddressStd" IS 
'create function ValidateEmailAddressStd 

/* Application Maintained Function / Procedure - DO NOT EDIT*/

( 
  in @email varchar(200) ) 
returns long varchar
begin
  declare "RV" long varchar;
  set "rv" = if exists(select  1 
      from "sa_split_list"(@email,'';'')
      where "trim"("row_value") not regexp string (''^[a-zA-Z0-9.!#$%&'', char(39),''’*+/=?^_`{|}~-]+@[a-zA-Z0-9-]+(?:\\\\.[a-zA-Z0-9-]+)*$'' ) ) then
      ''Invalid Email Address'' else '''' endif;
  return("RV")
end'
</code>