* ==== TYPE: ADV-MATCH-TINY ====
      * FEATURE: Minimal matching: only 1 read, 1 IF
      * STATEMENT: IF / READ
      * BRANCHES: 2, DECISIONS: 1
      * ADVERSARIAL: Bare-minimum matching program
       IDENTIFICATION DIVISION.
       PROGRAM-ID. TNYMT.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT IN-FILE ASSIGN TO 'INDATA.DAT'.
       DATA DIVISION.
       FILE SECTION.
       FD IN-FILE.
       01 IN-REC.
          05 IN-KEY PIC X(10).
          05 IN-DATA PIC X(50).
       WORKING-STORAGE SECTION.
       01 WS-KEY     PIC X(10).
       01 WS-EOF     PIC X VALUE 'N'.
       PROCEDURE DIVISION.
       MAIN.
           OPEN INPUT IN-FILE.
           READ IN-FILE INTO IN-REC
               AT END MOVE 'Y' TO WS-EOF.
           MOVE IN-KEY TO WS-KEY.
           IF WS-KEY = SPACES
               DISPLAY 'EMPTY'
           ELSE
               DISPLAY WS-KEY.
           CLOSE IN-FILE.
           STOP RUN.