COBOL......5

PERFORM 语句
使用PERFORM语句实现循环
  语法：
           PERFORM    循环条件
             。。。
           END-PERFORM


条件语句(IF 语句)
关系运算符意义
IS GREATER THAN     (>)              大于
IS LESS THAN        (<)              小于
IS EQUAL TO         (=)              等于
NOT GREATER THAN    (NOT >)          不大于
NOT LESS THAN       (NOT <)          不小于
NOT EQUAL TO        (NOT =)          不等于

IF 语句的两种形式
IF  条件语句组  END-IF
IF  条件语句组1 ELSE 语句组2  END-IF


IF 语句高级应用
符号条件
用来检查某数据项的值的代数符号。
符号条件的一般形式：
数据名 IS [NOT]    POSITIVE(正:还可表示为”IF … > ZERO”)
     算术表达式    NEGATIVE(负:还可表示为”IF … < ZERO”)
                   ZERO(还可表示为”IF … = ZERO”)

类型条件
检查数据项的类型是否符合指定的要求。
类型条件的一般形式：
标识符 IS [NOT] NUMERIC
                ALPHABETIC


IF 语句高级应用
复合条件
由若干个简单的条件可以组成复合的条件。COBOL 用到的逻辑运算符有：AND、OR、NOT。如果在同一个IF 语句中用到AND，OR，NOT，运算顺序按NOT,AND,OR 的次序。
IF 语句的嵌套(通常最多允许四层IF 语句的嵌套)
IF 条件1
   语句组1
   ( IF 条件11
        语句组11
     ELSE
        语句组12
     END-IF )
ELSE
    语句组2
    ( IF 条件22
         语句组21
      ELSE
         语句组22
      END-IF )
END-IF

INITIALIZE语句
INITIALIZE语句将数据项的值设置为初始值。如果不指定要设置的数
据项数值，则数字和数字编辑型数据初始化为0，其它所有数据项初始
化为空格。
   
    INITIALIZE语句的一般形式：
         
             INITIALIZE   数据名



ACCEPT 语句
ACCEPT语法：
   
        ACCEPT  标识符   [FROM   助忆名]

    例：
        ACCEPT A  FROM  DATE
        ACCEPT A  FROM  DAY
        ACCEPT A  FROM  DAY-OF-WEEK
        ACCEPT A  FROM  TIME