COBOL......6

                         COBOL语言之数组

数组子句(OCCURS 子句)

OCCURS 子句指定数据项为固定项目数或可变项目数的数组。OCCURS 子句不能
用于01 和77 层的项目，但可以用于基本或组合数据项目。如：
01  TIME-WORKED.
03  WEEK                PIC  9  OCCURS  7  （TIMES）.

COBOL 允许在OCCURS 子句所在组的下属项目中使用OCCURS 子句，从而提供多
维数组。如：
   01  TIME-WORKED.
       03  MONTH OCCURS          12.            (12 个月)
           05  DAY OCCURS        31 TIMES.      (31 天)
               07  REGULAR       PIC 99.
引用多个OCCURS 子句的数据项时，第一个下标是最外边的OCCURS，后续下标
一直继续到最里层。

循环语句——PERFORM
PERFORM 过程名1 （THRU 过程名2）
        [VARYING 参数1 FROM 初值1 BY 步长1 UNTIL 条件1]
       

循环语句——PERFORM
例如：
PERFORM   T1   VARYING   X   FROM   A    BY   B   UNTIL   X  >  5.
它的作用是：
（一）先把初值A赋给变量X。
（二）判断条件（X > 5）是否符合，如果不满足条件，执行完一遍T1到T2，然
后X + B => X。
（三）再判断条件是否符合，如不满足，再执行一遍T1到T2，然后X + B => X。
如此反复执行（二）（三），直到条件（X > 5）符合为止。
（四）然后返回执行PERFORM语句的下一条语句。
当然，条件不一定要出现循环变量X，如：
A.     MOVE   0  TO  N.
       PERFORM   A1   VARYING   X   FROM   1    BY   5
                                       UNTIL   N >  10.
A1.   ADD   1   TO   N.


循环语句——PERFORM
多重循环形式(从内层开始向外层实行)
PERFORM 过程名1 （THRU 过程名2）
        [VARYING 参数1 FROM 初值1 BY 步长1 UNTIL 条件1]
        [AFTER 参数2 FROM 初值2 BY 步长2 UNTIL 条件2]
        [AFTER 参数3 FROM 初值3 BY 步长3 UNTIL 条件3]
COBOL 允许用到三重循环

例如：
    PERFORM   A   VARYING   I   FROM   1   BY   1   UNTIL   I  >  10
                  AFTER     J   FROM   2   BY   2   UNTIL   J  >  10.
         …
COMPUTE  Z  =  I * J
     DISPLAY  Z.
执行过程：
（一）先使I取初值1，再判断条件I > 10是否满足，如不满足，进行内循环。
（二）给J取初值2。
（三）判断J>10？如不满足，则执行一次A段。
（四）然后J+2=>J。
（五）重复执行（三）（四），再判断J>10？未满足，则执行一次A段，直到J>10为止。
（六）满足J>10，就使I+1=>I。
（七）判断I>10？如仍未满足，就给J重新取初值2。然后重复（三）~（五）。直到I>10为止。
（八）满足I>10后，就转去执行PERFORM语句的下一条语句。


执行语句(PERFORM 语句)
在一个COBOL 程序中，往往有一部分语句是需要多次执行的。我们希望重复的部分只出现一次，即把重复的部分单独写成一段或一节。每次需要执行这部分语句时转去该段，执行完后转回来。这时需要用到执行语句(PERFORM 语句)。另外,当程序很长时,也可以分成若干个节,这些节的调用也是通过这时执行语句(PERFORM 语句)。

PERFORM 语句的一般形式：
PERFORM 过程名1 [THRU 过程名2]


出口语句(EXIT 语句)
EXIT 语句提供了一组过程的公共出口，或者说它指出了被调用过程的逻辑终
点。EXIT 语句不使计算机产生任何动作，它好比一个“桥梁”，能将被调用
过程和调用过程的后续过程连接起来。一般用来作PERFORM语句调用的语句序
列的出口,使程序返回到PERFORM语句的下一个语句上去。
注意EXIT 语句必须是本段中唯一的语句，即该段中不允许有其它语句。
EXIT 语句前必须有一段名。
(1)       PERFORM  A  THRU  B.
           ...
       A.  MOVE  1  TO  X
           ADD   X  TO  Y.
       B.  EXIT.


(2)        PERFORM  A.
           ...
       A.  MOVE  1  TO  X
           ADD   X  TO  Y.

复写语句(COPY 语句)
利用COPY 语句可以可以使某些记录描述和数据描述为不同的程序共用。为此
   要建立一个源程序库，将上述这些共同使用的源程序中的某一部分事先存入库
  中。编码人员用COPY 语句就可以将这些源程序体插入到自己的源程序中。

COPY 语句一般格式：
COPY 库名 REPLACING 标识符1 BY 标识符2

标识符的含义为不超过30 个字符组成的字符序列。
  例如：
COPY IN-FILE REPLACING ==IN== BY ==A==.（用A 替换IN）
COPY 语句不仅可用于数据部，而且也可用于其它部分。使用COPY 语句可以减少写程序的工作量,便于程序的保存和修改。


计算语句(COMPUTE 语句)
COBOL 还提供了一种计算语句，可以进行比较复杂的四则运算。一般格式：
COMPUTE 标识符1 = 算术表达式
例如：COMPUTE Z = (B – A) * 2 + C * X – E / D.
说明：
所有运算符两侧均应留一空格。
括号的外侧应留空格，内侧可不要留空格。
COMPUTE 语句运算速度较单一的加减乘除慢。