Re: gnubol: Siemans COBOL2000 - SEARCH and EVALUATE results

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

>>>>> "Bill" == William M Klein <wmklein@ix.netcom.com>
>>>>> wrote the following on Mon, 13 Dec 1999 09:22:18 -0600

  Bill> To understand the following listing, you need to know what a
  Bill> "severity 2" means - which is (according to my source):

  Bill> "2: severe error - offending statement usually dropped, but
  Bill> code generated for the other statements; should not go into
  Bill> production!"

I suspect that the terminator was not assumed at the same point in
each listing.  Too bad their diagnostic is not more specific.

Mike





Listings follow:

ACOBOL2000  V01.0A00  COBOL-TEST                        SOURCE LISTING
08:09:40 1999-12-13  PAGE 0002
â          V     VV
V
     00001        IDENTIFICATION DIVISION.
     00002        PROGRAM-ID. COBOL-TEST.
     00003        DATA DIVISION.
     00004        WORKING-STORAGE SECTION.
     00005        01  A.
     00006          03  B OCCURS 10 INDEXED BY IX PIC X.
     00007        01  A2.
     00008          03  B2 OCCURS 10 INDEXED BY IX2 PIC X.
     00009        01  C   PIC 9.
     00010        PROCEDURE DIVISION.
     00011        001.
     00012            MOVE "1234567890" TO A.
     00013            SEARCH B
     00014                   WHEN B (IX) = "6"
     00015                        SET C TO IX
     00016                        EVALUATE TRUE
    >>>>>  71282 >>>>> 2    STATEMENT MUST BE IMPERATIVE. TERMINATOR ASSUMED.
     00017                            WHEN C = 1
     00018                                 DISPLAY "SURPRISE"
     00019                            WHEN C = 6
     00020                                 DISPLAY "NO SURPRISE"
     00021                            WHEN OTHER
     00022                                 DISPLAY "SURPRISE"
     00023       ***               END-EVALUATE
     00024                   WHEN B (IX) = "7"
     00025                         DISPLAY "5 FOUND"
     00026            .

   *** Sample 2 follows:

ACOBOL2000  V01.0A00  COBOL-TEST                        SOURCE LISTING
08:12:12 1999-12-13  PAGE 0002
â          V     VV
V
     00001        IDENTIFICATION DIVISION.
     00002        PROGRAM-ID. COBOL-TEST.
     00003        DATA DIVISION.
     00004        WORKING-STORAGE SECTION.
     00005        01  A.
     00006          03  B OCCURS 10 INDEXED BY IX PIC X.
     00007        01  A2.
     00008          03  B2 OCCURS 10 INDEXED BY IX2 PIC X.
     00009        01  C   PIC 9.
     00010        PROCEDURE DIVISION.
     00011        001.
     00012            MOVE "1234567890" TO A.
     00013            SEARCH B
     00014                   WHEN B (IX) = "6"
     00015                        SET C TO IX
     00016                        EVALUATE TRUE
    >>>>>  71282 >>>>> 2    STATEMENT MUST BE IMPERATIVE. TERMINATOR ASSUMED.
     00017                            WHEN C = 1
     00018                                 DISPLAY "SURPRISE"
     00019                            WHEN C = 6
     00020                                 DISPLAY "NO SURPRISE"
     00021       ***                 WHEN OTHER
     00022       ***                       DISPLAY "SURPRISE"
     00023       ***               END-EVALUATE
     00024                   WHEN B (IX) = "7"
     00025                         DISPLAY "5 FOUND"
     00026            .



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