       IDENTIFICATION DIVISION.
       PROGRAM-ID. oef12.
       AUTHOR. gesje.
       DATE-WRITTEN. 22oktober.

       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER. PC.
       OBJECT-COMPUTER. PC.

       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
          SELECT optional cdbestand
             ASSIGN TO "cd-bestand.dat"
             ORGANIZATION SEQUENTIAL
             ACCESS SEQUENTIAL
             FILE STATUS cdbestand-status.

       DATA DIVISION.
       FILE SECTION.
       FD cdbestand
       01 C-cdrecord.
          03 C-nummer pic X(15).
          03 C-titel pic X(10).
          03 C-uitvoerder pic X(20).
          03 C-aantal pic 99.
          03 C-genre pic X(15).
          03 C-prijs pic 9(4).
          03 C-releasedatum pic 99/99/99.


       WORKING-STORAGE SECTION.

       SCREEN SECTION.
       copy "oef12.txt".

       PROCEDURE DIVISION.
