> 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
