Re: Last IPL date and time

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