RE: Last IPL date and time

What is this reading for the data? Excuse my ignorance in reading CL as I
will be getting up to snuff with in the near future

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Bryan Dietz
Sent: Thursday, June 22, 2006 12:18 PM
To: Midrange Systems Technical Discussion
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