Re: %SCAN QUESTION

["Richard ECUYER" <recuyer@xxxxxxx>]

Better with the source for the scan .....

for i = 1 to 10 ;
     if %scan ( %subst ( usrprf : i : 1) : PASWORD) > 0 ;
         found ;
     endif  ;
 endfor ;

----- Original Message -----
From: "Richard ECUYER" <recuyer@xxxxxxx>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Sent: Thursday, February 10, 2005 2:59 PM
Subject: Re: %SCAN QUESTION


> perhaps something  like this :
>
> for i = 1 to 10 ;
>     if %scan ( %subst ( usrprf : i : 1) ) > 0 ;
>         found ;
>     endif  ;
> endfor ;
>
> ----- Original Message -----
> From: "Luis Martins" <lnmartins@xxxxxxxxxxxx>
> To: <rpg400-l@xxxxxxxxxxxx>
> Sent: Thursday, February 10, 2005 12:46 PM
> Subject: %SCAN QUESTION
>
>
> >
> > Hi,
> >
> > Can anyone tell me how can i use the instruction %scan, in 2 variables
> that
> > are :
> >
> > D USRPRF                S             10
> >
> > D PASSWORD              S             10
> >
> > I receive this two variables in the program, and i want to know if in
the
> variable PASSWORD
> > exist one string equal in the variable USRPRF.
> >
> > Ex:
> >       USRPRF = FB0001
> >       PASSWORD = FB0001A
> >
> > Thank You !
> >
> > Luis Martins.
> >
> >
> >
> >
> >
> > Luis Martins
> > Finibanco, S.A.
> > Tel.: 21 0002331 - Fax: 21 3114509
> > http://www.finibanco.pt
> >
> > __________________________________________________
> >
> > Esta mensagem e quaisquer ficheiros anexos são confidenciais,
> destinando-se
> > ao uso exclusivo da pessoa e/ou entidade a que se dirigem. Caso não se
lhe
> > destine, ou não seja responsável pelo seu encaminhamento ao
destinatário,
> > informamos que a recebeu por engano. Qualquer utilização, distribuição,
> > reencaminhamento ou outra forma de revelação a terceiros, impressão ou
> > cópia são expressamente proibidos; sendo que agradecemos que destrua a
> > mensagem de imediato, informando o seu emissor ou o Finibanco do
sucedido.
> > Não obstante o Finibanco utilizar software anti-vírus como precaução,
não
> é
> > possível garantir que a presente mensagem e eventuais ficheiros anexos
não
> > contêm vírus, pelo que não consideramos da responsabilidade desta
> > instituição eventuais consequências inerentes. Alerta-se, ainda, que as
> > mensagens transmitidas por este meio podem ser interceptadas,
corrompidas,
> > perdidas, destruídas ou entregues com atraso ao destinatário.
> >
> >
> >
> >
> > --
> > This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
> > To post a message email: RPG400-L@xxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> > or email: RPG400-L-request@xxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/rpg400-l.
> >
> >
>
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>