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

[Tim Josling <TIMJOSLING@prodigy.net>]

Fujitsu COBOL V3:
** DIAGNOSTIC MESSAGE ** (COBOL-TEST)
D:\AATEJ\S\COBOL\TEST1.COB 19: JMN2509I-S  CONDITIONAL STATEMENT 'ADD' IS
SPECIFIED WHERE IMPERATIVE STATEMENT MUST BE SPECIFIED. ADD STATEMENT ASSUMED
VALID.
D:\AATEJ\S\COBOL\TEST1.COB 26: JMN2509I-S  CONDITIONAL STATEMENT 'ADD' IS
SPECIFIED WHERE IMPERATIVE STATEMENT MUST BE SPECIFIED. ADD STATEMENT ASSUMED
VALID.
D:\AATEJ\S\COBOL\TEST1.COB 30: JMN2509I-S  CONDITIONAL STATEMENT 'ADD' IS
SPECIFIED WHERE IMPERATIVE STATEMENT MUST BE SPECIFIED. ADD STATEMENT ASSUMED
VALID.
STATISTICS: HIGHEST SEVERITY CODE=S, PROGRAM UNIT=1
NMAKE : fatal error U1077: 'D:\PROGRAMS\COBOLV3\PCOBOL32\COBOL32.EXE' : return
code '0x2'
Stop.

I read this to mean they do not support the extension,
Tim Josling

Michael McKernan wrote:

>         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.