2001-12-23 如何取得 AS/400 最近開機時間為何時？

如何取得 AS/400 最近開機時間為何時？


File   : QCLSRC
Member : LASTIPLC
Type   : CLP

藉由 QUSRJOBI API 檢核 System Job SCPF 的啟動時間，可以得知系統開機時間。

            

/*  Program  LASTIPLC     */

PGM

DCL VAR(&DATA) TYPE(*CHAR) LEN(150)
DCL VAR(&BIN) TYPE(*CHAR) LEN(4) VALUE(X'00000096')
DCL VAR(&CEN) TYPE(*CHAR) LEN(1)
DCL VAR(&YY) TYPE(*CHAR) LEN(2)
DCL VAR(&MM) TYPE(*CHAR) LEN(2)
DCL VAR(&DD) TYPE(*CHAR) LEN(2)
DCL VAR(&HH) TYPE(*CHAR) LEN(2)
DCL VAR(&M) TYPE(*CHAR) LEN(2)
DCL VAR(&SS) TYPE(*CHAR) LEN(2)
DCL VAR(&FMT) TYPE(*CHAR) LEN(8) VALUE('JOBI0400')
DCL VAR(&JOB) TYPE(*CHAR) LEN(26) +
     VALUE('SCPF      QSYS      000000')
DCL VAR(&JOBI) TYPE(*CHAR) LEN(16)

CALL   PGM(QUSRJOBI) PARM(&DATA &BIN &FMT &JOB &JOBI)
CHGVAR VAR(&CEN) VALUE(%SST(&DATA 63 1))
CHGVAR VAR(&YY) VALUE(%SST(&DATA 64 2))
CHGVAR VAR(&MM) VALUE(%SST(&DATA 66 2))
CHGVAR VAR(&DD) VALUE(%SST(&DATA 68 2))
CHGVAR VAR(&HH) VALUE(%SST(&DATA 70 2))
CHGVAR VAR(&M) VALUE(%SST(&DATA 72 2))
CHGVAR VAR(&SS) VALUE(%SST(&DATA 74 2))
SNDPGMMSG  MSG('The system was last IPL''d on ' || &MM +
           || '/' || &DD || '/' || &YY || ' at ' || +
           &HH || ':' || &M || ':' || &SS || '.')
END: 

ENDPGM