|
Nick_Radich@xxxxxxxxxxxxxx wrote:
Indeed it is. Plugged that puppy in and ran it as soon as I saw it. Since we had to do an IPL just this morning (some rookie utility man shut off our power), I knew precisely (well, pretty darn close) when we brought the system back. Close enough.Nice little utility, Bryan!!
* Jerry C. Adams *IBM System i Programmer/Analyst B&W Wholesale Distributors, Inc.* * voice 615.995.7024 fax 615.995.1201 email jerry@xxxxxxxxxxxxxxx <mailto:jerry@xxxxxxxxxxxxxxx>
Subject Re: Last IPL date and time you'll get several ways, but here is mine: /* Here is a quick way to see when the system was last IPL'd */ /* Since the SCPF job is the first job in the system this will */ /* return the date and time the job entered the system. */ /* */ /* */ /* comments to bryandietz@xxxxxxxxx */ 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 Aktion Associates
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.