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。 如果是相对文件,要设置文件控制项RELA...
READ file-name NEXT RECORD INTO ws-file-structure AT END DISPLAY 'End of File' NOT AT END DISPLAY 'Record Details:' ws-file-structure END-READ. 1. 2. 3. 4. 下面是所使用的参数: NEXT RECORD是可选的,在顺序读取索引顺序文件时指定。 INTO子句是可选的。ws-file-structure在工作存储节中定义,...
OPEN-CLOSE FILE. OPEN [OPTION] FILENAME. 其中的OPTION可以为 CLOSE FILENAME. CLOSE语句:当对一个文件的读或写的操作已完成, 就应关闭该文件。 CLOSE语句的一般格式为: CLOSE文件名1 [,文件名2]… READ 语句的一般格式 •READ文件名RECORD [INTO标识符] [; AT END执行 语句] [END-READ] WIRTE语句 ...
NOT AT END DISPLAY 'Record Details:' ws-file-structure END-READ. 以下是使用的参数 - NEXT RECORD是可选的,在按顺序读取索引顺序文件时指定。 INTO子句是可选的。 ws-file-structure在WorkingStorage部分中定义,以从READ语句中获取值。 到达文件末尾时,AT END条件变为True。 Example- 以下示例使用行顺序组织...
进行各种成功的READ操作。 有START语句标识文件中的纪录。 随机访问方式读文件。 READ file-name RECORD [INTO data1] [INVALID KEY statements][NOT INVALID KEY statements] [END-READ] 如果READ成功且有INTO,将读到的数据写入data1。 如果文件中没有记录,执行INVALID KEY statements,如果没有就执行USE。
MOVEIDTOPA-ID.MOVEUSERNAMETOPA-USERNAME.READPAINVALIDKEYMOVE"23"TOSTATUS-PAEND-READ. 其中MOVE后面的字段一般是传过来的值,是你读文件时限定的条件,TO后面的字段是文件中的字段。一条MOVE TO语句就相当于SQL语句中where字句中的一个条件,查找到符合这两个条件的那条记录。 2)结合循环和游标...
Perform Display '1' END-Perform. Perform 执行语句 见END-Perform结束外联:这个东西调到其他指定的段落或节 PROCEDURE DIVISION O. Perform B THRU C. A. Display 'A'. B. Display 'B'. C. Display 'C'. STOP RUN. Perform Until 条件为true是停止执行循环, 默认条件:WITH TEST BEFORE DATA DIVISION. ...
当我编译没有end-write不同的时候我没有得到任何编译器警告当我不使用end-read或end时 - 如果我得到编译器警告. 有人能帮我理解吗? cobol Ben*_*jer 2015 03-18 2推荐指数 1解决办法 128查看次数 OpenCOBOL示例无法编译 我正在运行Ubuntu,并尝试学习COBOL。我涉猎了一些在线教程,但是与某些程序的结果不...
(ⅲ)END-READ 这是READ文最后必须记述的。 过程的最后必须加终止符。 3.8程序的实际的流程 1打开文件 2根据PERFORM文,进行子过程的前处理 3前处理结束后,根据PERFORM文,转为子过程的输入处理。 4输入处理完成后,返回原来的子过程的前处理。然后进行PERFORM文后的程序。 5因为前处理已经完成,回到原来的主程序。然...
READ file-name RECORD INTO ws-file-structure KEY IS rec-key INVALID KEY DISPLAY 'Invalid Key' NOT INVALID KEY DISPLAY 'Record Details: ' ws-file-structure END-READ. 示例− 以下示例使用索引组织读取现有文件。 该程序可以在大型机上使用JCL进行编译和执行,它将显示文件中存在的所有记录。 在大型机...