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