Continuously check if the system is idle. If the $HASP612, "SYSTEM IS IDLE," message is issued in response to the $DA command, the message block is exited, and processing continues after ENDMSG. If a job is executing, one or more multi-line $HASP890 messages are issued that describe the executing job.
Figure 153 DO EXIT Parameter Example
ON EVENT = IDLE
OWNER N18 GROUP MODE LOG RUNTSEC
THRESHOLD
DESCRIPTION
===========================================================================
DO SET = %%$MLLEND=NO GLOBAL N
DO COMMAND = $DA
WAIT CONSOLEID CONSOLE SYSTEM
WAITMODE Y WAITRESP Y TIMEOUT
RESPMSG $HASP890 $HASP612
IF %%$MSGID EQ $HASP612
DO SHOUT = TO OPER URGENCY R SYSTEM CTO282I
MESSAGE SYSTEM IS IDLE
EXIT MESSAGE
DO
ENDIF
ENDMSG
DO
===========================================================================
Parent Topic |