Discussion :

[cassis2k]

Bonjour,

Je cherche à connaître l'uptime d'une partition. Pour l'instant c'est le système D, c'est à dire remonté dans le fichier qsysopr pour trouvé la première date

Quelqu'un aurait il cette information ?

Merci d'avance.

[jump400]

Si je ne me trompe pas, cela peut être obtenu par l'instruction MI Matmatr avec selection value 0108 (Machine initialization status record ) offset 440 ("Start of IPL timestamp (local time) ")
http://publib.boulder.ibm.com/infoce...tk/MATMATR.htm

Mais à mon avis le plus simple est de créer une dtaara quelque part et dans le QSTRUPPGM de mettre la date/heure courante dans cette dtaara. simple et efficace

[cassis2k]

Merci jump400, je vais étudier ça

[jump400]

Autre possibilité : récup d'infos du sous-système SCPF par l'API QUSRJOBI format JOBI0400
Le sbs SCPF est un travail (SBS) particulier qui a toujours le même numéro : 000000
et le même USER : QSYS ce qui donne come identifiant de job :
JOB(000000/QSYS/SCPF)
ou plus précisemment la valeur à passer à l'api qusrjobi : 'SCPF QSYS 000000')
le format 0400 de l'api contient en position 76 sur 13 A de long la date/heure de début d'activité du job (au format CYYMMDDHHMNSS).

Cependant il peut y avoir des restrictions qui peuvent intervenir en fonction des autorisations.

L'api QUSRJOBI :

http://publib.boulder.ibm.com/infoce...s/qusrjobi.htm

et un petit CLP, vite fait sur le gaz, qui retourne cette date :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    PGM      PARM(&DATACT)                                     
             DCL        VAR(&JOB) TYPE(*CHAR) LEN(26) +        
                          VALUE('SCPF      QSYS      000000')  
             DCL        VAR(&BUFFER) TYPE(*CHAR) LEN(2048)     
             DCL        VAR(&BUFFLEN) TYPE(*CHAR) LEN(4)       
             DCL        VAR(&DATACT) TYPE(*CHAR) LEN(13)       
                                                               
 /* Appel de QUSRJOBI  */                                      
             CHGVAR %BIN(&BUFFLEN ) 2048                       
             CALL       PGM(QUSRJOBI) PARM(&BUFFER &BUFFLEN +  
                          'JOBI0400' &JOB ' ' X'00000000')     
             CHGVAR  &DATACT %SST(&BUFFER 76 13)               
END:                                                           
             ENDPGM