Re: QSYRUSRI

Hi Luis

Add the following snippets to your code:

      * API Variables t                                        
     D RecLength       s             10i 0 Inz(%Size(USRI0100))
     D Format          s              8a   Inz('USRI0100')     
     D UserID          s             10a   Inz(*Blanks)        
                                                               
      * USRI0100 Format                                        
     D USRI0100        DS                                      
     D  usrBytesRetnd                10i 0                     
     D  usrBytesAvail                10i 0                     
     D  usrUserID                    10a                       
     D  usrPrvSgnOn                  13a                       
     D  usrReserve1                   1                        
     D  usrSignOns                   10i 0                     
     D  usrStatus                    10a                       
     D  usrPwdChgDat                  8a                       
     D  usrNoPwdInd                   1a                       
     D  usrReserve2                   1a                       
     D  usrPwdExpInt                 10i 0                     
     D  usrPwdExpDat                  8a                       
     D  usrDaysToExp                 10i 0                       
     D  usrSetPwdExp                  1a                         
     D  usrDspSgnInf                 10a                         
                                                                 
      * API Error Data Structure                                 
     D APIErrorDS      DS                                        
     D   APIBytes                    10I 0 Inz(%Size(APIErrorDS))
     D   APIBytesOut                 10I 0                       
     D   APIErrID                     7A                         
     D   APIReserved                  1A                         
     D   APIErInDta                 256A                         
                                                                 
      * Program Data Structure                                   
     D PgmDs          SDS                                        
     D  User                 254    263                          
                                                                 
      * Call the API...                                          
     C                   Eval      UserID = User                 
                                                                 
     C                   Call      'QSYRUSRI'                    
     C                   Parm                    USRI0100  
     C                   Parm                    RecLength 
     C                   Parm      'USRI0100'    Format    
     C                   Parm                    UserID    
     C                   Parm                    ApiErrDS  

The previous signon date and time is returned as a 13 character field in the 
format CYYMMDDhhmmss

All the best

Jonathan
www.astradyne-uk.com


-----Original message-----
From: "Luis Martins" lnmartins@xxxxxxxxxxxx
Date: Wed, 24 Nov 2004 16:51:59 +0000
To: rpg400-l@xxxxxxxxxxxx
Subject: QSYRUSRI

> 
> Hello there,
> 
> Can anyone tell me how can use the QSYRUSRI API to get
> the Previous sign-on date and time of the usrprf that i passed
> to program ?
> 
> 
> Than 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.
> 


Jonathan Mason
www.astradyne-uk.com