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
Pridať komentár