OOPS apologies to all, I sent this to the wrong group !!!
--
Bill Klein
wmklein <at> ix.netcom.com
"William M. Klein" <wmklein@[EMAIL PROTECTED]
> wrote in message
news:bznvj.310458$KG4.66101@[EMAIL PROTECTED]
> 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
>
|
