Bryan Dietz--code

 
/********************************************************************/
/*  when was the last IPL??                                         */
/*                           Bryan Dietz  (bdietz@3x.com)           */
/********************************************************************/
     PGM
     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