COBOL......4

数据部的结构
IDENTIFICATION DIVISION.
PROGRAM-ID. TEST.
ENVIRONMENT DIVISION.
DATA DIVISION.
FILE SECTION. (文件节 )
WORKING-STORAGE SECTION. (工作单元节 )
LINKAGE SECTION. (联接节 )
REPORT SECTION. (报表节 )
COMMUNICATION SECTION. (通信节 )
PROCEDURE DIVISION.


文件节（FILE SECTION)
DATA DIVISION.
FILE SECTION.
FD INFILE
RECORD CONTAINS 32 CHARACTERS
LABEL RECORD IS STANDARD
DATA RECORD IS INFILE-REC.
01 INFILE-REC.
03 INFILE-ID PIC 9(008).
03 INFILE-NAME PIC X(020).
03 INFILE-SCORE PIC 999V9.

与文件有关的语句
OPEN
READ
WRITE
CLOSE

打开语句(OPEN 语句)
OPEN 语句一般格式：
OPEN INPUT
OUTPUT 内部文件名
I-O
EXPEND
INPUT 方式：文件只能读取。如果要打开的输入文件不存在，则会触发出错误处理。
OUTPUT 方式：生成程序写入记录的新文件。如果要打开的输出文件已经存在，则所有记录被删除，否则生成新文件
I-O 方式：文件即可读取也可写入。如果文件不存在，则打开操作不成功，会产生错误条件。
EXTEND 方式：与OUTPUT 方式相似，只能写入文件。程序将新记录写入文件末尾。如果文件不存在，则打开操作不成功。

读语句(READ 语句)
用于从外部数据文件上读入数据输入到程序的数据项。存取操作以文件为对象，以记录为单位。文件是按名字存取的。
每执行一次READ 语句，就从内部文件名对应的外部文件中读入一个记录，而不是整个文件。并将读入的记录放入到内存(程序为存储记录在内存区专门开辟一片存储单元)。
READ 语句最简单的格式为：
READ 内部文件名(不直接使用外部文件名,是为了便于移植)
例：
READ INFILE (INTO XXX)
AT END
处理。。。
END-READ


写语句(WRITE 语句)
WRITE 语句将内存区中的数据输出到外部设备或写入文件中。
1.顺序文件的格式
WRITE 记录名 [FROM ident] [BEFORE ADVANCING id-lit LINE
AFTER PAGE]


AFTER 是先移后打，即先移行再打印，打印完后不再移行。BEFORE 是先打后移，
打印之前不移行，打印完后再移行。当不出现AFTER 或BEFORE 时，按AFTER 1 处
理。
在许多计算机系统的COBOL 中，在用WRITE 语句在打印机上打印记录时，输出记
录区的第一个字符被系统作为“纵向走纸控制“之用。也就是说，输出的每一记录的第
一个字符将不输出而作为控制走纸字符之用。

如果将不同内容通过相同结构输出到某一文件中,每次记录写入前赋值，该记录被输
出之后系统将不再保存该记录的值。即下一次赋值时,旧的内容会被新的内容新所覆
盖。”记录名”必须是紧跟在该输出文件FD 描述体之后定义的记录名。


关闭语句(CLOSE 语句)
CLOSE 语句一般格式：
CLOSE 文件名1
说明：
OPEN 与CLOSE 用法不同，CLOSE 不必指出文件类型。
一个程序中OPEN 与CLOSE 成对出现。
对外部文件进行读写操作之前要先将该文件打开, 读写操作结束后,关闭文件。关闭后，不能再对该文件进行读写操作，如需再用，可以再打开。