Re: Need a code to monitor CPU%

Shreya:

I found this piece of code that you may want to test:
DCL VAR(&FORMAT) TYPE(*CHAR) LEN(8) VALUE('SSTS0200')
DCL VAR(&LENFLD) TYPE(*DEC) LEN(4) VALUE(68)
DCL VAR(&SYSUSEC) TYPE(*CHAR) LEN(4)
DCL VAR(&SYSUSE) TYPE(*DEC) LEN(9 2)
DCL VAR(&SYSINFO) TYPE(*CHAR) LEN(68)
DCL VAR(&ERRCODE) TYPE(*CHAR) LEN(8) VALUE(X'0000000000000000')
DCL VAR(&RESETSY) TYPE(*CHAR) LEN(10) VALUE(*YES)
DCL VAR(&Q90PER) TYPE(*DEC) LEN(9 2) VALUE(0)

CALL PGM(QWCRSSTS) PARM(&SYSINFO &LENFLD &FORMAT &RESETSY &ERRCODE)
MONMSG MSGID(CPF0000) EXEC(DO)
SNDPGMMSG MSG('MONACTJOB - Getting error when retrieving ASP Disk
Capacity Data.') TOMSGQ(*SYSOPR) MSGTYPE(*INFO)
GOTO CMDLBL(LEAVE)
ENDDO

CHGVAR VAR(&SYSUSEC) VALUE(%SST(&SYSINFO 53 4))
CHGVAR VAR(&SYSUSE) VALUE(%BINARY(&SYSUSEC))
CHGVAR VAR(&Q90PER) VALUE(900000.00)
IF COND(&SYSUSE > &Q90PER) THEN(DO)
CALL PGM(ZZ000DSK) PARM(&SYSUSE)
ENDDO

LEAVE:

You can change the approach from 90% to 80% and that maight be all. I
pulled this code from somewhere (archives or other site) so I hope it works
for you.

Regards,
PETER VIDAL
PALL CORPORATION
SR System Analyst | WH Application Development
10540 Ridge Rd., Suite 203, New Port Richey, FL 34654-5111
UC#: 262-2414 | Direct: 727-844-2414 | Fax: 727-815-3120 | www.pall.com

"Peace on earth will come to stay, when we live Christmas every day.">
~ Helen Steiner Rice


--------------------------------------------------------------------------------

Attention:

This communication may contain information that is confidential,
privileged and/or exempt from disclosure under applicable law.
If you are not the intended recipient, please notify the sender
immediately and delete the original, all attachments, and all
copies of this communication.


--------------------------------------------------------------------------------