[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[open-cobol-list] Dynamic naming of files.
From: |
John R. Culleton |
Subject: |
[open-cobol-list] Dynamic naming of files. |
Date: |
Fri, 30 Jun 2006 18:35:46 -0400 |
User-agent: |
KMail/1.9.3 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [open-cobol-list] Dynamic naming of files.,
John R. Culleton <=