MF培训课件——COBOL_NEW.pptVIP

1) INSPECT TALLYING INSPECT org-str TALLYING count-num FOR CHARACTERS {BEFORE/AFTER INITIALIZE idt-str}：统计org-str中的所有字符个数，结果放在count-num中 INSPECT org-str TALLYING count-num FOR ALL repeat-str {BEFORE/AFTER INITIALIZE idt-str}：统计org-str中的所有的repeat-str字符串个数 INSPECT org-str TALLYING count-num FOR LEADING counter-string {BEFORE/AFTER INITIALIZE idt-str}：统计org-str中的前导字符串个数 注意：AFTER和BEFORE分别界定了统计的左右边界，可以同时使用 例如：ORG-STR:“REELWHEEL” INSPECT ORG-STR TALLYING COUNTER FOR ALL “EE” 执行完上述语句之后，COUNTER的结果为2 CHAPTER 5 过程部之二 2) INSPECT REPLACING INSPECT org-str REPLACING CHARACTERS BY new-str {BEFORE/AFTER INITIAL idt-str}：用new-str替换org-str中所有在idt-str后（AFTER）或前（BEFORE）的内容 INSPECT org-str REPLACING ALL (或LEADING或FIRST) old-str BY new-str {BEFORE/AFTER INITIAL idt-str}：用new-str替换org-str中的old-str。 ALL为全部替换；LEADING为将前面所有连续的该字符替换掉；FIRST将第一个该字符替换掉 注意：AFTER和BEFORE分别界定了统计的左右边界，可以同时使用 例如：ORG-STR:“REELWHEEL” INSPECT ORG-STR REPLACING ALL “E” BY “Y”. 执行完上述语句之后，ORG-STR的结果为：RYYLWHYYL CHAPTER 5 过程部之二 3) INSPECT TALLYING REPLACING INSPECT org-str TALLYING count-num FOR CHARACTERS (或LEADING或FIRST) {BEFORE/AFTER INITIAL idt-str} REPLACING CHARACTERS (或ALL或LEADING或FIRST old-str ) BY new-str {BEFORE/AFTER INITIAL idt-str} ：前半句为统计句子，后半句为替换句子 4) INSPECT CONVERTING INSPECT org-str CONVERTING old-str to new-str {BEFORE/AFTER INITIAL idt-str} 注意：这是INSPECT REPLACING的缩写；采用ALL选项，用new-str 替换old-str；old-str 和new-str的长度必须一致；old-str中不能有重复的字符 例如：ORG-STR:“REELWHEEL” INSPECT ORG-STR CONVERTING ALL “EL” BY “ZY”. 执行完上述语句之后，ORG-STR的结果为：RZZYWHZZY CHAPTER 5 过程部之二 本章主要对COBOL语言程序中一些较高技巧的语句做了简要的介绍。本章的 内容包括MOVE语句、算术运算语句和IF语句的较高技巧，包括EVALUATE语 句、RENAME语句、REDEFINES语句、OCCURS语句、字符串语句的用法。 尽管本章的有些语句不属于COBOL的基本语句，但是由于它们在实际工作项 目中被较为广泛地应用，因此学完本章内容之后，这些语句也是要求掌握 的语句。这些语句包括IF语句的较高技巧、EVALUATE语句、REDEFINES语句、 OCCURS语句。 学完本章内容之后需要了解MOVE语句的较高技巧用法及RENAME语句和 CONTINUE语句的用法。 对于算术运算语句的较高技巧用法及字符串语句的用法，可以作为一般了 解的内容。 CHAPTER 5 过程部之二（本章小结） CHAPTER 6 过程部之三 一。执行语句的作用：在一个COBOL程序中，过程部中往往有一