COBOLⅠ-PROCEDUREDIVISION(中文翻译版).docVIP

PAGE  PAGE 43 第三章 例题1 第二章，学习了DATA DIVISION。 这一章我们学习PROCEDURE DIVISION的写法。 在这里，再一次认一下例题。 ⑴输入输出数据形式 输入数据形式 (b) 输出数据形式 ⑵处理标准 输入文件以50记录/存储块为单位输出 单价，采购数量，采购额以PACK形式输出 采购额用下列公式求出 采购额 = 单价 * 采购数量 数据处理的流程和PAD 刚开始，先考虑1条记录的处理问题。然后试着考虑让这个处理反复进行，直到全部记录处理完为止。 1条记录的处理 ⑴ 1条记录处理的顺序 在主存储器中，根据DATA DIVISION中的FILE SECTION写的记录记述，设定为保存输入记录的输入区域，和为保存输出记录的输出区。 记录处理，使用这些区域的数据，按下面的步骤进行作业。 采购数据输入 ～⑤输入区域的商品编号，商品名，单价，进货数量等数据移动到输出区域。这时，将单价和进货数量的数据从ZONE形式转换成PACK形式 ⑥单价乘以采购数量，即采购额。 ⑦输出区域中的所有数据都备齐了之后，向采购文件进行输出。 （2）处理1条记录的PAD 在第一章我们已经学习过，PAD是用3种记录符号。 使用这些符号，有下面3种处理的基本模式。 处理 在符号中表示处理 　　　　　　　根据处理的顺序，从上向下书写符号 反复（循环） 反复（循环）符号的中间记述着反复的条件 反复处理写在右边 选择 选择符号中写着选择的条件 满足条件，按上方进行处理 不满足条件，按下方进行处理 用PAD表示例题的处理顺序 纪录的输入 在表示输入记录时，标记READ及输入文件的名称 数据的移动 表示数据移动时，指明移动项目和移动目的地项目。 记录的输出 表示输出记录时，标明WRITE和输出文件名 用PAD表示处理顺序时，从上到下画一条线，沿着条线从上到下的顺序就是处理的顺序，并写出基本的模式。 　　　像这样，一连串的处理以怎么样的顺序进行都可以的时候，可以将它们都归纳成1个符号中。 3．2．2记录处理的循环 ⑴ 循环处理 在入力文件中的采购数据中，因为有很多条输入纪录，所以必须每个记录都以同样的顺序进行处理。 同样的处理反复进行时，处理顺序只写1次，直接用循环符号来表示这一操作反复进行。 反复处理，直到输入的记录全部处理完毕，在反复符号中写上“直到文件结束”这一条件。 ⑵第一件记录的输入，第二件以后记录的输入 使用反复符号记述的反复处理，先检查条件，条件没满足之前、执行循环处理。 在例题里，检查输入文件的记录是否都读完了（文件结束），没读完就进行一连串的处理。然后再检查，没读完再处理，循环往复。 但是，输入数据是否读完，不试着输入记录是检查不出来的。为此在我们检查输入数据是否读完前，最开始需要先读入一条记录。 检查输入数据是否读完。 虽然正在循环中，但是因为第一件记录已经输入，所以处理顺序就变成了移动，计算，输出这样的顺序。 因为1个记录已经处理完成，输入下面的记录（输入二条以后的记录） 在所有的数据被处理完之前，按②-③-④的顺序进行反复。 第一件记录是在进行反复处理前输入，第二条以后的记录，在循环处理中的最后输入。 3.2.3　数据的结束和エンドフラグ 所谓的数据结束，是在输入文件的记录时，没有数据则被认定为结束。 此时，为了让循环处理可以结束时用了エンドフラグ这一项目。 ⑴エンドフラグ 事先定义エンドフラグ（Endflag）的标志位。根据输入数据的状态，在程序中采用以下值。 エンドフラグ的内容 输入记录未读完之前……0 输入数据全部读完后……1 数据是否读完，就可以根据エンドフラグ判断。 エンドフラグ为1时表示数据全部结束，因此，循环操作一直进行到エンドフラグ为1。 ⑵PAD的写法 数据结束的判断 对于数据结束来说，输入数据时，计算机能自动判断。 在PAD中READ之后写选择的部分，条件中写上AT END。选择的上侧，是数据完了后的处理，下侧是数据未完时的处理。 在COBOL中，READ以及AT END在一起配套来进行一连串的处理。 （b）エンドフラグ处理的PAD 在3、2、2的PAD中追加エンドフラグ处理。最开始的一件记录输入之前，エンドフラグ的最初值为0。而在1件与2件以后的记录输入处理，要追加[