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。 动态访问方式读文件。(相对或索引文件) 利用O...
READA1[INTOT][;ATENDMOVE“END”TOENDSW.].读入一条记录,同时赋给其他变量,在文件尾作强制语句(无条件)。 14、WRITE WRITEA1-REC[FROMT].向输出文件写一条记录,FROMT表示先把T赋给A1-REC.注意不用文件名用记录名。 15、STRING STRINGADELIMITEDBYSIZE(或字符),BDELIMITEDBYSPACE,“COUNTRY”INTOC ...
READ语句的一般形式:READ???文件名??RECORD[INTO?标识符]?[AT??END?执行语句],例如: ???READ?IN-FILE??INTOTEMP-RECORD??AT?END??STOP?RUN?该语句除了将读到的数据传送到IN-RECORD之外,还传送到TEMP-RECORD中.在遇到文件尾时,程序结束运行. 4.WRITE...
BLOCK CONTAINS短语的省略引起编译假定,记录是不分块的,并等价于BLOCK CONTAINS 1 RECORD(项目BLOCK CONTAINS 0 RECORDS在IBM OS操作系统下是常见的,并意味着,分块大小将在JCL运行时输入)。 LABEL RECORDS短语是FD中唯一要求的项目。LABEL RECORDS ARE STANDARD暗示使用标准标号,并执行标号处理。LABEL RECORDS ARE OMIT...
实际上,作为分隔符的逗号和分号常常是可以省略的,也就是说,可以用空格作分隔符来 代替。根据经验可用可不用的标点符号以不用为好,避免增加出错的可能。 .6cobolcobol 程序的数据分层程序的数据分层 cobol 程序中的数据也有一个层次关系。大体说来 39、,cobol 中的数据有如下层次文件(file) 记录(record)组合数据...
005900 MOVE ZEROS TO OPTION-INDICS 56 006000 IF CURR-DAY = 01 THEN557 006100 MOVE IND-ON TO NEW-MONTH 006200 END-IF 58 006300 WRITE DISP-REC FORMAT IS "FORMAT1"6006400 INDICATORS ARE OPTION-INDICS 006500 END-WRITE 006600 59 006700 MOVE ZEROS TO RESPONSE-INDICS 60 006800 READ DISPFILE ...
COBOL 基本语句--好东西
COBOL 知识点集锦(上) cobol 知识点集锦 COBOL数据类型 计息是银行的一项重要业务,包括日常代理客户收、付计算客户利息和年度计息等。 目前,这些工作大多数是在IBMES9000主机的SAFE应用系统平台上进行,该系统联机程序 和联机计息程序是用IBM 370汇编语言实现的。为方便汇编语言读写,在 VSAM文件存储的 数据中,数据存放...
(3) 读语句 READ READ 文件名 RECORD [INTO 标识符] [; AT END 执行语句] 其中文件名为内部文件名,它在环境部中和外部文件相关联 RECORD 含义:每执行一次,只是读入一个记录,而非整个文件 (4)写语句 WRITE 在用 WRITE 语句输出一个输出记录前,应当向该记录区传送数据。 –MOVE T1 TO OUTPUT-RECORD. –...
END-IF.要在END-IF后面加句号,中间不加。 不区分大小写 运算符和等号左右两边留空格。()左右两边留空格。 表意常量 (又称字义常量,象征常数或赋形常数。FigurativeConstant) 它用某些英文字(保留字)来代表某些特定的常值。如用ZERO代表数值0,用SPACE代表 ...