Akcie KVIT, BLOCK, UNBLOCK
Súvisiace stránky:
[_retInt := ] KVIT alarmObjIdent [_retInt := ] BLOCK alarmObjIdent [_retInt := ] UNBLOCK alarmObjIdent
_retInt | out | Identifikátor typu Int - úspešnosť akcie. |
alarmObjIdent | in | Odkaz na objekt typu Alarm, alebo objekt, ktorý môže generovať procesný alarm. |
BEGIN INT _stav _stav := BLOCK alarm IF _stav = _ERR_NO_ERROR THEN MESSAGE "alarm bol zablokovaný" ON srvskol1v.HIP _stav := KVIT alarm ;pokus kvitovať zablokovaný alarm IF _stav = _ERR_NO_ERROR THEN MESSAGE "alarm bol kvitovaný" ON srvskol1v.HIP ;nemôže nastať ELSE MESSAGE "alarm nemôže byť kvitovaný, pretože je zablokovaný" ON srvskol1v.HIP ENDIF ELSE MESSAGE "alarm sa nepodarilo zablokovať" ON srvskol1v.HIP ENDIF END
Súvisiace stránky:
Pridať komentár