|
I like this way to check on the lastipl: PGM /* LASTIPL */ 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 ================= Another way to check last IPL - from WRKACTJOB display (5) the QCTL subsystem (or QBASE if that's what you have in the QCTLSBSD system value). Option 1 will display when the job (the controlling subsystem) started. If it hasn't been IPL'd for a long time then the QHST logs that showed the last IPL have probably long since been purged (if System Cleanup - see CHGCLNUP command, prompt with F4 - is running). ..Neil
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 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.