[_retInt := ] KVIT alarmObjIdent [_retInt := ] BLOCK alarmObjIdent[, userObjIdent] [_retInt := ] UNBLOCK alarmObjIdent[, userObjIdent] |
| _retInt | out | Identifikátor typu Int - úspešnosť akcie. |
| alarmObjIdent | in | Odkaz na objekt typu Alarm, alebo objekt, ktorý môže generovať procesný alarm. |
| userObjIdent | in | Odkaz na objekt typu Užívateľ. |
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 |