Re: QSYRUSRI -- RPG400-L

Jonathan,

Thank you very much, you help me a lot !

Best Regards,

Luis Martins.




Please respond to RPG programming on the AS400 / iSeries
       <rpg400-l@xxxxxxxxxxxx>

Sent by:    rpg400-l-bounces@xxxxxxxxxxxx


To:    RPG programming on the AS400/iSeries <rpg400-l@xxxxxxxxxxxx>
cc:
Subject:    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

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





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.