====== pears.ValidateEmailAddress ======
<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"."ValidateEmailAddress" IS 
{create function ValidateEmailAddress( 
  in @email varchar(200) ) 
returns long varchar
begin
  declare "RV" long varchar;
  select if("ISNULL"(@email,'') <> '' and @email like '%@%._%') or("ISNULL"(@email,'') = '') then '' else 'Invalid Email Address' endif into "rv";
  return("RV")
end
}
</code>