More than 5 years have passed since last update.

Gnu-COBOL EVALUATEで条件分岐

cobol
Gnu-COBOL

Last updated at 2020-09-03Posted at 2020-09-03

EVALUATE 条件...END-EVALUATE.

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

DATA DIVISION.
  WORKING-STORAGE SECTION.
    01 SIGNAL PIC X(5).
PROCEDURE DIVISION.
  MAIN SECTION.
  MOVE "YELLOW" TO SIGNAL.

  EVALUATE SIGNAL             *> 「EVALUATE」
    WHEN "RED"                *> 処理部分は「.」不要
      DISPLAY "STOP!"
    WHEN "BLUE"
    WHEN "GREEN"
      DISPLAY "GO!"
    WHEN "YELLOW"
      DISPLAY "CAUTION!"
    WHEN OTHER                *> 「OTHRE」 どの「WHEN」にも当てはまらない場合
      DISPLAY "WRONG SIGNAL!"
    END-EVALUATE.             *> 「END-EVALUATE.」
  STOP RUN.

You get articles that match your needs
You can efficiently read back useful information
You can use dark theme

What you can do with signing up