[open-cobol-list] Version 1.1 Bug in File-Control ?

[Kurt Derichs]

Hello,

I was wondering weather or not this is a compiler error that the following 
program can be compiled without error message.
SELECT INFILE ASSIGN        TO INFILE-FILE-NAME
but due to a typo the variable was never defined
03 INFILE-FILENAME                pic x(256).

I tested the program on open cobol 1.1 compiled on ubuntu 7.10 64 bit. If you 
need more infos just let me now.

Bye

Kurt

PS: I registered in the OpenCobol Forum but I can login. Perhaps someone can 
help me with this as well.

      PROGRAM-ID. hello
       AUTHOR. Kurt Derichs
       DATE-COMPILED. 20080210

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

       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT INFILE ASSIGN        TO INFILE-FILE-NAME
                  ORGANIZATION         IS LINE SEQUENTIAL
                  ACCESS MODE          IS SEQUENTIAL
                  FILE STATUS          IS INFILE-ERR-STATUS.

       DATA DIVISION.
       FILE SECTION.
       FD INFILE
          data record is infile-satz.
       01 INFILE-SATZ              PIC X(80). 

       WORKING-STORAGE SECTION.
       01 INFILE-DATA.
             03 INFILE-FILENAME                pic x(256).
             03 INFILE-ERR-STATUS              pic 99.

       PROCEDURE DIVISION.
       start-10.
           move "/tmp/test" to infile-filename.
           move zero          to infile-err-status.
           open input infile.
           close infile.

       start-99.
       STOP RUN.

-- 
Psssst! Schon vom neuen GMX MultiMessenger gehört?
Der kann`s mit allen: http://www.gmx.net/de/go/multimessenger