Hi

I developed a code to correct @Hotmail mistypes, but I have to use it in many parts of my software.

Is it possible to transform it in a function, and which part of it can become a function ?

select corrige_email

SCAN FOR corrige_email.email_1 = " "

   
   IF   "@hotmail.com.br" $ corrige_email.email_x  .OR.;
        "@hotimail" $ corrige_email.email_x  .OR. ".co.br" $ corrige_email.email_x .OR. ;
        "@hotemail" $ corrige_email.email_x  .OR.;
        "@hotamil" $ corrige_email.email_x  .OR.;
        "@hotmais" $ corrige_email.email_x  .OR.;
        "@hotml" $ corrige_email.email_x  .OR.;
        "@hotmaiil" $ corrige_email.email_x  .OR.;
        "@hotmil" $ corrige_email.email_x .or.;
        "@hotmill" $ corrige_email.email_x .or.;
        "@hotmaio" $ corrige_email.email_x .or.;
        "@hotmai" $ corrige_email.email_x .or.;
        "@htmail" $ corrige_email.email_x .or. "@homail" $ corrige_email.email_x .or.;                         
        "@hotmaol" $ corrige_email.email_x .or.;
        "@rotmail" $ corrige_email.email_x .or.;
        "@hotmal" $ corrige_email.email_x .or.;
        "@hotm" $ corrige_email.email_x .or.;   && se der certo substitui quase todos
        "@hotmel" $ corrige_email.email_x 
                STORE corrige_email.email_x TO lcValue  
                      
        replace corrige_email.email_1 with  LEFT(lcValue,AT("@",lcValue)-1)+"@hotmail.com"

 

   ENDIF
   
    ENDSCAN