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