Документация по Clarion

       

UNLOCK (разблокировать заблокированный файл)



UNLOCK(файл)



файл Метка файла.

Оператор UNLOCK разблокирует ранее заблокированный оператором LOCK файл данных. Он не может разблокировать файл, заблокированный другой станцией. Если файл не блокирован или блокирован другой станцией, то оператор UNLOCK игнорируется. UNLOCK не возвращает каких-либо ошибок. Точное действие UNLOCK зависит от файлового драйвера.
Пример:
LOOP !Цикл во избежание "смертельного
! объятия"
LOCK(Master,1) !1 секунду пытаемся заблокировать
! основной файл
IF ERRORCODE() = 201 !Если кто-то уже блокирует его, то
BEEP(0,100) ! ждем секунду и
CYCLE ! пытаемся снова...
.
LOCK(Detail,1) !За секунду пытаемся заблокировать
! файл подробностей
IF ERRORCODE() = 201 !Если кто-то уже блокирует его, то
UNLOCK(Master) ! разблокируем занятый нами файл,
BEEP(0,100) ! подождем секунду и
CYCLE ! еще разок попробуем
. . !Конец операторов IF и LOOP





Содержание раздела