Lancez la journalisation de votre système pour qu'il puisse répertorier les connexions :
CHGSYSVAL QAUDLVL(*JOBDTA)
CHGSYSVAL QAUDCTL(*AUDLVL)

Le journal d'audit QAUDJRN doit exister dans QSYS, sinon, le créer.

Ensuite, il faut exploiter les résultats en transférant les données des récepteurs (dans notre exemple AUDRCV0 pour le premier récepteur) vers un fichier (MARKED/TYPE3) :

DSPJRN JRN(QSYS/QAUDJRN) RCVRNG(AUDRCV0) +
OUTPUT(*OUTFILE) OUTFILFMT(*TYPE3) +
OUTFILE(MARKED/TYPE3)

Attention ! Il existe plusieurs types de sortie (*TYPE1, *TYPE2, *TYPE3). Faites un essai si vous souhaitez obtenir d'autres informations.

Un logique a été créé permettant de formater les données.
************ Début des données **************************************
A R QJORDJE3 PFILE(MARKED/TYPE3)
A K JONBR
A K JOENTT
A K JOCODE
A S JOENTT COMP(EQ 'JS')
A JOCODE COMP(EQ 'T')

Seuls les enregistrements pour lesquels JOENTT = 'JS' et JOCODE = 'T' contiennent les informations utiles pour notre cas. En les classant par numéro de travail, le traitement est facilité.

Un programme en RPG IV permet de lire et de traiter ces données.

Les début et fin de session sont signalés par 'EI' et 'SI' en position 1 et 2 du champ JOESD.
c eval typ=%subst(joesd:1:2)
c eval typ2=%subst(joesd:4:5)
*-------Les débuts, fin de session sont signalés par EI ou SI

c eval profil0=%subst(joesd:40:10)
*_______Le profil est indiqué à la position 40 sur 10 de long dans la même zone.

Le champ JOTSTP donne soit l'heure de début de connexion, soit la fin de connexion. Le calcul sera donc facile.

Nous contacter pour obtenir le source complet du programme.

JMS