OPEN OUTPUT OutputFile. PERFORM UNTIL EOF READ InputFile INTO InputRecord AT END SET EOF TO TRUE NOT AT END PERFORM FilterData. CLOSE InputFile. PERFORM SortData. PERFORM WRITEOutput. CLOSE OutputFile. STOP RUN. FilterData. IF InputRecord(1:1) = 'A' THEN ADD 1 TO RecordCount MOVE Input...
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可以逆...
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-...
OPEN OUTPUT 文件名3 [,文件名4]。。。 。。。 6。CLOSE语句:当对一个文件的读或写的操作已完成,就应关闭该文件。 CLOSE语句的一般格式为: CLOSE 文件名 1 [,文件名2]。。。 COBOL通过2位长度的文件状态字(FILE-STATUS)来表示文件的操作结果是否成功,常见的文件状态值及意义: 二。算数运算语句 1。ADD语...
OPEN1.INPUT只读2.OUTPUT只写3.I-O读写4.EXTEND写（文件末尾追加）顺序文件（程序部） OPEN1.INPUT只读2.OUTPUT只写3.I-O读写4.EXTEND写（文件末尾追加）顺序文件（程序部） 读文件READfile-name[ATENDstatements][NOTATENDstatements]END-READ 顺序文件（程序部）写文件WRITErecord-name[fromident-name...
01 OUT-R.02 OUT-REC PIC X(80).PROCEDURE DIVISION.S. OPEN OUTPUT OUT-FILE.MOVE SPACE TO OUT-R.M. MOVE 'HELLO WORD!' TO OUT-REC.WRITE OUT-R.E. CLOSE IN-FILE , OUT-FILE.STOP RUN.可以随便些什么到出力文件，但是如果要输出到E:\TEST.TXT文件中，需要你在编译...
COBOL程序题 IDENTIFICATIONDIVISION.PROGRAM-ID.EXAM1.ENVIRONMENT DIVISION. PROCEDUREDIVISION.S.DISPLAY'THIS IS COBOL PROGRAM.' STOP RUN.
COBOL 基本语句--好东西
OPEN语句的一般格式为: INPUT文件名1 [,文件名2]。。。 OPEN OUTPUT文件名3 [,文件名4]。。。 6。CLOSE语句:当对一个文件的读或写的操作已完成,就应关闭该文件。 CLOSE语句的一般格式为: CLOSE文件名1 [,文件名2]。。。 COBOL通过2位长度的文件状态字(FILE-STATUS)来表示文件的操作结果是否成功,常见的...
OPEN OPEN 文件有4 种方式:(如果文件声明为OPTIONAL,则文件不存在会创建文件,否则会 报错) OPEN INPUT FILE-NAME. 只能读取的文件。 OPEN OUTPUT FILE-NAME. 生成写入纪录的文件,读取该文件会出错。若文件已存在,已有记录会被全部删除。 OPEN I-O FILE-NAME. 可读可写的文件。 OPEN EXTEND FILE-NAME. 生成...