COBOL 条件语句.pdfVIP

COBOL 条件语句 条件语句是⽤来根据程序员指定的某些条件改变的执⾏流程。条件语句将最终评估为 真或 。条件被使⽤在if IF , Evaluate 和 Perform语句。不同类型的条件语句如下： IF条件语句 关系条件 注册条件 类条件 条件名条件 否定条件 组合条件 IF条件语句 IF语句检查条件。 如果条件为真，则执⾏IF块; 并且如果条件为 ，则执⾏ELSE块。 END-IF⽤于结束IF块。 为了结束IF块，可以使⽤⼀个周期⽽不是END-IF 。 但是对于 多个IF块使⽤END-IF是最好的。 Nested-IF ：IF块出现在另⼀个IF块中。 嵌套IF语句的深度没有限制。 句法 以下是IF条件语句的语法： IF [condition] THEN [COBOL statements] ELSE [COBOL statements] END-IF. 例 IDENTIFICATION DIVISION. PRO RAM-ID. HELLO. DATA DIVISION. WORKIN -STORA E SECTION. 01 WS-NUM1 PIC 9(9). 01 WS-NUM2 PIC 9(9). 01 WS-NUM3 PIC 9(5). 01 WS-NUM4 PIC 9(6). PROCEDURE DIVISION. A000-FIRST-PARA . MOVE 25 TO WS-NUM1 WS-NUM3. MOVE 15 TO WS-NUM2 WS-NUM4 . IF WS-NUM1 WS-NUM2 THEN DISPLAY IN LOOP 1 - IF BLOCK IF WS-NUM3 = WS-NUM4 THEN DISPLAY IN LOOP 2 - IF BLOCK ELSE DISPLAY IN LOOP 2 - ELSE BLOCK END-IF ELSE DISPLAY IN LOOP 1 - ELSE BLOCK END-IF. STOP RUN. JCL执⾏上述COBOL程序： //SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MS CLASS=C //STEP1 EXEC P M=HELLO 当你编译和执⾏上⾯的程序，它会产⽣以下结果： IN LOOP 1 - IF BLOCK IN LOOP 2 - ELSE BLOCK 关系条件 关系的条件⽐较两个操作数，或者可以是⼀个标识符，⽂字，或算术表达式。⽆论⼤ ⼩和使⽤⼦句，含有较⼤数量的字符被宣布是⼤数。 对于⾮数字操作数 如果两个相同⼤⼩的⾮数字操作数进⾏⽐较则字符进⾏⽐较从左与相应的位置，直到 达到终点。字符的含有操作数较⼤数⽬被声明越⼤。 如果不相等⼤⼩的两个⾮数字操作数进⾏⽐较，则短的数据项是在端附加有空间，直 到操作数的⼤⼩变为等于然后根据在前⾯的点提到的规则相⽐较。 语法 下⾯给出以下是关系条件语句的语法： [Data Name/Arithmetic Operation] [IS] [NOT] [Equal to (=), reater than (), Less than (), reater than or Equal (=), Less than or equal (=) ] [Data Name/Arithmetic Operation] 例 IDENTIFICATION DIVISION. PRO RAM-ID. HELLO. DATA DIVISION. WORKIN -STORA E SECTION. 01 WS-NUM1 PIC 9(9). 01 WS-NUM2 PIC 9(9). PROCEDURE DIVISION. A000-FIRST-PARA . MOVE 25 TO WS-NUM1. MOVE 15 TO WS-NUM2. IF WS-NUM1 IS REATER THAN OR EQUAL TO WS-NUM2 THEN DISPLAY WS-NUM1