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 成对出现。
对外部文件进行读写操作之前要先将该文件打开, 读写操作结束后,关闭文件。关闭后，不能再对该文件进行读写操作，如需再用，可以再打开。