CHAPTER 2 过程部初步-----最基本的过程部语句.docVIP

CHAPTER 2 过程部初步最基本的过程部语句 一。输入输出语句。 1。ACCEPT语句：直接从终端键盘或系统指定的输入设备上输入数据。 ACCEPT 标识符 [FROM 助忆名] 注：A。标识符(identifier)指的是能唯一地标识一个数据项的数据名，不能唯一地标识一个 数据项的数据名不是标识符。标识符可以是组合项。 B。在ACCEPT语句中如不写FROM部分，如ACCEPT A ，则表示从系统隐含指定的 设备上读入一个数据给A。 如果不想从指定的设 备上输入，则要用FROM 选项, 这时“助忆名”需要在环境部中事先说明和那种外部设备相联系。如： ENVIRONMENT DIVISION。（环境部） CONFIGRATION SECTION。（配置节） SPECIAL-NAMES。（专用名段） CONSOLE IS ABC 如在过程部中有 ACCEPT T FROM ABC。 则表示要从控制台接收数据 2。DISPLAY语句：从计算机内存中输出到某一指定的输出设备上。 DISPLAY { 标识符1，常量1}[标识符2，常量2]。。。[UPON 助忆名] （ 标识符和助忆名的说明同上） ACCEPT语句和DISPLAY语句不必定义文件适用于少量的数据输入输出。 3。READ语句：COBOL语言中数据的输入输出主要是通过对外部文件的读写进行的。READ 语句就是从外部文件上读入数据输出到程序中的数据项中。在程序中用到的所有文件都需要在环境部中指定程序中用到的文件名与实际外部文件的联系。数据部也要对文件加以描述。指定数据结构各数据项所占的内存单元长度以及数据形式。 COBOL 的存取是以文件为对象以记录为单位的。 READ语句的最简单的格式为： READ 文件名 ENVIRONMENT DIVISION。 INPUT-OUTPUT SECTION。 FILE-CONTROL。 SELECT IN-FILLE ASSIGN TO 外部文件名。 为了存储读入的记录，必须在内存开辟一个与文件记录长度相等的存储区，即‘输入文件纪录区’。每一个输入文件都有相应的‘输入文件纪录区’，与之一一对应。亦即在数据部中描述文件的数据结构。 3。READ语句： 假设 IN-FILE 文件每一记录中包含的内容为：产品代码，产品数量，产品单价，生产日期。设某一记录的具体数据 如下：0 0 1 0 0 1 0 0 0 0 0 1 0 0 0 1 9 9 9 0 3 2 2 prodcode quantity price year mon day 如果我们希望读入该记录并对各数据项进行处理，则需要在 ‘输入纪录区’中划分出各数据项，以便存放相应的数据。定义输入纪录区以及划分记录区中各数据项的工作是由数据部来完成的。下面我们简单介绍数据部定义记录区方法，针对上面输入数据的特点，我们可以在数据部中对记录区作如下描述： DATA DIVISION。 FD IN-FILE LABLE RECORD IS STANDARD。 01 IN-RECORD。 （定义记录区名为IN-RECORD） 02 PROD-CODE PIC 9（4）。 02 PROD-QUANTITY PIC 9（5）。 02 PROD-PRICE PIC 9（6）。 02 MANU-DATE。（生产日期为一组合项） 05 DATE-CCYY PIC 9（4）。 05 DATE-MM PIC 9（2）。 05 DATE-DD PIC 9（2）。 其中，FD 即 FILE DESCRIPTION，表示从该行起是‘文件描述体’。 LABLE RECORD IS STANDARD ：所有的磁盘文件和磁带文件都必须写明此句。 01 层定义‘输入纪录区’ 的名字为IN-RECORD，由于 01层属于FD描述体，因此也就指定了 IN-RECORD