Q
Problem solve Get help with specific problems with your technologies, process and projects.

Check the ASP Threshold

One of our users is not allowed to access System Service Tools menu. Is there a command in finding the ASP threshold without going to the System Service Tools menu?


I have used the following CL program to check the ASP Threshold and to send a message as required. I think with some modification, this CL program will work for you as well. Here it is:

 
PGM
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(900000)

PROCED1: CALL PGM(QWCRSSTS) PARM( &SYSINFO &LENFLD &FORMAT &RESETSY +
&ERRCODE )
MONMSG MSGID(CPF0000) +
EXEC(GOTO PROCED2)
CHGVAR &SYSUSEC VALUE(%SST(&SYSINFO 53 4))
CHGVAR &SYSUSE %BINARY(&SYSUSEC)
IF (&SYSUSE > &Q90PER) (DO)
SNDPGMMSG MSG('**SYSTEM OVER 90% ASP**') +
TOMSGQ(QSYSOPR) MSGTYPE(*INFO)
RETURN
ENDDO
SNDPGMMSG MSG('**SYSTEM UNDER 90% ASP**') +
TOMSGQ(QSYSOPR) MSGTYPE(*INFO)
RETURN
PROCED2: SNDPGMMSG MSG('GETTING ERROR ON SYS CALL') TOMSGQ(QSYSOPR) +
MSGTYPE(*INFO)
ENDPGM 

==================================
MORE INFORMATION ON THIS TOPIC
==================================

The Best Web Links: tips, tutorials and more.

Ask your systems management questions--or help out your peers by answering them--in our live discussion forums.


This was last published in December 2001

Dig Deeper on Performance

Have a question for an expert?

Please add a title for your question

Get answers from a TechTarget expert on whatever's puzzling you.

You will be able to add details on the next page.

Start the conversation

Send me notifications when other members comment.

Please create a username to comment.

-ADS BY GOOGLE

SearchDataCenter

Close