Re: %SCAN QUESTION

Why the for loop and the subst?  Just curious as to the approach that's 
all.

Ron Power
Programmer
Information Services
City Of St. John's, NL
P.O. Box 908
St. John's, NL
A1C 5M2
Tel: 709-576-8132
Email: rpower@xxxxxxxxxx
Website: http://www.stjohns.ca/
___________________________________________________________________________
Success is going from failure to failure without a loss of enthusiasm. - 
Sir Winston Churchill




"Richard ECUYER" <recuyer@xxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
10/02/2005 11:02 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
Re: %SCAN QUESTION






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.
>
>

-- 
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.