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在工作存储节中定义,...
NOT AT END DISPLAY 'Record Details:' ws-file-structure END-READ. 以下是使用的参数 - NEXT RECORD是可选的,在按顺序读取索引顺序文件时指定。 INTO子句是可选的。 ws-file-structure在WorkingStorage部分中定义,以从READ语句中获取值。 到达文件末尾时,AT END条件变为True。 Example- 以下示例使用行顺序组织...
[INVALID KEY statements][NOT INVALID KEY statements] [END–READ] 如果READ成功且有INTO,将读到的数据写入data1。 如果文件中没有记录,执行INVALID KEY statements,如果没有就执行USE。 如果READ成功,就执行NOT INVALID KEY statements。 如果是相对文件,要设置文件控制项RELATIVE KEY中指定的整型关键字值后才能执...
(ⅲ)END-READ 这是READ文最后必须记述的。 过程的最后必须加终止符。 3.8程序的实际的流程 1打开文件 2根据PERFORM文,进行子过程的前处理 3前处理结束后,根据PERFORM文,转为子过程的输入处理。 4输入处理完成后,返回原来的子过程的前处理。然后进行PERFORM文后的程序。 5因为前处理已经完成,回到原来的主程序。然...
MOVEIDTOPA-ID.MOVEUSERNAMETOPA-USERNAME.READPAINVALIDKEYMOVE"23"TOSTATUS-PAEND-READ. 其中MOVE后面的字段一般是传过来的值,是你读文件时限定的条件,TO后面的字段是文件中的字段。一条MOVE TO语句就相当于SQL语句中where字句中的一个条件,查找到符合这两个条件的那条记录。 2)结合循环和游标...
[END-READ] WIRTE语句 PERFORM(执行语句) 在一个COBOL程序中,过程部中 往往有一部分语句需要执行多次。为了让重复的部分在 程序中只出现一次,可以把重复的部分单独写成一段或 一节(有一个段名或节名),每次执行这部分语句时转 去该段,执行完转回来。这时候就需要用到执行语句 (PERFORM )。
进行各种成功的READ操作。 有START语句标识文件中的纪录。 随机访问方式读文件。 READ file-name RECORD [INTO data1] [INVALID KEY statements][NOT INVALID KEY statements] [END-READ] 如果READ成功且有INTO,将读到的数据写入data1。 如果文件中没有记录,执行INVALID KEY statements,如果没有就执行USE。
... MOVE 15 TO INLEN. EXEC CICS RECEIVE INTO(INPUT-NAME) LENGTH(INLEN) --所接收的最大长度，小于为实际，大于为异常 END-...
FILE-CONTROL.SELECT OUT-FILE ASSIGN TO EXER03O.DATA DIVISION.FILE SECTION.FD OUT-FILE LABEL RECORD IS STANDARD RECORDING MODE IS F.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...
必须将 CICS 命令用于大多数输入和输出处理。 因此,请勿描述文件或编写任何 OPEN , CLOSE , READ , START , REWRITE , WRITE 或 DELETE 语句。 而是使用 CICS 命令来检索,更新,插入和删除数据。 请勿在 CICS 程序中使用 format-1 ACCEPT 语句。 Format-2 启用了 Language Environment ® 的编译器支持 ACCEPT...