|
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.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.