Re: Would someone compile this for me?

Rick Smith wrote: 
"William M. Klein" <wmklein@xxxxxxxxxxxxxxxxx> wrote in message
news:JcWzf.147631$Es3.139201@xxxxxxxxxxxxxxxxxxxxxxxxx

I would like to know if IBM Enterprise COBOL and Micro Focus COBOL compile
"cleanly" (no warnings or even informational messages), the following


source

code (snippet). Please put it into a valid program structure and let me 

know

the results.

Working-Storage Section.
01  A.
     05 B.
         10 C PIC X.
     04 D.
         05 E PIC X.

(Both of these compilers document an extension for "non-Standard level
numbers").  If easy, please compile both with and without FLAGSTD turned


on.

(If you feel like it, email me - off-list - the compiler listings)

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



-----
* Micro Focus COBOL Version 3.2.24   L2.5 revision 000 19-Jan-06 20:15 Page
1
*                                  C:\CBL-CHAL\KLEIN.CBL
* Options: WB ERRQ EDITOR(MF) LIST() NOOSVS ANS85 NOVSC2 CSI ANIM ENSUITE(2)
CON
     1$set ans85 flagstd"h"
     2 identification division.
     3 program-id. klein.
     4 data division.
     5 Working-Storage Section.
     6 01  A.
     7     05 B.
     8         10 C PIC X.
* 554-VSC2 ----------                                                  (
0)--
**    Syntax is non-conforming non-standard ANS85
**    Line: 8 Column: 21
**    Level hierarchy wrong
     9     04 D.
    10         05 E PIC X.
    11 procedure division.
    12 begin.
    13     stop run.
    14 end program klein.
* Micro Focus COBOL Version 3.2.24   L2.5 revision 000
*
* Total Messages:     1
* Unrecoverable :     0                    Severe  :     0
* Errors        :     0                    Warnings:     0
* Informational :     0                    Flags   :     1
* Data:         500     Code:          59
-----

With FLAGSTD"h", I get the same results with Server Express 4.0. Without FLAGSTD"h", the source compiles cleanly (as per Rick's second listing).

SimonT.
.