cobol文件操作 要在COBOL中使用文件，要在3个不同的部中放上信息。
环境部，要有程序使用的每个文件的文件控制项目(FILE-CONTROL)。这个项目将程序中使用的文件名与程序外的实际文件联系起来。这些项目还定义文件的组织和访问方式。
数据部，要有每个文件的文件描述符(FD)项目，就是数据定义。
过程部，放上处理语句，OPEN,READ,WRITE,DELETE等。
环境部中主要是FILE-CONTROL和I-O-CONTROL.I-O-CONTROL很少使用。
SELECT [OPTIONAL] file-name ASSIGN TO DEV/FILE
[RESERVE N [AREA/AREAS]]
[FILE STATUS IS VAR]
SELECT必须是第一句，其他顺序无关。file-name是程序中传递使用的文件名，相当于实际文件的一个别名。OPTIONAL用于执行可能不存在的文件。
ASSIGN将file-name连接到实际的外部设备或文件。（TO好像可以省略。）
RESERVE指定文件缓冲区。
FILE STATUS指定一个变量存放文件状态，这个变量应该已在WORKING-STORAGE SECTION中定义。
对于顺序文件，还有声明如下：
[ORGANIZATION IS SEQUENTIAL] 可选，缺省为顺序组织文件
[ACCESS MODE IS SEQUENTIAL] 可选。顺序文件只允许顺序访问
[PADDING CHARACTER IS char] 指定文件在固定块长设备上时键块所用的字符，char为一个字符的数据项。
[RECORD DELIMITER IS STANDARD/usr-define] 指定如何确定变长纪录的长度。
顺序文件例子：
SELECT file-name ASSIGN TO "/usr/file1"
FILE STATUS IS file-status
对于相对文件，还有声明如下：
[ORGANIZATION IS RELATIVE] 是相对文件必须的
[ACCESS MODE IS SEQUENTIAL [RELATIVE KEY IS data]] 或者
[ACCESS MODE IS RANDOM/DYNAMIC RELATIVE KEY IS data]
访问方式有3种，缺省是SEQUENTIAL。
RELATIVE KEY 可选。如果存在，则文件读取操作顺利完成后，data用所读取纪录的关键字更新。data应为文件的纪录区中没有的整数数据项。
相对文件的例子：
SELECT file-name ASSIGN TO "/usr/file2"
ORGANIZATION IS RELATIVE
ACCESS MODE IS DYNAMIC RELATIVE KEY IS DAY-NUMBER
FILE STATUS IS file-status
对于索引文件，还有声明如下：
[ORGANIZATION IS INDEXED] 是索引文件必须的
[ACCESS MODE IS SEQUENTIAL/RANDOM/DYNAMIC] RECORD KEY IS data1
[ALTERNATE RECORD KEY IS data2 [WITH DUPLICATES]]
访问方式有3种，缺省是SEQUENTIAL。
RECORD KEY 指定文件的主纪录关键字，data1应为定义该文件的某个记录区的字母数字数据项目。这个关键字的描述及其在数据记录中的位置应该与生成文件时所用的关键字一致。
ALTERNATE RECORD KEY 如果文件有替换关键字，则其关键字用这个从句的短语指定，索引中允许重复关键字时采用DUPLICATES.COBOL要求文件记录中定义data2。重复关键字的长度及其在数据记录中的位置应该与生成文件时一致，所有替换关键字应放在文件控制项中。
索引文件的例子：
SELECT file-name ASSIGN TO "/usr/file3"
ORGANIZATION IS INDEXED
ACCESS MODE IS RANDOM
RECORD KEY IS NUMBER OF EMPLOYEE-RECORD
ALTERNATE RECORD KEY IS LAST-NAME OF EMPLOYEE-RECORD WITH DUPLICATES
ALTERNATE RECORD KEY IS SS-NUMBER OF EMPLOYEE-RECORD
FILE STATUS IS file-status
这里用户在程序中使用的文件名是file-name，实际文件名是file3。file-name的定义放在程序后边的数据部的文件节中。文件是索引文件，程序可以随机访问文件。文件的主关键字是NUMBER OF EMPLOYEE-RECORD，替换关键字是LAST-NAME和SS-NUMBER，都是文件记录区的字段。LAST-NAME允许重复。
文件状态：(对文件操作时返回文件状态到定义的文件状态变量)
ANY 00 成功
ANY 02 对索引文件，成功但发现重复关键字
READ 04 成功，但纪录长度不符合指定长度
OPEN 05 成功，但文件是可选的，前面不存在
OPEN,CLOSE 07 对顺序文件，成功，但媒介不是盘
READ 10 文件已到末尾
READ 14 对相对文件，相对纪录号的有效位超过相对关键字数据项允许的位
WRITE,REWRITE 21 对索引文件，顺序出错
WRITE 22 对索引和相对文件，带这个关键字的纪录已经存在
START,READ 23 对索引和相对文件，带这个关键字的纪录不存在
WRITE 24 对相对文件，相对纪录号的有效位超过相对关键字数据项允许的位
ANY 30 I/O错误
WRITE 34 对顺序文件，发生超边界错误
OPEN 35 对顺序和相对文件，未发现非可选文件
OPEN 37 对顺序和相对文件，该文件不支持指定的打开方式
OPEN 38 对顺序和相对文件，文件已经用锁关闭
OPEN 39 对顺序和相对文件，文件属性不支持程序中指定的属性
OPEN 41 文件已经打开
CLOSE 42 文件未打开
DELETE,REWRITE 43 最近的操作不是READ
WRITE,REWRITE 44 纪录长度非法
READ 46 没有有效的下一个记录
READ,START 47 文件未在INPUT或I-O方式中打开
WRITE 48 文件未在OUTPUT或EXTEND方式中打开
DELETE,REWRITE 49 文件未在I-O方式中打开
ANY 90~99 厂家定义
由上可知，文件操作时会发生错误，COBOL提供了检查错误和恢复I/O错误的公用地点。过程部开头应包括DECLARATIVES部分，放上出现错误时要执行的语句。
PROCEDURE DIVISION.
DECLARATIVES.
section-name SECTION.
USE statement(出现错误时调用的节).
paragraph-name.
sentence...
END DECLARATIVES.
section-name SECTION.
paragraph-name.
sentence...
USE AFTER STANDARD EXCEPTION/ERROR PROCEDURE ON file-name/INPUT/OUTPUT/I-O/EXTEND
只能在USE语句中指定一个文件，一种方式也只能有一个USE语句。如果既指定了文件，也指定了方式，则文件优先。
yangcunyi 回复于：2005-12-29 17:44:02
程序使用的所有文件要定义在数据部的第一节----文件节中。
FD file-name
[BLOCK CONTAINS int-1 [TO int-2] RECORDS/CHARACTERS]
[RECORD (CONTAINS int-3 [TO int-4] CHARACTERS)/(IS VARYING IN SIZE [FROM int-5] [TO int-6] CHARACTERS)/(DEPENDING ON data1)
[LABEL (RECORD IS)/(RECORDS ARE) STANDARD/OMITTED]
[VALUE OF (implementor-name IS id-lit-1)...]
[DATA (RECORD IS)/(RECORDS ARE) data2]
BLOCK CONTAINS 指定实际纪录的具体长度或最大与最小长度的逻辑记录数或块数。一般有操作系统和文件系统指定。
RECORD 指定包含变长纪录的文件中记录的最大与最小长度或定长纪录的具体长度。
RECORD CONTAINS 如果不带TO，则int-3是每个纪录的长度；如果带TO,介于int-3和int-4之间。
RECORD IS VARYING 指定纪录长度最小int-5和最大int-6。
DEPENDING ON 如要用，则需要在data1中保存纪录长度。
LABEL RECORD 指定文件是否带标号。（过时，下个版本不包含）
VALUE 和LABEL一起检查标号的不同部分。（过时，下个版本不包含）
DATA RECORD 指定属于文件的纪录描述项（FD后的01层项目）并作为程序文档。（过时，下个版本不包含）
一般定义文件只用第一句：FD file-name
顺序文件的LINAGE声明
对顺序文件，LINAGE声明可以在文件输出是打印机或打印机兼容文件时指定一些打印细节。
[LINAGE IS BODY LINES [WITH FOOTING AT FOOT][LINES AT TOP TOP][LINES AT BOTTOM BOTTOM]] [CODE-SET IS alphabet-name]
整个文件分成TOP,BODY,BOTTOM三部分。其中BODY包含有FOOT.
CODE-SET指定文件中所用的字符集。
过程部主要是对文件的OPEN,CLOSE,READ,WRITE,START,REWRITE,DELETE等操作。
OPEN
OPEN文件有4种方式：（如果文件声明为OPTIONAL，则文件不存在会创建文件，否则会报错）
OPEN INPUT FILE-NAME. 只能读取的文件。
OPEN OUTPUT FILE-NAME. 生成写入纪录的文件，读取该文件会出错。若文件已存在，已有记录会被全部删除。
OPEN I-O FILE-NAME. 可读可写的文件。
OPEN EXTEND FILE-NAME. 生成写入的文件。与UOTPUT的区别在于，若文件已存在，EXTEND将纪录加在文件末尾。
如果OPEN不成功，执行USE语句。USE语句不存在，则程序结束。
顺序文件的OPEN可以有以下方式：
OPEN INPUT FILE-NAME [(WITH NO REWIND)/REVERSED].
OPEN OUTPUT FILE-NAME [WITH NO REWIND].
REVERSED可以逆序处理，即由后向前处理。（过时，下个版本不包含）
WITH NO REWIND 用于单卷磁带文件，如果指定文件在不适用REWIND的媒介上，忽略。
在文件描述项中指定LINAGE得顺序文件不能用EXTEND方式打开。
CLOSE
所有文件的CLOSE方法：
CLOSE FILE-NAME. 关闭文件。
CLOSE FILE-NAME WITH LOCK. 关闭文件，不退出程序不能再打开此文件。
顺序文件还有其他一些选项,如关闭卷或单元，和继续处理文件：
CLOSE file-name [REEL/UNIT] [FOR REMOVAL]/WITH NO REWIND
READ
顺序访问方式读文件。一定要有NEXT字样。
READ file-name [NEXT] RECORD [INTO data1]
[AT END statements][NOT AT END statements] [END-READ]
如果READ成功且有INTO，将读到的数据写入data1。
如果文件中没有记录，执行AT ENDstatements，如果没有就执行USE。
如果READ成功，就执行NOT AT END statements。
动态访问方式读文件。(相对或索引文件)
利用OPEN语句，将文件指针设在开头。
进行各种成功的READ操作。
有START语句标识文件中的纪录。
随机访问方式读文件。
READ file-name RECORD [INTO data1]
[INVALID KEY statements][NOT INVALID KEY statements] [END-READ]
如果READ成功且有INTO，将读到的数据写入data1。
如果文件中没有记录，执行INVALID KEY statements，如果没有就执行USE。
如果READ成功，就执行NOT INVALID KEY statements。
如果是相对文件，要设置文件控制项RELATIVE KEY中指定的整型关键字值后才能执行READ.
如果是索引文件，要设置当前索引的关键字值后才能执行READ.
WRITE
顺序方式。
WRITE data [FROM data1] [BEFORE/AFTER ADVANCING mnemonic-name/PAGE/N LINE(LINES)]
[AT END-OF-PAGE(EOP) statements][NOT AT END-OF-PAGE(EOP) statements][END-WRITE]
如果指定了FROM，先将data1复制到data，再写入文件。
BEFORE/AFTER ADVANCING N LINE(LINES) 在纪录间插入N个空行。
AT END-OF-PAGE(EOP) 对于带LINAGE的文件有效，在WRITE使指针进入页脚(FOOT)时，先执行WRITE，再执行AT END-OF-PAGE(EOP) statements。
相对和索引文件方式。
WRITE data [FROM data1]
[INVALID KEY statements][NOT INVALID KEY statements] [END-WRITE]
REWRITE
替换文件中的一个记录。
顺序方式：REWRITE data [FROM data1] [END-REWRITE]
相对和索引方式：
REWRITE data [FROM data1]
[INVALID KEY statements][NOT INVALID KEY statements] [END-REWRITE]
DELETE
删除文件中的一个记录。只能用于相对或索引组织的文件。
DELETE file-name RECORD
[INVALID KEY statements][NOT INVALID KEY statements] [END-DELETE]
顺序访问方式的话，前一个READ的纪录被删除。
随机或动态访问的话，RELATIVE KEY的内容或主关键字所表示的纪录从文件中删除。
START
将相对或索引文件定位到某个纪录，以便对其进行顺序访问。只对相对和索引文件有效。
START file-name [KEY IS (EQUAL TO)/=/GREATER THAN/>/NOT LESS THAN/NOT < data]
[INVALID KEY statements][NOT INVALID KEY statements] [END-START]
如果执行成功，则data所属的索引变成文件的当前索引。
对于相对文件，data定义为文件的RELATIVE KEY的数据项。
对于索引文件，data为下列之一：
文件的主关键字，是RECORD KEY从句中指定的数据项。
文件的替换关键字，是ALTERNATE RECORD KEY从句指定的数据项。
从一个关键字的第一个位置开头，长度小于或等于该关键字的数据项。
yangcunyi 回复于：2005-12-29 17:46:25
cobol数组操作 下面是数组的例子：
01 RECORD-X.
03 MONTH OCCURS 12 TIMES.
05 NAME PIC X(12).
05 DAYS OCCURS 31 TIEMS.
07 COMMENT PIC X(20).
07 TEMP-HI PIC S999.
07 TEMP-LO PIC S999.
77 CURRENT-DAY PIC 99.
调用表示如下：
MONTH(5) : 包含NAME 和 DAYS表格的组项目。
NAME OF MONTH(5) :基本字母数字项目，长度为12个字符。
NAME(5) (1:3) 上述第5个项目的前3个字符。
TEMP-HI(1,31) 基本数字项目，长度为3个字符。前一个参数是在MONTH数组中的位置，后一个参数是在DAYS数组中的位置。相当于MONTH[1].DAYS[31].TEMP-HI。
COMMENT OF RECORD-X(5,CURRENT-DAY)(11) 基本字母数字项目第五个月的CURRENT-DAY的COMMENT字段的最后10个字符。
03 TEXT PIC XXX OCCURS 1 TO 12 TIMES DEPENDING ON IX.
定义一个变长的数组。定义的长度是12，实际以IX为准，若IX为10，则TEXT的长度就是30。
索引
索引名INDEX
索引名可以用作PERFORM语句的变量，用于SET和SEARCH语句和用作下标。
03 TEXT PIC XXX OCCURS 7 TIMES INDEXED BY index
05 A PIC XXX
05 B PIC XXX
PERFORM VARYING index FROM 1 BY 1 UNTIL index >7
DISPLAY A(index),B(index)
END-PERFORM.
注意和不用索引名的比较：
77 index PIC 99
03 TEXT PIC XXX OCCURS 7 TIMES
05 A PIC XXX
05 B PIC XXX
PERFORM VARYING index FROM 1 BY 1 UNTIL index >7
DISPLAY A(index),B(index)
END-PERFORM.
关键字KEY
关键字有ASCENDING(升序，由低到高)和DESCENDING(降序，由高到低)。
03 TEXT PIC XXX OCCURS 7 TIMES ASCENDING KEY IS A,B.
05 A PIC XXX.
05 B PIC XXX.
TEXT中的元素按A升序排序，A相同的元素按B升序排序。
关键字的作用是定义SEARCH语句带ALL短语时表格的排序。
表格初始化，可以一个一个数据项单独初始化，也可以一起初始化。
03 TEXT PIC XXX OCCURS 7 TIMES VALUES SPACE.
05 A PIC XXX.
05 B PIC XXX. 一起初始化为空格。
03 TEXT PIC XXX OCCURS 7 TIMES.
05 A PIC XXX VALUES SPACE.
05 B PIC XXX VALUES SPACE. 单独初始化。
SET
保存或恢复索引值。SET A TO B.
将索引递增或递减一个整数值。SET A UP/DOWN BY N.
SEARCH
SEARCH A [VARYING B] AT END C {WHEN CONDITION D}...END-SEARCH
A为带INDEXED BY 短语的表格。每一步都轮流求值CONDITION ,为真时执行D,SEARCH语句终止。 为假时，索引值递增，至最大索引时执行AT END C,SEARCH语句终止。
若一开始索引值即为最大，则不执行WHEN语句，直接执行AT END 语句。
VARYING 指定索引B，省略为A中制定的索引。
下面的例子查找月份表中下一个具有31天的月份。
01 MONTH-DATA.
03 MONTH-INFO.
05 PIC X(10) VALUES "JANUARY".
05 PIC X(3) VALUES "JAN".
05 PIC 99 VALUES 31.
05 PIC X(10) VALUES "FEBRUARY".
05 PIC X(3) VALUES "FEB".
05 PIC 99 VALUES 28.
...(省略代码)
03 MONTH REDEFINES MONTH-INFO OCCURS 12 TIMES INDEXED BY MONTH-INDEX.
05 NAME PIC X(10).
05 ABBREV PIC X(3).
05 DAYS PIC 99.
77 CURRENT-MONTH PIC 99.
77 NEXT-31-DAY-MONTH PIC 99.
SET MONTH-INDEX TO CURRENT-MONTH.
SET MONTH-INDEX UP BY 1.
SEARCH MONTH
AT END MOVE 1 TO MONTH-INDEX
SEARCH MONTH
AT END MOVE 0 TO NEXT-31-DAY-MONTH
WHEN DAYS(MONTH-INDEX) = 31
SET NEXT-31-DAY-MONTH TO MONTH-INDEX
END-SEARCH
WHEN DAYS(MONTH-INDEX) = 31
SET NEXT-31-DAY-MONTH TO MONTH-INDEX
END-SEARCH
要查找多维表格，要将SEARCH放到PERFORM中。
01 TABLE-DATA.
03 DIM-1 OCCURS 10 TIMES INDEXED BY X1.
05 DIM-2 OCCURS 20 TIMES INDEXED BY X2.
07 NAME PIC X(20).
07 STATE PIC XX.
...
PERFORM VARYING X1 FROM 1 BY 1 UNTIL X1 > 20
SET X2 TO 1
SEARCH DIM-2
WHEN STATE(X1,X2) = "AL" ....
WNEH STATE(X1,X2) = "AZ" ....
END SEARCH
END-PERFORM.
还有一种SEARCH是对有关键字的表格进行查找，和上面的查找差不多，主要是WHEN 条件中要用关键字作为查找条件。比如说关键字为A，则必须有WHEN A = .....
sunokla 回复于：2005-12-29 17:48:58
你是“新手”？
yangcunyi 回复于：2005-12-29 17:52:56
恩恩。。是啊，初学者。
riancy1106 回复于：2005-12-29 18:05:58
顶，建议设为精华贴
居士 回复于：2005-12-29 23:30:08
支持加为精华！！
|
