Re: Determining last ipl date & time?

[marcel.sjardin@xxxxxxxxxxxx]

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

Marcel Sjardin


+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---