le forum IBM i

bonjour,

Dans un programme rpgle, j'aurais à valider un zone texte contenant une adresse email venant d'une saisie à l'écran.
Pour simplifier le programme je voulais utiliser la fonction regexp_like
mais je n'arrive pas à utiliser cette fonction en SQLRPGLE.

mon code ci-dessous ne compile pas

cordialement

Code : Tout sélectionner

     H dftactgrp&#40; *no &#41; decedit&#40;'0,'&#41;
     FTEST      CF   E             WORKSTN
     dexp                            45
     dxflag                            N
      /free
       exp='&#40;&#91;a-zA-Z\d&#93;&#123;1&#125;&#91;\w\.-&#93;+\@&#91;\w\.-&#93;+\.&#91;a-zA-Z&#93;&#123;2,6&#125;&#41;';
       dou *in03;
        exfmt test1;
        exec sql set &#58;xflag=REGEXP_LIKE&#40;&#58;wemail,&#58;exp&#41;;
        if xflag;
          wmess='Adresse email valide ...';
        else;
          wmess='Adresse email incorrecte ...';
        endif;
       enddo;

       *inlr=*on;
      /end-free

REGEXP_LIKE est un prédicat pas une fonction , ce qui veut dire qu'il ne peux être utilisé que dans une clause WHERE.

Utilisez à la place REGEXP_COUNT() qui est une fonction qui retourne le nbr de fois ou une expression régulière est vraie, 0 dans le cas contraire.

Bonjour,

j'ai trouvé le code pour utiliser REGEXP_LIKE !!!
je met le code ci-dessous avec l'expression régulière qui fonctionne
si cela peut etre utile à quelqu'un et l’écran si vous voulez tester !!!

Cordialement

Code : Tout sélectionner

#--ecran TEST --------------------------------------------------------
     A          R TEST1                                                            
     A                                      CF03&#40;03&#41;                       
     A                                  9  7'Email'                        
     A            WEMAIL        60A  B  9 14DSPATR&#40;HI&#41;                     
     A            WMESS         40A  O 14 14                               
#-----------------------------------------------------------
     H dftactgrp&#40; *no &#41; decedit&#40;'0,'&#41;
     FTEST      CF   E             WORKSTN
     dex               s             72
     dxflag            s              1  0
      /free
       ex='^&#40;&#91;a-zA-Z0-9&#93;&#123;1&#125;&#91;a-zA-Z0-9\.\-_&#93;+\@&#91;a-zA-Z0-9\.\-_&#93;+\.&#91;a-zA-Z&#93;&#123;2,6&#125;\+
       s*&#41;$'; 
       dou *in03;
        exfmt test1;
          exec sql set
            &#58;xflag=case when REGEXP_like&#40;&#58;wemail,&#58;ex&#41; then 1 else 0 end ;
        if xflag<>0;
          wmess='Adresse email valide ...';
        else;
          wmess='Adresse email incorrecte ...';
        endif;
       enddo;

       *inlr=*on;
      /end-free

le forum IBM i

Utilisation de regexp_like en rpgle

Utilisation de regexp_like en rpgle

REGEXP_COUNT