× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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.





As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.