[open-cobol-list] Dynamic naming of files.

[John R. Culleton]

I decided to test this feature with a little test program. With
Tiny Cobol the program copiled, ran and yielded the expected
result (creation of file SUCCESS with one record.)
 Open Cobol 33 would not compile it.

000010 IDENTIFICATION DIVISION.
000020 PROGRAM-ID. TEMPLATE.
000030 AUTHOR. JOHN CULLETON.
000040 INSTALLATION. WEXFORDPRESS
000045            Eldersburg MD.
000050*REMARKS.
000060*    THIS IS A TEMPLATE FOR OPEN COBOL AND HTCOBL.  
000070 ENVIRONMENT DIVISION.
000080 
000090 CONFIGURATION SECTION.
000100 SOURCE-COMPUTER.  
000110      Linux.
000120 OBJECT-COMPUTER. 
000230      Linux.
000140 
000150 INPUT-OUTPUT SECTION.
000160 FILE-CONTROL.
000170     SELECT PRINTFILE ASSIGN TO PRINTER.
           SELECT FUNNYFILE ASSIGN TO FILENAME
           ORGANIZATION IS LINE SEQUENTIAL.
000180 DATA DIVISION.
000190
000200 FILE SECTION.
       FD FUNNYFILE.
       01  FUNREC.
           05 FUNDATA PIC X(30).
000210
000220 WORKING-STORAGE SECTION.
       01  FILENAME PIC X(10) VALUE "SUCCESS". 
000230
000240 PROCEDURE DIVISION.
000250 001-MAIN-PROCEDURE.
           OPEN OUTPUT FUNNYFILE.
           MOVE "XXX" TO FUNDATA.
           WRITE FUNREC.
           CLOSE FUNNYFILE.
           STOP RUN.  


Comments?
-- 
John Culleton