to CLC
I would like to know what as many compilers as possible do with some
specific
syntax. (My guess is that many - possibly MOST, maybe all) disallow it,
but I
am curious. I do NOT need/want this actually run, I just want to know
what
compilers do with it. (You can use whatever settings you want, but I want
to
know about any compiler informational, warning, or error messages.) Other
than
the commented out "record varying in size" line, I think that this should
compile the same with any '74 or later compiler. As I say, I *expect*
compiler
messages (on the WRITE and READ statements), but I want to know:
A) does any compiler compile this cleanly?
B) if not do you get messages on both the WRITE and the READ
C) what messages do you get
Hopefully, I can get some "mainframe" (IBM and non-IBM) as well as
PC/Unix/Linux
results.
IDENTIFICATION DIVISION.
PROGRAM-ID. TEST1.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT AFILE ASSIGN TO SOMEFILE.
DATA DIVISION.
FILE SECTION.
FD AFILE
* REMOVE ASTERISK FROM FOLLOWING LINE UNLESS USING 74 STANDARD
COMPILER
* RECORD VARYING IN SIZE FROM 10 TO 100
.
01 SMALL-REC PIC X(10).
01 LARGE-REC.
05 FILLER PIC X(90).
05 LAST-PART PIC X(10).
PROCEDURE DIVISION.
MAINLINE.
OPEN OUTPUT AFILE
MOVE ALL "X" TO LAST-PART
WRITE SMALL-REC FROM LAST-PART
CLOSE AFILE
*
OPEN INPUT AFILE
READ AFILE INTO LAST-PART
CLOSE AFILE
.
*
STOP RUN.
* * *
Thanks in advance for your help on this.
--
Bill Klein
wmklein <at> ix.netcom.com
|
