READ 语句的一般形式:READ 文件名 RECORD [INTO 标识符] [AT END 执行语句] , 例如: READ IN-FILE INTO TEMP-RECORD AT END STOP RUN 该语句除了将读到的数据传送到IN-RECORD之外,还传送到TEMP-RECORD中。在遇到文件尾时,程序结束运行。 4。WRITE语句:将内存中的数据输出到外部设备,主要是由WRITE 语句来完...
READ INPUT-FILE INTO INPUT-RECORD AT END MOVE 'Y' TO EOF-SWITCH NOT AT END DISPLAY "Read record: " INPUT-FIELD END-PERFORM CLOSE INPUT-FILE STOP RUN.```在上面的代码中,首先定义了一个文件描述符FD和一个输入记录INPUT-RECORD。然后在工作存储部分定义了一个名为EOF-SWITCH的变量,用于判断文件是否...
READ 语句的一般形式:READ 文件名 RECORD [INTO 标识符] [AT END 执行语句] , 例如: READ IN-FILE INTO TEMP-RECORD AT END STOP RUN 该语句除了将读到的数据传送到IN-RECORD之外,还传送到TEMP-RECORD中。在遇到文件尾时,程序结束运行。 4。WRITE语句:将内存中的数据输出到外部设备,主要是由WRITE 语句来完...
READ 语句的一般格式•READ文件名RECORD [INTO标识符][; AT END执行 语句][END-READ]WIRTE语句PERFORM(执行语句)在一个COBOL程序中,过程部中 往往有一部分语句需要执行多次。为了让重复的部分在 程序中只出现一次,可以把重复的部分单独写成一段或 一节(有一个段名或节名),每次执行这部分语句时转 去该段,...
1 如果你的意思是 MOVE 123 TO A，变量A的类型是 PIC 9(5)，且 A= 45678的话，那么赋值后的A=00123，如果A的类型是 PIC X(5) 的话，赋值后的A=’123 ‘2 应该是先执行段落然后再判断条件的 3 这个是先判断 在执行循环体 4 当读到最后一条记录时执行操作 希望满意 HEH...
END-READ. 1. 2. 3. 4. 下面是所使用的参数: NEXT RECORD是可选的,在顺序读取索引顺序文件时指定。 INTO子句是可选的。ws-file-structure在工作存储节中定义,以从READ语句中获取值。 当到达文件末尾时,AT END条件为true。 例:以下示例使用行顺序组织读取现有文件。这个程序可以使用Try it选项进行编译和执行...
.MOVEUSERNAMETOPA-USERNAME.MOVESPACESTOPA-AGE.STARTPAKEYNOTLESSTHANPA-KEYINVALIDKEYMOVE"40"TOSTATUS-PA.IFSTATUS-PANOT=IOKGOTO100-PROCESS-EXITEND-IF.*开始读文件,这时候读文件要用到next,来移动游标READPANEXTATENDMOVE"10"TOSTATUS-PA.IFSTATUS-PANOT=IOKMOVE"Y"TOEND-OF-CBGOTO200-PROCESS-EXITEND-...
磁盘文件用到的READ语句的一般格式: READ文件名RECORD [INTO标识符] [; AT END强制语句] 4.REWRITE语句:重写语句,用相同长度的记录代替原来的记录,它只能用于用I-O方式打开的文件。在执行REWRITE语句之前,必须先用READ语句读出一条记录,对其进行修改,再用REWRITE语句写回原来位置。不能修改记录的长度和数据的类型。
READ语句的一般形式:READ文件名RECORD [INTO标识符] [AT END执行语句],例如: READ IN-FILE INTO TEMP-RECORD AT END STOP RUN该语句除了将读到的数据传送到IN-RECORD之外,还传送到TEMP-RECORD中。在遇到文件尾时,程序结束运行。 4。WRITE语句:将内存中的数据输出到外部设备,主要是由WRITE语句来完成的。WRITE语...
READ 顺序访问方式读文件。一定要有NEXT字样。 READ file-name [NEXT] RECORD [INTO data1] [AT END statements][NOT AT END statements] [END-READ] 如果READ成功且有INTO,将读到的数据写入data1。 如果文件中没有记录,执行AT ENDstatements,如果没有就执行USE。