RE: my system is sluggish and I don't why?

I like this way to check on the lastipl:

     PGM   /* LASTIPL  */
     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
3X Corporation

=================
Another way to check last IPL - from WRKACTJOB display (5) the QCTL
subsystem (or QBASE if that's what you have in the QCTLSBSD system value).
Option 1 will display when the job (the controlling subsystem) started. If
it hasn't been IPL'd for a long time then the QHST logs that showed the
last IPL have probably long since been purged (if System Cleanup - see
CHGCLNUP command, prompt with F4 - is running).

..Neil