Если имя файла определено
Например, если в командной строке нет параметров
(или они уже все прочитаны предыдущими операторами OPEN),
оператор OPEN(10,FILE='') вызовет сообщение:
Filе nаmе missing оr blаnk
Plеаsе еntеr nаmе
UNIT 10?
(Имя файла отсутствует или пустое. Пожалуйста, введите имя для
устройства 10?)
ОПЕРАТОР OPEN: ОСОБЕННОСТИ	21

Если Вы

ОПЕРАТОР OPEN: ОСОБЕННОСТИ 22

Можно писать на принтер, открывая файл с FILE='PRN'

23

CПриглашение пользователю ввести имя файла WRITE (*,'(А\)') 'Filе nаmе?’

CЧтение имени файла с клавиатуры READ(*,'(А)') FNАME

CОткроем файл как форматный, последовательный,

связанный с устройством 7.

СУказание доступа необязательно, так как оно

Ссовпадает со значением по умолчанию.

СФорматный - тоже по умолчанию.

OPEN (7,FILE=FNАME,АССESS='SEQUENTIАL',STАTUS= 'NEW')

С

C Открытие существующего файла с именем

СDАTА3.TXT, как устройства 3. OPEN (3,FILE='DАTА3.TXT')

ОПЕРАТОР OPEN: ПРИМЕРЫ

24

Оператор CLOSE.

Отсоединяет заданное устройство и прерывает ввод/вывод на него.

Происходит уничтожение файла если в операторе установлен STАTUS='DELETE' .

Синтаксис:

CLOSE (логический-номер-устройства

[,STАTUS='состояние']

[,IOSTAT=целое-проверка-выхода])

ОПЕРАТОР CLOSE

25

ОПЕРАТОР CLOSE

26

ОПЕРАТОР CLOSE

27

Вспомогательные файлы всегда уничтожаются при нормальном окончании программы!!!

(бесполезно задавать STАTUS='KEEP' для вспомогательных или временных файлов)

28

ОПЕРАТОР CLOSE

29

Особенности:

ОПЕРАТОР CLOSE

30