метка FILE,DRIVER()[,CREATE][,RECLAIM][,OWNER()][,ENCRYPT]
[,NAME()][,PRE()]
метка [INDEX()]
метка [KEY()]
метка [MEMO()]
[метка] RECORD
fields
. .
| DRIVER | Задает тип файла данных. Атрибут DRIVER требуется для всех описаний структуры FILE. |
| CREATE | Позволяет создать файл командой CREATE во время работы программы. |
| RECLAIM | Разрешает повторно использовать место, освобожденное удаленными записями. |
| OWNER | Задает пароль для шифрования данных. |
| ENCRYPT | Шифрует файл данных. |
| NAME | Останавливает имя файла в стандарте ДОС. |
| PRE | Объявляет префикс метки для структуры. |
| INDEX | Объявляет статический индекс файла, который должен быть перестроен во время исполнения. |
| KEY | Объявляет динамически обновляющийся индекс файла. |
| MEMO | Описывает текстовое поле переменной длины до 64K длиной). |
| RECORD | Объявляет структуру записи по полям. Структура RECORD ДОЛЖНА быть в описании каждого файла. |
| fields | Элементы данных в структуре RECORD. |
FILE объявляет структуру файла данных. Метка структуры FILE используется в операторах и функциях, работающих с файлами. Структура FILE должна завершаться точкой или оператором END.
Атрибуты структур FILE, KEY, INDEX, MEMO, операторы описания данных и типы данных, которые могу содержаться в файле, целиком зависят от конкретного файлового драйвера. Все, что не поддерживается файловой системой, заданной в атрибуте DRIVER, при открытии файла вызовет сообщение об ошибке файлового драйвера. Атрибуты и (или) типы данных, разрешенных для конкретной файловой системы, перечислены в документации на файловый драйвер.
Во время выполнения, под структуру RECORD выделяется память для использования в качестве буфера, где хранятся данные, считанные с диска. В файле обязательно должна быть структура RECORD.
Пример:
Names FILE,DRIVER('Clarion') !Описание структуры файла
Rec RECORD
Name STRING(20)
. . !Конец описания файла
CREATE
Атрибут CREATE, в описании файла, позволяет создавать файл на диске оператором CREATE из программы, в которой этот файл описан.
Файлы, описанные без атрибута CREATE, могут быть созданы с помощью Clarion Data Dictionary Administrator.
Пример:
Names FILE,DRIVER('Clarion'),CREATE!Описываем файл и разрешаем
!его создание
Rec RECORD
Name STRING(20)
. . !Конец описания файла
DRIVER(filetype[,driver string])
| filetype | Строковая константа, содержащая имя менеджера файлов (Btrieve, Clarion и т.д.). |
| driver string | Строковая константа или переменная. содержащая любые добавочные инструкции для драйвера. Атрибут DRIVER задает, какой драйвер используется для работы с файлом. Атрибут DRIVER требуется во всех описаниях файлов. |
Программы на Кларионе используют драйверы для доступа к файлам. Файловый драйвер служит переводчиком между программой и файловой системой, позволяя использовать одни и те же команды для разных файловых систем.
Внутренняя реализация той или иной команды доступа к файлу зависит от файлового драйвера. Некоторые команды могут быть недоступны с определенным драйвером из-за ограничений, налагаемых файловой системой. Каждый файловый драйвер документируется отдельно. Все неподдерживаемые команды, атрибуты полей, типы данных и/или идиосинкразии файловой системы приводятся в документации.
Пример:
Names FILE,DRIVER('Clarion') !Начало описания файла
Record RECORD
Name STRING(20)
!Конец описания файла
ENCRYPT
Атрибут ENCRYPT, используемый совместно с атрибутом OWNER, указывает на необходимость шифрования данных в файле. ENCRYPT разрешен ТОЛЬКО с атрибутом OWNER. Даже используя 16-ричный редактор, весьма трудно расшифровать зашифрованные данные.
(С.П.А - Сильно сомневаюсь. Если ключ к шифру задан как в примере для OWNER, то расшифровка - дело нескольких минут.)
Пример:
Names FILE,DRIVER('Clarion'),OWNER('Clarion'),ENCRYPT
Record RECORD
Name STRING(20)
. .
См. также: OWNER
OWNER(password)
| password | Строковая константа или переменная. |
Атрибут OWNER задает пароль, который используется атрибутом ENCRYPT для шифрования данных. Реализация метода шифрования зависит от конкретного файлового драйвера.
Пример:
Customer FILE,DRIVER('Clarion'),OWNER('abCdeF'),ENCRYPT
!Шифруем данные с
!паролем "abCdeF"
Record RECORD
Name STRING(20)
. .
См. также: ENCRYPT
RECLAIM
Атрибут RECLAIM говорит о том, что файловый драйвер будет помещать новые записи в файл на место ранее удаленных, если таковые имеются. В противном случае запись будет добавлена в конец файла. Реализация метода RECLAIM зависит от файлового драйвера и поддерживается НЕ всем файловыми системами.
Пример:
Names FILE,DRIVER('Clarion'),RECLAIM !Помещать новые записи на
!место ранее удаленных.
Record RECORD
Name STRING(20)
. .
метка INDEX([-][field])[NAME()][,NOCASE][,OPT]
| - | Знак МИНУС перед компонентой индекса означает, что для полей с этой компонентой, индекс сортируется по убыванию (от больших значений к меньшим), по умолчанию сортировка по возрастанию. |
| field | Метка поля из структуры RECORD файла, для которого строится индекс. Поле - это компонента индекса. Переменные с атрибутом DIM (массивы) нельзя использовать в качестве индексных полей. |
| NAME | Имя файла для индекса. |
| OPT | В индекс не попадут сведения о тех записях, у которых все поля, используемые как компоненты индекса, пусты или содержат нуль. |
| NOCASE | Сортировку проводить без учета регистра. |
INDEX описывает "статичный" ключ для файла данных. INDEX обновляется только оператором BUILD. Он используется для доступа к записям в порядке, отличном от физического размещения записей в файле. INDEX можно использовать как для последовательного, так и для произвольного доступа к файлу. В INDEX-е ВСЕГДА разрешены записи с одинаковым значением индексных полей (duplicated entries).
INDEX может строиться на основании более чем одного поля. Порядок, в котором заданы компоненты индекса, определяет порядок сортировки записей по этому индексу. Самые первые компоненты МЕНЕЕ значимы, самые последние - БОЛЕЕ. В общем, файл данных может иметь до 255 индексов (и/или ключей) и каждый индекс может быть длиной до 255 байт (имеется в виду суммарная длина всех полей, задействованных для построения индекса), хотя точное число индексных и ключевых файлов зависит от файлового драйвера.
Если в описании INDEX не заданы имена полей, то создается "динамический" индекс, который позволяет использовать любые поля структуры RECORD в качестве своих компонент, за исключением массивов. Такие компоненты задаются во время исполнения вторым параметром оператора BUILD. Такой подход позволяет произвольно индексировать файлы во время исполнения (С.П.А - и позволяет избежать одинаковых, в целом, процедур, использующих разные порядки сортировки одного и того же файла).
Пример:
Names FILE,DRIVER('Clarion'),PRE(Nam)
NameNdx INDEX(Nam:Name),NOCASE !Индекс по имени
NbrNdx INDEX(Nam:Number),OPT !Индекс по номеру
Rec RECORD
Name STRING(20)
Number SHORT
. .
метка KEY([-][field])[NAME()][,NOCASE][,OPT]
| - | Знак МИНУС перед компонентой ключа означает, что для полей с этой компонентой, индекс сортируется по убыванию (от больших значений к меньшим), по умолчанию сортировка по возрастанию. |
| field | Метка поля из структуры RECORD файла, для которого строится ключ. Поле - это компонента ключа. Переменные с атрибутом DIM (массивы) нельзя использовать в качестве ключевых полей. |
| NAME | Имя файла для ключа. |
| OPT | В ключ не попадут сведения о тех записях, у которых все поля, используемые как компоненты ключа, пусты или содержат нуль. |
| NOCASE | Сортировку проводить без учета регистра. |
| DUP | В файле данных разрешены записи с одинаковыми значениями ключевых полей. |
KEY - это индекс файла данных, который автоматически обновляется при добавлении, изменении или удалении записей. Он используется для доступа к записям в порядке, отличном от физического размещения записей в файле. INDEX можно использовать как для последовательного, так и для произвольного доступа к файлу.
KEY может строиться на основании более чем одного поля. Порядок, в котором заданы компоненты ключа, определяет порядок сортировки записей по этому индексу. Самые первые компоненты МЕНЕЕ значимы, самые последние - БОЛЕЕ. В общем, файл данных может иметь до 255 ключей (и индексов) и каждый ключ может быть длиной до 255 байт (имеется в виду суммарная длина всех полей, задействованных для построения ключа), хотя точное число ключевых и индексных файлов зависит от файлового драйвера.
Пример:
Names FILE,DRIVER('Clarion'),PRE(Nam)
NameKey KEY(Nam:Name),NOCASE,DUP !Ключ по имени
NbrKey KEY(Nam:Number),OPT !Ключ по номеру
Rec RECORD
Name STRING(20)
Number SHORT
CODE
Nam:Name = 'Clarion Software' !Инициализируем ключевое
! поле
GET(Names,Nam:NameKey) !Читаем запись
SET(Nam:NbrKey) !Обрабатывать в порядке
! возрастания поля
! NAM:NUMBER
метка MEMO(длина)[,BINARY][,NAME()]
| длина | Числовая константа, задающая максимальную длину текста в символах. Должна быть в диапазоне от 1 до 65,536 байт. |
| BINARY | Указывает, что в МЕМО-поле должны храниться двоичные данные. |
| NAME | Задает имя файла, в котором будут находиться МЕМO-поля. Использование этого параметра зависит от файлового драйвера. |
(МЕМО - англ. записка, памятка, примечание)
MEMO описывает строковое поле переменной длины, которое хранится на диске. Параметр ДЛИНА задает максимальный размер поля примечаний. МЕМО должно быть описано ПОСЛЕ описания структуры RECORD. Память под буфер МЕМО-полей выделяется при открытии файла, к которому это примечание относится, и освобождается при его закрытии.
Теоретически, можно описать до 255 МЕОМ-полей для каждого файла. Точное же их число и способ их хранения на диске зависит от файлового драйвера. Просматриваются MEMO-поля, обычно, с помощью полей типа TEXT в экранах и отчетах.
Пример:
Names FILE,DRIVER('Clarion'),PRE(Nam)
NameKey KEY(Nam:Name)
NbrKey KEY(Nam:Number)
Notes MEMO(4800) !Примечание длиной до 4800 байт.
Rec RECORD
Name STRING(20)
Number SHORT
. .
[метка] RECORD[PRE()][,NAME()]
поля
.
| поля | Одно или более описание переменных. |
| PRE | Задает метку-префикс структуры. |
| NAME | Задает внешнее имя структуры RECORD. Использование этого параметра зависит от файлового драйвера. |
Оператор RECORD описывает начало структуры файла данных. Структура RECORD обязательно должна быть в описании файла. Каждое ПОЛЕ элемент структуры RECORD. Длина структуры RECORD складывается из длин входящих в нее ПОЛЕЙ. При обращении к структуре RECORD, она рассматривается, как структура типа GROUP.
Во время исполнения, под данные структуры RECORD, выделяется буфер в статической памяти. ПОЛЯ, в буфере записи, дрступны независимо от того открыт файл или нет. Записи считываются в буфер из файла операторами NEXT, PREVIOUS или GET. Данные ПОЛЕЙ обрабатываются, а затем записываются в файл в виде цельной структуры RECORD операторами ADD, PUT или DELETE.
Пример:
Names FILE,DRIVER('Clarion') !Описание структуры файла
Record RECORD ! начало описания записи
Name STRING(20) ! описываем поле ИМЯ
Number SHORT ! описываем поле НОМЕР
. . !Конец описаний записи и файла
BINARY
Атрибут МЕМО-поля BINARY указывает на то, что MEMO-поле может содержать не только текстовые, но и двоичные данные. Обычно, этот атрибут используется для хранения в МЕМО-полях небольших картинок, которые можно выводить в IMAGE-полях на экране.
Пример:
Names FILE,DRIVER('Clarion'),PRE(Nam),
NameKey KEY(Nam:Name)
NbrKey KEY(Nam:Number)
Picture MEMO(48000),BINARY !Двоичное поле длиной
! до 48,000 байт
Rec RECORD
Name STRING(20)
Number SHORT
См. также: MEMO, IMAGE
DUP
Атрибут DUP, в описании ключа, позволяет иметь в файле несколько записей с одинаковым значением ключевых полей. Если атрибут DUP пропущен, то попытка добавить или перезаписать запись с уже существующими значениями ключевых полей, вызовет ошибку "Такая запись уже есть" ("Creates Duplicate Key"), и запись не будет записана в файл. Во время последовательной обработки по ключу, записи с одинаковыми ключевыми полями обрабатываются в том физическом порядке, в котором их ключевые поля расположены в файле ключа. Операторы GET и SET обращаются к первой записи из тех, что имеют одинаковые ключевые поля. Атрибут DUP НЕ нужен для индексов, поскольку индексы ВСЕГДА допускают дублированные значения ключевых полей.
Пример:
Names FILE,DRIVER('Clarion'),PRE(Nam)
NameKey KEY(Nam:Name),DUP
!Ключ по имени, разрешаем одинаковые имена
NbrKey KEY(Nam:Number)
!Ключ по номеру. Одинаковые номера запрещены
Rec RECORD
Name STRING(20)
Number SHORT
. .
NOCASE
Атрибут NOCASE в описании KEY или INDEX означает, что сортировка полей по алфавиту будет производиться без учета регистра букв. При записи в ключевой файл, все буквы будут приводиться к верхнему регистру. Этот атрибут не влияет на данные, хранящиеся в файле данных и на не буквы.
Пример:
Names FILE,DRIVER('Clarion'),PRE(Nam)
NameKey KEY(Nam:Name),NOCASE
!Ключ по имени без учета регистра
NbrKey KEY(Nam:Number) !Ключ по номеру
Rec RECORD
Name STRING(20)
Number SHORT
. .
OPT
Если задан атрибут ОРТ, то в ключ или индекс НЕ попадут сведения о записях, у которых все ключевые поля пусты. В терминах атрибута ОРТ, "пустое поле" означает, что числовое поле содержит нуль, а символьное - только пробелы.
Пример:
Names FILE,DRIVER('Clarion'),PRE(Nam)!Описание структуры файла
NameKey KEY(Nam:Name),OPT !Ключ по имени, имя не может быть
! пустым
NbrKey KEY(Nam:Number),OPT !Ключ по номеру. Номера не могут
! быть нулевыми
Rec RECORD
Name STRING(20)
Number SHORT
. .
| ключ |
BUILD( |индекс| [,компоненты])
| файл |
| ключ | Метка описания КЛЮЧА. |
| индекс | Метка описания ИНДЕКСА. |
| файл | Метка описания ФАЙЛА. |
| компоненты | Строковая константа или переменная, содержащая список полей, на основе которых построить динамический ИНДЕКС. Имена полей должны разделяться запятыми, перед именем поля должен стоять знак плюс или минус, чтобы задать сортировку по возрастанию или по убыванию. |
Оператор BUILD строит ключи и индексы. BUILD(ключ), BUILD(индекс) и BUILD(файл) требуют монопольного доступа к файлу. Т.е., файл должен быть заблокирован (через LOCK) или открыт с кодом доступа 12h (ВСЕМ кроме меня запрещено чтение/запись) или 22h (ВСЕМ кроме меня запрещена запись). BUILD(индекс,компоненты) НЕ требует монопольного доступа к файлу.
| BUILD(ключ) BUILD(индекс) | Строит только указанный КЛЮЧ или ИНДЕКС. Файл должен быть закрыт, заблокирован или открыт в режиме 12h или 22h. |
| BUILD(файл) | Строит все КЛЮЧИ или ИНДЕКСЫ ФАЙЛА. Файл должен быть закрыт, заблокирован или открыт в режиме доступа 12h или 22h. |
| BUILD(индекс,компоненты) | Позволяет строить динамический ИНДЕКС. Эта форма BUILD не требует монопольного доступа к файлу, тем не менее файл должен быть открыт в любом разрешенном режиме доступа. Динамический ИНДЕКС создается как временный файл только для строящего его пользователя. Этот временный файл автоматически удаляется при закрытии файла. |
Возвращаемые ошибки:
37 Файл еще не открыт
40 Такой ключ уже есть
63 Требуется монопольный доступ
76 Неверные параметры для индекса
Пример:
Names FILE,DRIVER('Clarion'),PRE(Nam)!Описание структуры файла
NameKey KEY(Nam:Name).OPT !Описание ключа по имени
NbrNdx INDEX(Nam:Number),OPT !Описание индекса по но-
! меру
DynNdx INDEX() !Описываем динамический
! индекс
Rec RECORD
Name STRING(20)
Number SHORT
. .
CODE
OPEN(Names,12h) !Открываем файл с исключительным
! правом чтения/записи
BUILD(Names) !Строим все ключи для файла имен
BUILD(Nam:NbrNdx) !Строим индекс по номеру
BUILD(Nam:DynNdx.'-Nam:Number,+Nam:Name')
!Строим динамический индекс - по номеру с убыванием,
! по имени с возрастанием.
CLOSE(файл)
| файл | Метка ФАЙЛА. |
Оператор CLOSE закрывает ФАЙЛ. Обычно, это вызывает сброс дисковых буферов на диск и освобождение памяти, выделенной под них, кроме буфера, хранящего данные структуры RECORD. Точный порядок закрытия файла зависит от файлового драйвера.
Пример:
CLOSE(Customer) !Закрыть файл покупателей
COPY(файл,новый_файл)
| файл | Метка копируемого файла. |
| новый_файл | Строковая константа или переменная, содержащая полную спецификацию файла (диск, каталог и имя). Если в спецификации отсутствуют диск и каталог, то подразумеваются текущий каталог текущего диска. Если указан только путь, то для имени НОВОГО_ФАЙЛа используются имя и расширение копируемого ФАЙЛа. |
Оператор COPY создает копию файла, и делает соответствующую запись в каталоге. Копируемый ФАЙЛ должен быть закрыт, иначе будет возвращена ошибка "Файл уже открыт". Если спецификация НОВОГО_ФАЙЛа совпадает со спецификацией оригинала, то такой оператор COPY игнорируется.
Поскольку некоторые файловые драйверы используют несколько физических ФАЙЛОВ для работы с ними как с ОДНИМ ФАЙЛОМ, то подразумеваемые имя и расширение файла зависят от файлового драйвера. Если происходит какая-либо ошибка, то файл не копируется.
Возвращаемые ошибки:
02 Файл не найден
03 Путь не существует
05 Доступ запрещен
52 Файл уже открыт
Пример:
COPY(Names,'A:\') !Копируем файл имен на дискету
COPY(CompText,Filename) !Копируем текстовый файл под другим
! именем
CREATE(файл)
| файл | Метка файла, который надо создать. |
Оператор CREATE создает в заданном каталоге пустой файл данных. Если файл уже существует, то он удаляется и пересоздается как файл, не содержащий данных. Файл должен быть закрыт, иначе возникает ошибка "Файл уже открыт". CREATE не оставляет созданный файл открытым.
Возвращаемые ошибки:
03 Путь не существует
04 Слишком много открытых файлов
05 Доступ запрещен
52 Файл уже открыт
54 Нет атрибута CREATE
Пример:
CREATE(Master) !Создать новый основной файл
CREATE(Detail) !Создать новый файл подробностей
EMPTY(файл)
| файл | Метка существующего файла. |
EMPTY удаляет ВСЕ записи из заданного файла. EMPTY требует монопольного доступа к файлу. То есть файл должен быть открыт в режиме доступа 12h (всем, кроме меня запрещены чтение/запись) или 22h (всем, кроме меня запрещена запись)
Возвращаемые ошибки:
63 Требуется монопольный доступ
Пример:
OPEN(Master,18) !Открыть основной файл EMPTY(Master) ! и опустошить его
FLUSH(файл)
| файл | Метка файла. |
Оператор FLUSH завершает операцию STREAM. Он сбрасывает буфера ДОС, что приводит к обновлению записи каталога для данного файла. Поддержка этого оператора зависит от файловой системы и конкретные результаты этой команды описаны в документации по файловому драйверу.
Пример:
STREAM(History) !Используем буфера ДОС
SET(Current) !Идем в начало файла CURRENT.
LOOP UNTIL EOF(Current)
NEXT(Current)
His:Record - Cur:Record
ADD(History)
. !Конец цикла
FLUSH(History) !Заканчиваем поточную обра-
! ботку и сбрасываем буфера.
См. также: STREAM
LOCK(файл[,секунды])
| файл | Метка файла, открытого для совместного доступа. |
| секунды | Числовая константа или переменная, которая задает максимальное время ожидание в секундах. |
Оператор LOCK блокирует файл от доступа к нему других рабочих станций в многопользовательской среде. Обычно, это блокирует запись в файл или его чтение другими пользователями. Конкретная работа оператора LOCK зависит от файлового драйвера.
| LOCK(файл) | Пытается заблокировать файл до тех пор, пока это не удастся. Если файл уже заблокирован другой станцией, то LOCK будет ждать, пока та станция не разблокирует файл. |
| LOCK(файл,секунды) | Если за заданное время не удалось заблокировать файл, то возвращается ошибка "Файл уже заблокирован". |
Главная проблема с блокированными файлами, это как избежать "смертельного объятия". Это происходит, когда две станции пытаются заблокировать один и тот же набор файлов в разной последовательности, и обе используют оператор LOCK(файл). Одна станция уже заблокировала файл, который хочет заблокировать другая, и наоборот. Этой проблемы можно избежать, если использовать оператор LOCK(файл,секунды) и всегда блокировать файлы в одном и том же порядке.
Возвращаемые ошибки:
32 Файл уже заблокирован
Пример:
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
OPEN(файл[,режим доступа])
| файл | Метка файла. |
| режим доступа | Числовая константа, переменная или выражение, задающее уровень доступа к файлу как для открывающего его пользователя, так и для остальных пользователей многопользовательской системы. Если пропущен, то подразумевается 22h (всем, кроме меня запрещена запись в этот файл) |
Оператор OPEN открывает структуру FILE для обработки и устанавливает режим доступа. Поддержка различных уровней доступа зависит от файлового драйвера. Все файлы должны быть явно открыты перед их использованием. РЕЖИМ ДОСТУПА это битовая карта, указывающая операционке, какой доступ предоставить открывающему пользователю, и какой доступ запретить для остальных потенциальных пользователей этого файла. Допустимы следующие значения режима доступа:
| Дес. | 16н. | Режим доступа | |
|---|---|---|---|
| Открывающий пользователь | 0 | 0h | Только для чтения (Read Only) |
| 1 | 1h | Только для записи (Write Only) | |
| 2 | 2h | Для чтения и записи (Read/Write) | |
| Остальные пользователи | 0 | 0h | Любой доступ (режим FCB-совместимости) |
| 16 | 10h | Запрещен любой доступ (Deny All) | |
| 32 | 20h | Запрещена запись (Deny Write) | |
| 48 | 30h | Запрещено чтение (Deny Read) | |
| 64 | 40h | ??? (Deny None) |
Возвращаемые ошибки:
02 Файл не найден 04 Слишком много открытых файлов 05 Доступ запрещен 52 Файл уже открыт 75 Неверный описатель типа поля
Пример:
ReadOnly EQUATE(0) !Мнемонические значения для режимов
WriteOnly EQUATE(1) ! доступа
ReadWrite EOUATE(2)
DenyAll EQUATE(10h)
DenyWrite EQUATE(20h)
DenyRead EQUATE(30h)
DenyNone EQUATE(40h)
CODE
OPEN(Names,ReadWrite+DenyNone) !Открываем полностью в
! режиме разделения.
См. также: SHARE
PACK(файл)
| файл | Метка файла. |
Оператор PACK убирает удаленные записи из файла данных и перестраивает его ключи. Полученный файл будет компактен, насколько это возможно. PACK требует, как минимум, вдвое больше места на диске, чем занимает файл с ключами и МЕМО-файлами. Новые файлы создаются из старых, а старые файлы стираются ТОЛЬКО после успешного завершения процесса. PACK требует монопольного доступа к файлу.
Возвращаемые ошибки:
63 Требуется монопольный доступ
Пример:
OPEN(Trans,12h) !Монопольно открывает файл и PACK(Trans) ! упаковывает его.
REMOVE(файл)
| файл | Метка файла, подлежащего удалению. |
Оператор REMOVE стирает заданный файл из каталога аналогично команде ДОС Delete. Файл должен быть закрыт, иначе будет ошибка "Файл уже открыт". При возникновении какой-либо ошибки файл НЕ удаляется.
Возвращаемые ошибки:
02 Файл не найден 05 Доступ запрещен 52 Файл уже открыт
Пример:
REMOVE(OldFile) !Удаляем старый файл
REMOVE(Changes) !Удаляем файл изменений
RENAME(файл,новый_файл)
| файл | Метка переименовываемого файла. |
| новый_файл | Строковая константа или переменная, содержащая спецификацию файла. Если в спецификации не заданы диск и путь, то используется текущий каталог текущего диска. Если указан только путь, то в качестве имени и расширения нового файла используются имя и расширение оригинала. Файл не может быть переименован на другой диск. |
Оператор RENAME либо меняет имя файла, либо переносит его в другой каталог на этом же диске. Файл, подлежащий переименованию, должен быть закрыт, иначе произойдет ошибка "Файл уже открыт". Если ФАЙЛ и НОВЫЙ_ФАЙЛ идентичны, то оператор RENAME игнорируется. При возникновении какой-либо ошибки, файл не переименовывается.
Поскольку некоторые файловые драйверы используют несколько физических ФАЙЛОВ для работы с ними как с ОДНИМ ФАЙЛОМ, то подразумеваемые имя и расширение файла зависят от файлового драйвера.
Возвращаемые ошибки:
02 Файл не найден
03 Путь не существует
05 Доступ запрещен
52 Файл уже открыт
Пример:
RENAME(Text,'text.bak') !Делаем резервную копию
RENAME(Master,'\newdir') !Перемещаем в другой каталог
SHARE(файл[,режим доступа])
| файл | Метка файла. |
| режим доступа | Числовая константа, переменная или выражение, задающее уровень доступа к файлу как для открывающего его пользователя, так и для остальных пользователей многопользовательской системы. Если пропущен, то подразумевается 42h (всем, кроме меня, DENY NONE). |
Оператор SHARE открывает файл для обработки и устанавливает режим доступа к нему. Оператор SHARE аналогичен оператору OPEN и отличается от него только режимом доступа по умолчанию. РЕЖИМ ДОСТУПА это битовая карта, указывающая операционке, какой доступ предоставить открывающему пользователю, и какой доступ запретить для остальных потенциальных пользователей этого файла. Допустимы следующие значения режима доступа:
| Дес. | 16н. | Режим доступа | |
|---|---|---|---|
| Открывающий пользователь | 0 | 0h | Только для чтения (Read Only) |
| 1 | 1h | Только для записи (Write Only) | |
| 2 | 2h | Для чтения и записи (Read/Write) | |
| Остальные пользователи | 0 | 0h | Любой доступ (режим FCB-совместимости) |
| 16 | 10h | Запрещен любой доступ (Deny All) | |
| 32 | 20h | Запрещена запись (Deny Write) | |
| 48 | 30h | Запрещено чтение (Deny Read) | |
| 64 | 40h | ??? (Deny None) |
Возвращаемые ошибки:
02 Файл не найден
04 Слишком много открытых файлов
05 Доступ запрещен
52 Файл уже открыт
75 Неверный описатель типа поля
Пример:
ReadOnly EQUATE(0) !Мнемонические значения для режимов
WriteOnly EQUATE(1) ! доступа
ReadWrite EOUATE(2)
DenyAll EQUATE(10h)
DenyWrite EQUATE(20h)
DenyRead EQUATE(30h)
DenyNone EQUATE(40h)
CODE
SHARE(Names,ReadOnly+DenyWrite) !Открываем в режиме толь-
! ко для чтения.
См. также: OPEN
STREAM(файл)
| файл | Метка файла. |
Некоторые файловые системы сбрасывают буфера при каждой записи на диск. Оператор STREAM запрещает это автоматический сброс. Буфера ДОС выделяются командой BUFFERS= в файле CONFIG.SYS. Они хранят записываемое на диск до тех пор, пока все буфера не заполнятся, а затем все сразу сбрасываются на диск. Элементы каталога обновляются только при физической записи буферов на диск. Операция STREAM завершается с закрытием файла, что автоматически сбрасывает буфера на диск, либо с выполнением оператора FLUSH.
Поддержка этого оператора зависит от файловой системы и описана в документации по файловому драйверу данной системы.
Пример:
STREAM(History) !Используем буфера ДОС
SET(Current) !Идем в начало файла CURRENT
LOOP UNTIL EOF(Current)
NEXT(Current)
His:Record - Cur:Record
ADD(History)
. !End loop
FLUSH(History) !Завершаем поточную обработку
! и сбрасываем буфера на диск
См. также: FLUSH
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
Назад | Содержание | Вперед