Re: gnubol: How do we parse this language, anyway?

[Michael McKernan <mck@tivoli.mv.com>]

>>>>> "Sébastien" == =?iso-8859-1?Q?S=E9bastien=20Ducl=E9roir?=  <iso-8859-1>
>>>>> wrote the following on Fri, 03 Dec 1999 18:49:02 +0100

  Sébastien> Mike Mckernan a écrit :
  >>  We had hoped that someone would be able to try this program on
  >> one or more IBM compilers, but that has not happened, at least
  >> not yet.
  >> 

  Sébastien> I don't read the list regularly, so I miss this thread
  Sébastien> about a test program. We use IBM Cobol compiler on AIX
  Sébastien> 4.2.1, so, if not too late, I can compile the test
  Sébastien> programm if you send it to me, or tell me where to get
  Sébastien> it quickly, cause I'm a little bit busy those days :(

  Sébastien>   Regards,



>>>>> "Jonathon" == J & C Migrations, Pty <migrate@tiac.net>
>>>>> wrote the following on Fri, 03 Dec 1999 14:11:00 -0500

  Jonathon> At 12:40 PM 12/3/99 -0500, Mike Mckernan wrote: <snip>

  >> We had hoped that someone would be able to try this program on
  >> one or more IBM compilers, but that has not happened, at least
  >> not yet.

  Jonathon> If the tests are not too large, I may be able to help the
  Jonathon> next time around.  I have limited access to IBM's COBOL
  Jonathon> for MVS & VM, and to the CA-Realia COBOL compilers.  With
  Jonathon> some effort I can also access an ACUCOBOL GT compiler.


        IDENTIFICATION DIVISION.
        PROGRAM-ID. COBOL-TEST.
        DATA DIVISION.
        WORKING-STORAGE SECTION.
        01  W   PIC 9.
        01  X   PIC 9.
        01  Y   PIC 9.
        01  Z   PIC 9.

        PROCEDURE DIVISION.
        001.
            MOVE 8 TO X Z
            MOVE 9 TO W Y

            ADD 1 TO W
               SIZE ERROR
               DISPLAY "OVERFLOW ON W"
               
               ADD 1 TO X
                  SIZE ERROR
                  DISPLAY "OOPS - UNEXPECTED RESULT"

                  NOT SIZE ERROR
                  DISPLAY "NO OVERFLOW ON X"

                  ADD 1 TO Y
                     SIZE ERROR
                     DISPLAY "OVERFLOW ON Y"

                     ADD 1 TO Z
                         SIZE ERROR
                         DISPLAY "OOPS - UNEXPECTED RESULT"

                         NOT SIZE ERROR
                         DISPLAY "NO OVERFLOW ON Z"
                         DISPLAY "RIGHT ASSOCIATION IS SUFFICIENT"

                     NOT SIZE ERROR
                     DISPLAY "OOPS - UNEXPECTED RESULT"

               NOT SIZE ERROR
               DISPLAY "OOPS - UNEXPECTED RESULT"
           
            END-ADD
            
        .




--
This message was sent through the gnu-cobol mailing list.  To remove yourself
from this mailing list, send a message to majordomo@lusars.net with the
words "unsubscribe gnu-cobol" in the message body.  For more information on
the GNU COBOL project, send mail to gnu-cobol-owner@lusars.net.