RE: EMAIL Syntax Validation

Shouldn't be too hard for you to convert this to RPG 3...

Pos=%Scan('@':EMail);                   
If Pos>0;                               
  Pos=%Scan('.':Email:Pos);             
  If Pos>0;                             
    If %Subst(Email:Pos+1:3)<>*Blanks;  
      Return *On;                       
    EndIf;                              
  EndIf;                                
EndIf;                                   


Thanks,
Tommy Holden


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Bob Voltz
Sent: Monday, November 28, 2005 8:36 AM
To: RPG400-L@xxxxxxxxxxxx
Subject: EMAIL Syntax Validation


  Does anyone have an email syntax validation routine they could
post...or point me to a sample somewhere?  I just want to make sure it
is in a valid format.  I don't care if it is a valid address or if the
domain exists.  Oh....it also has to be in RPG III.....don't ask.....
   
  Thanks,
  Bob Voltz