|
Nice little utility, Bryan!! Nick Radich Sr. Programmer/Analyst EPC Molding, Inc. Direct (320) 679-6683 Toll free (800) 388-2155 ext. 6683 Fax (320) 679-4516 nick_radich@xxxxxxxxxxxxxx Bryan Dietz <BDietz@xxxxxxxxxx> Sent by: midrange-l-bounces@xxxxxxxxxxxx 06/22/06 12:17 PM Please respond to Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx> To Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx> cc 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 midrange-l-bounces@xxxxxxxxxxxx wrote on 06/22/2006 01:04:19 PM: -> I'm sure I'm going to regret asking this becuase it probably obvious -> but I can't think of it. Is there a data area/file/something else -> that will tell me the last time my machine was IPLed? I'm sure it was -> for Dayligth savings time but I'm ot sure. -> -> Anyway, TIA. -> -> Mike
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.