* ==== TYPE: ADV-MATCH-COMMENT ====
      * FEATURE: "KEY" appears only in comments
      * STATEMENT: MOVE / DISPLAY
      * BRANCHES: 2, DECISIONS: 1
      * ADVERSARIAL: WS-KEY appears only in *> comment
       IDENTIFICATION DIVISION.
       PROGRAM-ID. KEYCMT.
      *> KEY COMPARISON: WS-KEY-A = WS-KEY-B
      *> THIS IS A MATCHING PROGRAM!
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 WS-A        PIC X(5) VALUE 'ALPHA'.
       01 WS-B        PIC X(5) VALUE 'BETA'.
       PROCEDURE DIVISION.
       MAIN.
           IF WS-A = 'ALPHA'
               DISPLAY 'A'
           ELSE
               DISPLAY 'B'.
           STOP RUN.