* ==== TYPE: ST-DELETE ====
      * FEATURE: DELETE file record with INVALID KEY
      * STATEMENT: DELETE
      * BRANCHES: 2, DECISIONS: 1
      * NOTE: DELETE INVALID KEY is pass-through; only IF counts
       IDENTIFICATION DIVISION.
       PROGRAM-ID. DELFIL.
       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 'KEY001'.
       PROCEDURE DIVISION.
       MAIN.
           OPEN I-O FILE-A.
           MOVE WS-KEY TO REC-A.
           DELETE FILE-A
               INVALID KEY DISPLAY 'KEY NOT FOUND'
               NOT INVALID KEY DISPLAY 'OK: DELETED'.
           CLOSE FILE-A.
           IF WS-KEY = 'KEY001'
               DISPLAY 'OK: DELETE DONE'
           ELSE
               DISPLAY 'ERROR: DELETE'.
           STOP RUN.