Question

a) OPEN 语句

OPEN 语句用于把设备号与文件名连接起来，并且对文件的各项性质进行指定。它的一般形式为：

OPEN([UNIT=]unit[,ACCESS=access][,ACTION=action][,BLANK=blanks][,BLOCKSIZE=blocksize][,CARRIAGECONTROL=carriagecontrol][,DELIM=delim][,ERR=err][,FILE=file][,FORM=form][,IOFOCUS=iofocus][,IOSTAT=iostat][,PAD=pad][,POSITION=position][,RECL=recl][,SHARE=share][,STATUS=status])

其中的各项参数的意义及取值如下：

1) UNIT：设备号说明。unit 是大于或等于 0 的正整数，设备号说明是 OPEN 语句的第—项时可以省略“UNIT=”。

2) ACCESS：存取方式说明。access 是字符串表达式：

APPEND 追加方式

SEQUENTIAL 顺序访问方式

DIRECT 直接访问方式

当省略此说明项时为顺序访问方式。

3) ACTION：描述文件的读写属性。action 是字符串表达式：

READ 文件为只读方式打开

WRITE 文件为只写方式打开

READWRITE 文件为可读写方式打开

当省略此说明项时，文件打开顺序：READWRITE->READ->WRITE。

4) BLANK：说明数据格式输入字段中空格的含义。blank 是字符串表达式：

NULL 空格忽略不计，相当于在格式描述符中的 BN 编辑符

ZERO 空格处理成数字 0，相当于 BZ 编辑符

当省略此说明项时为 ZERO。此说明只能用于格式输入。

5) BLOCKSIZE：指定以字节为单位的设备缓存的大小，默认值为一 4 字节整数。

6) CARRIAGECONTROL：指明处理文件中的第一个字符的方式，其值为字符串表达式：

Fortran 对第一个字符作一般的 Fortran 解释

LIST 指出在文件的每两个记录之间有—个空格

默认状态下，对于连接到打印机和显示器这样的设备，设置值为 Fortran，对于连接到文件的设备，设置值为 LIST。当 FORM 被设成 UNFORMATTED 和 BINARY 时，其值被忽略。

7) DELIM：指明分隔直接列表或格式化名称列表记录的方式，其值为字符串表达式：

APOSTROPHE 用单撇号(’) 分隔

QUOTE 用双撇号(”) 分隔

NONE 不用分隔符

如果在 OPEN 语句中设置了分隔符，则在文件中的单撇号和双撇号都是成对出现的。

8) ERR：出错处理说明。其值是同一程序中的一条语句的标号，当 OPEN 语句执行出错时执行此语句。如果省略该项，则出错时给出出错信息并终止运行。

9) FILE：文件名。file 是一字符串表达式，可以是空、合法的数据文件名字、设备名字或是作为内部文件的变量。在 WinNT/9x 中允许使用长度大于 8 的文件名和长度大于 3 的文件扩展名。省略此项时，编译器将自动产生一个文件名唯一的临时文件，这个临时文件将在结束运行或与文件连接的设备关闭后被删除掉。

10) FORM：记录格式说明。form 是字符串表达式：

FORMATTED 记录按有格式存放。

UNFORMATTED 记录按无格式存放。

当省略此说明项时为：对顺序文件是有格式的；对直接文件是无格式的。

11) IOFUS：指出一个新 Quickwin 子窗口是否为活动窗口，其值为逻辑值。缺省值为真。

12) IOSTAT：出错状态说明。iostat 是—个缺省长度为 4 的整形变量。当执行此 OPEN 语句时系统给变量赋值：

零 没有发生错误

负数 文件结尾

正数 发生错误，其值视具体计算机系统而定

若省略该项则没有此功能。

13) PAD：从格式化文件中记录的数据少于要读取的数据时，是否用空格来填充没有从记录中读到数据的变量。pad 是字符串表达式：

YES 填充（默认值)

NO 不填充

14) POSITION：指定打开顺序文件的访问位置，position 是字符串表达式：

ASIA 已被连接的文件的访问位置是固定的，未被连接的文件的访问位置是文件的开始处。

REWIND 把文件的访问位置定在文件的开始处（文件己存在)。

APPEND 把文件的访问位置定在文件的末尾处（文件己存在)。

对于一个新文件，文件的访问位置总是被定在文件的开始处。

15) RECL：记录长度（单位为字节) 说明。recl 是指定的正整型量或算术表达式，用来指定直接文件中的每条记录的字节数，或顺序文件中的记录的最大长度。

16) SHARE：指明当文件打开时是否实现文件的锁定。share 是字符串表达式：

DENYRW 动态读写模式。不允许其他的进程打开这个文件。

DENYWR 动态写模式。不允许其他的进程以写的方式打开这个文件。

DENYRD 动态读模式。不允许其他的进程以读的方式打开这个文件。

DENYNONE 默认的非动态模式。允许其他的进程打开这个文件。

17) STATUS：文件状态说明。status 是字符串表达式：

OLD 表示指定的文件是已经存在的老文件。这一状态一般用于读操作，如果用于写操作则重写文件，原文件内容将被覆盖。如果指定的文件并不存在，则系统将给出出错信息。

NEW 表示指定的文件尚不存在。执行 OPEN 语句时将在磁盘上建立该文件并使其状态改变为 OLD。NEW 状态一般用于写操作。如果指定的文件名已经存在将给出出错信息（有的系统不给出信息而是把这个已经存在的文件冲掉使原来的内容不复存在)。

SCRATCH 表示与设备号相连接的文件在关闭时将被自动删除。注意：此状态不能与 FILE 说明共存，只能用于由计算机系统指定的文件名，使该文件作为程序运行过程中的一个临时性文件。

REPLACE 表示替换一个有相同名字的文件，如果没有同名的文件存在，将产生一个新文件。

UNKNOWN 表示文件可以是已存在的或不存在的。系统打开文件状态的次序为：OLO->NEW->创建新文件。STATUS 的设置值只影响磁盘文件，像键盘和显示器这样的设备将忽略这一设置。

若省略该项时默认的状态为 UNKNOWN。

b) ENDFILE 语句

ENDFILE 语句的功能是在文件上写一条文件结束记录，这时文件定位在结束记录的后面。它的一般形式为：

ENDFILE{unit|([UNIT=]unit[,ERR=err][,IOSTAT=iostat])}

由于用 ENDFILE 语句在文件中写入一条结束记录后，文件的指针被定位在结束记录之后，所以若再想向同一个文件中添加更多的记录，就必须使用 BACKSPACE 或 REWIND 语句对文件进行文件指针定位的操作。在直接访问文件中使用 ENDFILE 语句在文件中写入一条结束记录后，新的结束记录后的所有老的记录都将被删除掉。

c) CLOSE 语句

CLOSE 语句解除设备号与文件的连接，又称关闭文件。它的一般形式为：

CLOSE([UNIT=]unit[,ERR=err][,IOSTAT=iostat][,STATUS|DISPOSE|DISP=status])

其中除 STATUS 以外的各项参数的意义及取值与 OPEN 语句中的相同。STATUS 是文件关闭后状态说明，其值是一字符串：

DELETE 与设备连接的文件不保留，被删除

KEEP(或 SAVE) 与设备号连接的文件保留下来不被删除

PRINT 将文件递交给打印机打印并被保留（仅对顺序文件)

PRINT/DELETE 将文件递交给打印机后被删除

SUBMIT 插入一个进程以执行文件

SUBMIT/DELETE 插入一个进程以执行文件，当插入完成后被删除

默认设置将删除带有 SCRATCH 属性的临时文件，对其它文件为 KEEP。

在程序中，没有必要显示的进行文件的关闭，—般情况下，当程序退出时将以各个文件的默认状态关闭所有的文件。CLOSE 语句不必与 OPEN 语句出现存同一程序单元中。

d) 文件指针定位语句

REWIND 语句：称为反绕语句，它使指定设备号的文件指针指向文件的开头，通常用于顺序文件的操作。它的一般形式为：

REWIND{unit|([UNIT=]unit[,ERR=err][,IOSTAT=iostat])

BACKSPACE 语句：称为回退语句，它使指定设备号的文件指针退回一个记录位置，一般用于顺序文件。它的一般形式为：

BACKSPACE{unit|([UNIT=]unit[,ERR=err][,IOSTAT=iostat])

除了以下几种情况外，使用 BACKSPACE 语句正好使文件的指针向前移动一条记录：本条记录前再没有记录时文件指针的位置不变；文件指针的位置在一条记录的中间时，文件指针移到本条记录的开始处；本记录的前—记录是文件结束记录时，文件指针移到文件结束记录之前。