Re: SYSVAL QIPLDATTIM

[bdietz@xxxxxx]

an alternate way to check on the lastipl is to use the following code.
It will check the start date/time of the SCPF job.

 PGM        /* Get the Date/Time the SCPF job starts */

 DCL        VAR(&DATA) TYPE(*CHAR) LEN(150) /* +
              Return Data */
 DCL        VAR(&BIN) TYPE(*CHAR) LEN(4) +
              VALUE(X'00000096') /* Len Return Data +
              (hex) */
 DCL        VAR(&CEN) TYPE(*CHAR) LEN(1) VALUE('Century +
              Code')
 DCL        VAR(&YY) TYPE(*CHAR) LEN(2) /*    YEAR  */
 DCL        VAR(&MM) TYPE(*CHAR) LEN(2) /*    MONTH  */
 DCL        VAR(&DD) TYPE(*CHAR) LEN(2) /* Day */
 DCL        VAR(&HH) TYPE(*CHAR) LEN(2) /* Hour */
 DCL        VAR(&M) TYPE(*CHAR) LEN(2) /* Minute */
 DCL        VAR(&SS) TYPE(*CHAR) LEN(2) /* Second */
 DCL        VAR(&FMT) TYPE(*CHAR) LEN(8) +
              VALUE('JOBI0400') /* Format for API */
 DCL        VAR(&JOB) TYPE(*CHAR) LEN(26) +
              VALUE('SCPF      QSYS      000000') /* +
              SCPF job */
 DCL        VAR(&JOBI) TYPE(*CHAR) LEN(16) /* Not needed */

 CALL       PGM(QUSRJOBI) PARM(&DATA &BIN &FMT &JOB +
                           &JOBI) /* Call the API to return the Job +
                           Attributes */

 /*   SUBSTRING THE RETURNED DATA INTO THE VARIABLES           */

              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))

 /*  SEND MESSAGE TO THE WORKSTATION'S MESSAGE AREA    */

              SNDPGMMSG  MSG('The system was last IPL''d on ' || &MM +
                           || '/' || &DD || '/' || &YY || ' at ' || +
                           &HH || ':' || &M || ':' || &SS || '.')

  END:        ENDPGM


-------------------------
 Bryan Dietz
3X Corporation

=========================================
> I set this system value to IPL the box (which was double checked to be in
> normal mode) at 10pm last night. Because this is the first time I've
tried
> this, I double checked the sytstem at 10:30pm and it's a good thing I
did.
> It did not IPL and the sysval was reset back to *NONE.

Sign on with any profile that has at least *USE authority to *PGM
QSYS/QWCCRTEC and call it from a command line. This will create a service
dump 'report' of the dates/times of all phases of the previous IPL, telling
you at least whether the system believes it IPLed at the given date/time.