PERFORM UNTIL EOF READ INTERNET-LOG-FILE AT END MOVE 'Y' TO EOF NOT AT END MOVE USER-ID TO WS-USER-ID MOVE URL TO WS-URL MOVE ACCESS-TIME TO WS-ACCESS-TIME DISPLAY 'USER: ' WS-USER-ID ' URL: ' WS-URL ' TIME: ' WS-ACCESS-TIME END-READ END-PERFORM. CLOSE INTERNET-LOG-FILE...
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-RECORD WRITE OUTPUT-RECORD END-READ END-PERFORM CLOSE CU...
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在工作存储节中定义,...
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。 动态访问方式读文件。(相对或索引文件) 利用...
NOT AT END DISPLAY "Read record: " INPUT-FIELD END-PERFORM CLOSE INPUT-FILE STOP RUN.```在上面的代码中,首先定义了一个文件描述符FD和一个输入记录INPUT-RECORD。然后在工作存储部分定义了一个名为EOF-SWITCH的变量,用于判断文件是否已读取完毕。在主过程中,首先打开输入文件,然后使用PERFORM循环结构来连续...
NOT AT END DISPLAY 'Record Details:' ws-file-structure END-READ. 以下是使用的参数 - NEXT RECORD是可选的,在按顺序读取索引顺序文件时指定。 INTO子句是可选的。 ws-file-structure在WorkingStorage部分中定义,以从READ语句中获取值。 到达文件末尾时,AT END条件变为True。
顺序文件（程序部） OPEN1.INPUT只读2.OUTPUT只写3.I-O读写4.EXTEND写（文件末尾追加）顺序文件（程序部） OPEN1.INPUT只读2.OUTPUT只写3.I-O读写4.EXTEND写（文件末尾追加）顺序文件（程序部） 读文件READfile-name[ATENDstatements][NOTATENDstatements]END-READ 顺序文件（程序部）写文件...
READ-IN. OPEN INPUT IN-PUT. READ IN-PUT NOT AT END PERFORM SQL-IN. AT END DISPLAY 'FILE IS END'. GO TO PRO-END. SQL-IN. EXEC SQL INSERT INTO ZY01 VALUES ( :MATCLE, :NAME, :DEPT, :SALARY) END-EXEC. PRO-END. IDENTIFICATION DIVISION. PROGRAM-ID. SQLFILE. AUTHOR. SD. ENVIRON...
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 LOG-FILE INTO LOG-RECORD AT END SET EOF TO TRUE NOT AT END CALL 'SubmitDataToWeb' USING LOG-RECORD END-PERFORM. CLOSE LOG-FILE. STOP RUN. 在实际应用中,SubmitDataToWeb子程序会使用HTTP协议将数据提交到指定的网站: PROCEDURE DIVISION. ...