* ==== TYPE: ST-START ====
      * FEATURE: START with KEY IS
      * STATEMENT: START
      * BRANCHES: 2, DECISIONS: 1
      * NOTE: START INVALID KEY is pass-through; only IF counts
       IDENTIFICATION DIVISION.
       PROGRAM-ID. STRT.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT FILE-A ASSIGN TO 'FILEA.DAT'
               ORGANIZATION IS INDEXED
               ACCESS IS DYNAMIC.
       DATA DIVISION.
       FILE SECTION.
       FD FILE-A.
       01 REC-A PIC X(80).
       WORKING-STORAGE SECTION.
       01 WS-KEY    PIC X(10) VALUE 'K00050'.
       PROCEDURE DIVISION.
       MAIN.
           OPEN INPUT FILE-A.
           MOVE WS-KEY TO REC-A.
           START FILE-A KEY IS >= WS-KEY
               INVALID KEY DISPLAY 'START FAILED'
               NOT INVALID KEY DISPLAY 'OK: START'.
           CLOSE FILE-A.
           IF WS-KEY > SPACES
               DISPLAY 'OK: START DONE'
           ELSE
               DISPLAY 'ERROR: START'.
           STOP RUN.