第七章_文件处理--CICS 技术文档07.pptVIP

* DYNAMIC means both sequential and randommode are used. When the program is executing, it can switch from one to other. Only index file and relative files support this option. * The output and extend options will open the file to write. output will clear the file firstly and write from the very begin. Extend will not keep the old data in the file and write at the tail of the file. * NEXT option is needed only when the file is declared as sequence file. * [BEFORE|AFTER ADVANCING [n LINE|LINES]|[PAGE]] can be used only when the file supports line and page, such as printer file. COBOL for Mainframe Fundamentals CICS 技术文档 文件I/O处理 文件处理 ENVIRONMENT DIVISION INPUT-OUTPUT SECTION. FILE-CONTROL. DATA DIVISION FILE SECTION. FD PROCEDURE DIVISION OPEN CLOSE READ WRITE REWRITE :替换一个记录. DELETE :删除一个记录. START :定位到关系文件或索引文件中的一个记录，顺序访问从该位置开始. ENVIRONMENT DIVISION ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT [optional] file-name ASSIGN TO ddname [ORGINAZATION IS SEQUENTIAL|INDEXED|RELATIVE] [ACCESS MODE IS SEQUENTIAL|RANDOM|DYNAMIC] [RECORD KEY IS identifier-1] [ALTERNATE RECORD KEY IS identifier-2] [FILE STATUS IS identifier-3] FILE STATUS 是两位数字，标志文件的状态, 例如: 00 成功 10 读到文件尾 30 I/O 错误… 可以找到一个数组，包含26种状态的相信信息. 例子 ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT INFILE ASSIGN TO FILE1 FILE STATUS IS FS1. SELECT OUTFILE ASSIGN TO FILE2 FILE STATUS IS FS2. INFILE 在FILE SECTION里定义 FILE1 是 JCL 里用到的ddname FS1 在WORKING-STORAGE SECTION里定义 DATA DIVISION DATA DIVISION. FILE SECTION. FD file-name [RECORD MODE IS F|V] [BLOCK CONTAINS n RECORDS] [RECORD CONTAINS n CHARACTERS] *下面定义的是该文件的记录缓冲器（Record Buffer），是内存与外部 *文件的唯一通道和桥梁。它的结构必须和文件中的单条记录吻合。 01 data-item-name. 05…. 05…. 例子 DATA DIVISION FILE SECTION. FD INFILE. 01 INREC. 05 USERID PIC X(10). 05 FILLER