RE: Occasional Function check in QINTER

I like to use this little CL for the last ipl date time:

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


-------------------------
 Bryan Dietz
3X Corporation
614-410-9205




midrange-l-bounces@xxxxxxxxxxxx wrote on 06/10/2003 02:06:28 PM:

> The dump from QWCCRTEC confirms that my last IPL was in March.  My last
GO
> SAVE 21 was in November!  (I save production libraries nightly),
>