BEGIN
INT _stav
_stav := BLOCK alarm
IF _stav = _ERR_NO_ERROR THEN
MESSAGE "alarm has been blocked" ON srvskol1v.HIP
_stav := KVIT alarm ;attempt to acknowledge a blocked alarm
IF _stav = _ERR_NO_ERROR THEN
MESSAGE "alarm has been acknowledged" ON srvskol1v.HIP ;cannot be executed
ELSE
MESSAGE "alarm cannot be acknowledged, it is blocked" ON srvskol1v.HIP
ENDIF
ELSE
MESSAGE "failed to block an alarm" ON srvskol1v.HIP
ENDIF
END
Pridať komentár