RE: %SCAN QUESTION

["Bob Cozzi" <cozzi@xxxxxxxxx>]

I think what you mean is, is the entire password repeated in the user
profile field, right? Or perhaps a portion of it?
If you do this:

    If %scan(%trimR(usrprf):password) > 0

It will produce the results you want, provided both in already in all upper
or all lower case letters. It says "If the password contains the same text
as the user profile, return a value greater than zero.
-Bob



-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Luis Martins
Sent: Thursday, February 10, 2005 5:46 AM
To: rpg400-l@xxxxxxxxxxxx
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.