Все операторы, перечисленные в этом Приложении, поддерживаются только для совместимости с предыдущими версиями Clarion. Они подлежат полному удалению в будущих релизах Clarion и поэтому, их дальнейшее использование не предусматривается.
BOF (сигнализировать о достижении начала файла)
BOF сигнализирует о достижении начала файла во время последовательной обработки.
файл Метка объявления структуры FILE.
Процедура BOF возвращает отличное от нуля значение (“истина”), когда оператором PREVIOUS прочитана (или пропущена оператором SKIP) первая в последовательности обработки запись файла. Во всех других случаях функция возвращает ноль (“ложь”).
Процедура BOF может не поддерживаться некоторыми файловыми драйверами или быть в этих файловых система очень неэффективной. Перед ее использованием сверьтесь с документацией по данному файловому драйверу. Поэтому для гарантии эффективности и поддержки файловым драйвером рекомендуется не использовать эту процедуру. Вместо этого, проверяйте процедурой ERRORCODE() после каждого чтения с диска для попытки прочесть запись после начала файла.
Наиболее часто функция BOF используется в качестве условия в операторе LОOP UNTIL. Поскольку условие выполнения вычисляется в начале цикла, процедура BOF возвращает значение “истина” после того, как при обработке файла в обратной последовательности (используя PREVIOUS) прочитана и обработана последняя запись.
Возвращаемый тип данных:
LONG
Пример:
!Не рекомендуется, но пока поддерживается для обратной совместимости:
SET(Trn:DateKey) !
Начало/конец файла в последовательности ключа
LOOP UNTIL BOF(Trans) !
Обработать файл в обратной последовательности
PREVIOUS(Trans) !
последовательно читать записи
IF ERRORCODE() THEN STOP(ERROR()).
DO LastInFirstOut ! вызвать LastInFirstOut
END
!Рекомендуется как более эффективный код дл всех файловых драйверов:
SET(Trn:DateKey) !
Начало/конец файла в последовательности ключа
LOOP !
Обработать файл в обратной последовательности
PREVIOUS(Trans) !
последовательно читать записи
IF ERRORCODE() THEN BREAK. !Прервать цикл при попытки прочитать после начала
Процедура EOF возвращает отличное от нуля значение (“истина”), когда оператором NEXT прочитана (или пропущена оператором SKIP) последняя в последовательности обработки запись файла. Во всех других случаях функция возвращает ноль (“ложь”).
Процедура EOF может не поддерживаться некоторыми файловыми драйверами или быть в этих файловых система очень неэффективной. Перед ее использованием сверьтесь с документацией по данному файловому драйверу. Поэтому для гарантии эффективности и поддержки файловым драйвером рекомендуется не использовать эту процедуру. Вместо этого, проверяйте процедурой ERRORCODE() после каждого чтения с диска для попытки прочесть запись после конца файла.
Наиболее часто функция EOF используется в качестве условия в операторе LОOP UNTIL. Поскольку условие выполнения вычисляется в начале цикла, функция EOF возвращает значение “истина” после того, как прочитана и обработана последняя запись.
Возвращаемый тип данных: LONG
Пример:
!Не рекомендуется, но пока поддерживается для обратной совместимости:
SET(Trn:DateKey) !
Начало файла в последовательности ключа
LOOP UNTIL EOF
(Trans) !Обработать все записи
NEXT(Trans) !
последовательно читать записи
IF ERRORCODE() THEN STOP(ERROR()).
DO LastInFirstOut
! вызвать подпрограмму LastInFirstOut
END
!Рекомендуется для использования со всеми файловыми драйверами:
SET(Trn:DateKey) !
Начало файла в последовательности ключа
LOOP !Обработать все записи
NEXT(Trans) !
последовательно читать записи
IF ERRORCODE() THEN BREAK. !Прервать цикл при попытки прочитать после конца файла
DO LastInFirstOut ! вызвать подпрограмму LastInFirstOutEND
FUNCTION - это оператор, который определен для возврата значения( так же, как “function” в некоторых других языках программирования). Ключевое слово FUNCTION заменено выражением PROCEDURE для всех случаев и сегодня является синонимом PROCEDURE.
файл Метка объявления структуры FILE. Этот параметр задает физическую последовательность записей в файле.
ключ Метка объявления ключа или индекса. Задает логическую последовательность записей упорядоченную по заданному ключу или индексу.
POINTER возвращает относительное положение в файле данных (в физической последовательности файла) или относительное положение в файле ключей или индексов (в логической последовательности ключа) последней записи, к которой было обращение.
Смысл значения, возвращаемого функцией, зависит от файлового драйвера. Этот может быть номер записи, байтовое смещение в файле или некая другая разновидность “поискового” положения в файле.
Некоторыми файловыми драйверами функция POINTER не поддерживается. Поэтому ее следует использовать только, если вы знаете, что она поддерживается в используемой файловой системе и не будете заменять ее в будущем. Предпочтительный способ позиционирования на запись, который разработан для с тем расчетом, чтобы функционировать во всех файловых системах, это использование функции POSITION в сочетании с RESET и REGET.
SHARE (открыть файл данных для совместного доступа)
SHARE(файл [,режим доступа])
SHARE
Открывает структуру данных для обработки.
файл Метка структуры FILE
режим доступа Числовая константа, переменная или выражение, которая определяет уровень доступа, обуславливаемый и для пользователя, открывающего файл, и для других пользователей в многопользовательской среде. По умолчанию устанавливается значение 42h (чтение/запись + нет запрета).
Оператор SHARE открывает структуру FILE для работы и устанавливает режим доступа. Он аналогичен оператору OPEN за исключением режима доступа, используемого по умолчанию.
Режим доступа представляет собой битовую комбинацию, сообщающую операционной системе, какой уровень доступа назначить пользователю, открывающему файл, и на каком уровне установить другим пользователям ограничение в использовании файла.
Имеются следующие фактические значения для каждого уровня доступа:
Дес.Шест.Доступ
Доступ пользователя: 0 0h Только чтение
1 1h Только запись
2 2h Чтение/Запись
Доступ других: 0 0h Любой доступ (режим совместимости FCB)
16 10h Полный запрет
32 20h Запрет записи
48 30h Запрет чтения
64 40h Нет запрета
Выдаваемые сообщения об ошибках: Такие же как для OPEN.
Знаете ли Вы, что объектно-ориентированное программирование - это технология программирования, при которой программа рассматривается как набор дискретных объектов, содержащих, в свою очередь, наборы структур данных и процедур, взаимодействующих с другими объектами.
