Needs some testing

[William M. Klein]

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

[William M. Klein]

OOPS apologies to all, I sent this to the wrong group !!!

--
Bill Klein
wmklein <at> ix.netcom.com

"William M. Klein" <wmk...@nospam.netcom.com> wrote in message
news:bznvj.310458$KG4....@fe09.news.easynews.com...