; Loop thru all MONITORs...
; NOEVCHK,ZTSKMST -- req
ONOFF(FILE,HLEVIENE,STATUS)
; Turn on/off event monitor or system...
; FILE can = 776.1 or 776.999
; Actually, HLEVIENE can be the IEN of the monitor, or the system.
; If STATUS="A", sets status to ACTIVE.
; If STATUS="I", sets status to INACTIVE.
; If STATUS=null or undefined (not passed), present status returned...
SH7761(TAG,VAL)
;
VIEW7761(IEN)
; Actual display code for entry...
EVRES(HLEVIENM,HLEVIENE,RES,HLEVIENJ)
; Record result of queued task...
; ZTSK -- req
S7761
OKMCODE(MREF)
; Is this a valid M subrtn^rtn reference?
ONOFFS(HLEVIEN,STATUS)
; Turn on/off system...
ACTINACT(FILE,IEN,FLD,TAG)
; Turn on/off status fields...
Q1TIME(HLEVIENE,OVERRIDE,QTIME,XTMP)
; Start a one-time run of event monitor (w/no master job)