gnubol: Siemans COBOL2000 - SEARCH and EVALUATE results

["William M. Klein" <wmklein@ix.netcom.com>]

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

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

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            .

Bill Klein
  wmklein <at> ix.netcom.com


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