* ==== TYPE: ADV-MATCH-ASCII-EBCDIC-KEY ====
      * FEATURE: Has both ASCII/EBCDIC conversion and WS-KEY
      * STATEMENT: INSPECT / IF
      * BRANCHES: 2, DECISIONS: 1
      * ADVERSARIAL: L1 keyword conflict: 编码转换 vs マッチング
       IDENTIFICATION DIVISION.
       PROGRAM-ID. ASCMT.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 WS-KEY     PIC X(10) VALUE 'ABCDEF0123'.
       01 WS-EBCDIC  PIC X(10).
       01 WS-CHAR    PIC X(1).
       01 WS-I       PIC 9(2).
       PROCEDURE DIVISION.
       MAIN.
           MOVE SPACES TO WS-EBCDIC.
           PERFORM VARYING WS-I FROM 1 BY 1 UNTIL WS-I > 10
               MOVE WS-KEY(WS-I:1) TO WS-CHAR
               IF WS-CHAR >= 'A' AND <= 'Z'
                   DISPLAY 'ALPHA'
               ELSE
                   DISPLAY 'DIGIT'.
           STOP RUN.