RE: %SCAN QUESTION

["MD, Sadique" <Sadique.MD@xxxxxxx>]

Hi,

This Could work ....




D USRPRF          S             10    Inz('SADIQ')                      
D PASSWORD        S             10    Inz('SADIQA')                     
D PASSWRD1        S             10    Inz('      ')                     
DRslt1            S              4S 0 Inz(*Zeros)                       
DRslt2            S              4S 0 Inz (*Zeros)   
                   
C                   Eval      USRPRF =  %Trim(USRPRF)                   
C                   Eval      PASSWORD = %TRIM(PASSWORD) 
               
C     ' '           Scan      USRPRF        Rslt1                       
C     Rslt1         Sub       1             Rslt2   
                    
C                   Eval      Passwrd1 = %Trim(%Subst(PASSWORD:1:Rslt2) 

C     USRPRF        Scan      Passwrd1                                
C                   If        %Found                                    
C     Usrprf        Dsply                                               
C                   Else                                                
C     'Not Found'   Dsply                                               
C                   Endif                  

C                   Eval      *Inlr = *On


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