Article

Bryan Dietz--code

Bryan Dietz
 
/********************************************************************/
/*  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 

Related Topics: iSeries skills, VIEW ALL TOPICS

There are Comments. Add yours.

 
TIP: Want to include a code block in your comment? Use <pre> or <code> tags around the desired text. Ex: <code>insert code</code>

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy
Sort by: OldestNewest

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to: