选择结构

COBOL中选择结构的语句主要为IF和EVALUATE语句。
zero和88层也常用来简化代码。

 

IDENTIFICATION DIVISION.
PROGRAM-ID. IF1.  
ENVIRONMENT DIVISION.
DATA DIVISION.  
WORKING-STORAGE SECTION. 
01 NUM1 PIC 9 VALUE 1.  
01 NUM2 PIC 9 VALUE 2.
PROCEDURE DIVISION.
             IF NUM1 = NUM2            
                  DISPLAY 'NUM1=NUM2'
             ELSE
                  DISPLAY 'NUM1 NOT = NUM2'
             END-IF.
             STOP RUN.
运行后：
NUM1 NOT = NUM2

假设一个安全系统。当登录时判断账号是否为DAI，密码是否为654321，若符合，则显示相关信息，否者显示提示信息。
IDENTIFICATION DIVISION.  
PROGRAM-ID. IF2.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 NAME PIC X(3).
01 S-NAME PIC X(3) VALUE 'DAI'.
01 PW PIC 9(6).
01 S-PW PIC 9(6) VALUE 654321.
PROCEDURE DIVISION.
             ACCEPT NAME.
             ACCEPT PW.
             IF NAME = S-NAME
                  DISPLAY 'NAME:' NAME
                  DISPLAY 'PW:' PW
              ELSE 
                  DISPLAY ' NAME OR PW ERROR!'
              END-IF.
              STOP RUN.