Determining last IPL date & time

Here's a simple CL-program:

             PGM        PARM(&IPLDATTIM)
             DCL        VAR(&BUFFER) TYPE(*CHAR) LEN(376)
             DCL        VAR(&IPLDATTIM) TYPE(*CHAR) LEN(13)
             CALL       PGM(QUSRJOBI) PARM(&BUFFER X'00000178' +
                          'JOBI0400' 'SCPF      QSYS      000000' +
                          '                ')
             CHGVAR     VAR(&IPLDATTIM) VALUE(%SST(&BUFFER 63 13))
             ENDPGM

and the corresponding CMD:

             CMD        PROMPT('Retrieve IPL date & time')
             PARM       KWD(IPLDATTIM) TYPE(*CHAR) LEN(13) +
                          RTNVAL(*YES) MIN(1) PROMPT('Var.: IPL +
                          date & time. .  (13)')

It returns the IPL date/time in format: CYYMMDDHHMMSS

[report a broken link by clicking here]