News
Stay informed about the latest enterprise technology news and product updates.
Bryan Dietz--code
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