IDENTIFICATION DIVISION.
       PROGRAM-ID. TESTOPEN.

      *  Test MF assign-behavior and "OPEN EXTEND!"
      *  --> this program shows a bug which cause
      *      sigsegv (signal 11) at runtime
      *  (in current cvs-snapshot "20040815")
      
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
        FILE-CONTROL.
          SELECT OPTIONAL TESTFILE
      *   SELECT TESTFILE
            ASSIGN TO  FILE-NAME
            ORGANIZATION IS SEQUENTIAL
            FILE STATUS IS FILE-STATUS.
      
       DATA DIVISION.
       FILE SECTION.
       FD  TESTFILE
           RECORD CONTAINS 40 CHARACTERS.
       01 TESTFILE-RECORD.
          05 TESTFILE-CONTENT  PIC X(40).
      
       WORKING-STORAGE SECTION.

       01 FILE-STATUS  PIC XX VALUE "ZZ".

      *   ASSIGN-CLAUSE  "MF-BEHAVIOUR"
      *   --> search for the following Environment-Variables
      *       1.  $DD_TESTFILE  2. $dd_TESTFILE  3. $TESTFILE 
      *   --> in no such Environment-Variable exists 
      *       then the "external" filename literal "TESTFILE" 

      *01 FILE-NAME PIC X(30) VALUE "TESTFILE".
       01 FILE-NAME PIC X(30) VALUE "DII_LOG/TESTFILE".

       PROCEDURE DIVISION.
       S-01.
               OPEN EXTEND TESTFILE.
               DISPLAY "OPEN EXTEND FILE-STATUS:  " FILE-STATUS.
      
      *        OPEN INPUT TESTFILE.
      *        DISPLAY "OPEN INPUT FILE-STATUS:  " FILE-STATUS.
 
      *        READ TESTFILE
      *               AT END DISPLAY "READ :  AT END"
      *           NOT AT END DISPLAY "READ :  NOT AT END"
      *        END-READ.
      
               MOVE "MF assign-behavior ; OPEN EXTEND Test " 
                  TO TESTFILE-CONTENT OF TESTFILE-RECORD OF TESTFILE.
      
               WRITE TESTFILE-RECORD OF TESTFILE.
               DISPLAY "WRITE FILE-STATUS:  " FILE-STATUS.
      
               CLOSE TESTFILE.
               DISPLAY "CLOSE FILE-STATUS:  " FILE-STATUS.
       S-99.
               STOP RUN.