Question

How to use switch statement with strings in COBOL

Answer 1

IDENTIFICATION DIVISION.
PROGRAM-ID. StringSwitch.

DATA DIVISION.
WORKING-STORAGE SECTION.
01  STR-VALUE     PIC X(10) VALUE "Cobol".

PROCEDURE DIVISION.
  EVALUATE STR-VALUE
    WHEN "Foo"
      DISPLAY "Foo"
    WHEN "Wii"
      DISPLAY "Wii"
    WHEN "Cobol"
      DISPLAY "Cobol"
    WHEN "YYI"
      DISPLAY "YYI"
    WHEN OTHER
      DISPLAY "No match found."
    END-EVALUATE.
STOP RUN.



*> run:
*>
*> Cobol
*>

 

70+ SQL courses for beginners and professionals