IDENTIFICATION DIVISION.
 PROGRAM-ID.          QUALFILE.

*  demonstrate some important aspects of the COBOL-standard feature:
*  -  "qualification with file-name"
*
* (=> it shows the qualification bug in current cvs-version of open-cobol)
*
*  here are the references to the COBOL-standard for this feature: 
*
*  - ANSI INCITS 23-1985 (R2001) 
*     --> 4.3.8.1  Format(1,4) ...
* 
*  -  ISO/IEC 1989:2002(E) 8.4.1.1 
*     --> 8.4.1.1.1  Format(1,2,3,6,7) ...

 ENVIRONMENT DIVISION.
 INPUT-OUTPUT SECTION.
  FILE-CONTROL.
    SELECT TESTFILE
      ASSIGN TO  "TESTFILE"
      ORGANIZATION IS INDEXED
      ACCESS MODE  IS DYNAMIC
      RECORD KEY IS TESTFILE-KEY OF TESTFILE-RECORD OF TESTFILE.
    SELECT TESTFILE-2
      ASSIGN TO  "TESTFILE-2"
      ORGANIZATION IS INDEXED
      ACCESS MODE  IS DYNAMIC
      RECORD KEY IS TESTFILE-KEY OF TESTFILE-2.

 DATA DIVISION.
 FILE SECTION.
 FD  TESTFILE
     RECORD CONTAINS 35 CHARACTERS.
 01 TESTFILE-RECORD.
    05 TESTFILE-KEY      PIC X(5).
    05 TESTFILE-CONTENT  PIC X(30).

 FD  TESTFILE-2
     RECORD CONTAINS 35 CHARACTERS.
 01 TESTFILE-RECORD.
    05 TESTFILE-KEY      PIC X(5).
    05 TESTFILE-CONTENT  PIC X(30).
    
 PROCEDURE DIVISION.
 S-01.
         OPEN OUTPUT TESTFILE.
         MOVE "00001" TO TESTFILE-KEY OF TESTFILE-RECORD OF TESTFILE.
         MOVE "Filename-Qualification-Test 1" 
            TO TESTFILE-CONTENT OF TESTFILE-RECORD OF TESTFILE.
         WRITE TESTFILE-RECORD OF TESTFILE.
         CLOSE TESTFILE.
 S-50.
         OPEN OUTPUT TESTFILE-2.
         MOVE "00002" TO TESTFILE-KEY OF TESTFILE-2.
         MOVE "Filename-Qualification-Test 2" 
            TO TESTFILE-CONTENT OF TESTFILE-2.
         WRITE TESTFILE-RECORD OF TESTFILE-2.
         CLOSE TESTFILE-2.
 S-99.
         STOP RUN.