01 OUTPUT-RECORD PIC X(50). WORKING-STORAGE SECTION. 01 END-OF-FILE PIC X VALUE 'N'. PROCEDURE DIVISION. OPEN INPUT CUSTOMER-FILE OPEN OUTPUT OUTPUT-FILE PERFORM UNTIL END-OF-FILE = 'Y' READ CUSTOMER-FILE AT END MOVE 'Y' TO END-OF-FILE NOT AT END MOVE CUSTOMER-RECORD TO OUTPUT-...
OPEN INPUT InputFile. 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 ...
OPEN语句:程序中如果需要读写文件,则该文件必须先用OPEN语句打开,系统在执行READ,WRITE以前先检查该文件是否已在规定的外部设备上准备就绪。 OPEN语句的一般格式为: INPUT 文件名1 [,文件名2]。。。 OPEN OUTPUT 文件名3 [,文件名4]。。。 。。。 6。CLOSE语句:当对一个文件的读或写的操作已完成,就应关闭...
OPEN1.INPUT只读2.OUTPUT只写3.I-O读写4.EXTEND写（文件末尾追加）顺序文件（程序部） 读文件READfile-name[ATENDstatements][NOTATENDstatements]END-READ 顺序文件（程序部）写文件WRITErecord-name[fromident-name].关闭文件CLOSEfile-name 索引文件 环境部(FILE-CONTROL)SELECT[OPTIONAL]...
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方式中打开 ...
打开语句(OPEN 语句) OPEN 语句一般格式: OPEN INPUT OUTPUT 内部文件名 I-O EXPEND INPUT 方式:文件只能读取。如果要打开的输入文件不存在,则会触发出错误处理。 OUTPUT 方式:生成程序写入记录的新文件。如果要打开的输出文件已经存在,则所有记录被删除,否则生成新文件 ...
OPEN INPUT InputDataFile. OPEN OUTPUT OutputReportFile. PERFORM UNTIL END - OF - FILE READ InputDataFile AT END CLOSE InputDataFile CLOSE OutputReportFile NOT AT END IF InputData > ThresholdValue MOVE InputDeviceIP TO OutputDeviceIP MOVE "High value detected" TO ProcessedData ...
01 OutputRecord PIC X(80). WORKING-STORAGE SECTION. 01 WS-Report PIC X(80). PROCEDURE DIVISION. Open-File. OPEN OUTPUT OutputFile. Write-Report. MOVE 'Sales Report' TO WS-Report WRITE OutputRecord FROM WS-Report. MOVE 'Total Sales: ' TO WS-Report ...
文件操作(OPEN READ WRITE CLOSE...) 关键字:INPUT, OUTPUT, I-O, or EXTEND 文件类型: Sequential files Indexed files Relative files Transaction files. 要在COBOL中使用文件,要在3个不同的部中放上信息。 环境部,要有程序使用的每个文件的文件控制项目(FILE-CONTROL)。这个项目将程序...
88 WS-OUTPUT-FILE-SUCCESSFUL VALUE 0. PROCEDURE DIVISION. A000-MAIN. PERFORM A100-OPEN-FILES PERFORM R000-READ-FILE PERFORM A200-PROCESS-RECORD UNTIL WS-INPUT-FILE-EOF PERFORM A300-CLOSE-FILES STOP RUN . A000-EXIT. EXIT . A100-OPEN-FILES. ...