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