gnucobol-users
[Top][All Lists]
Advanced
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[open-cobol-list] Compile error for nested evaluates

From: Doug Vogel
Subject: [open-cobol-list] Compile error for nested evaluates
Date: Tue Jun 28 10:48:36 2005
User-agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7.2) Gecko/20040804 Netscape/7.2 (ax) 

This program causes a compile error for nested evaluates:

      IDENTIFICATION DIVISION.
      PROGRAM-ID.  TESTERRS.
      ENVIRONMENT DIVISION.
      DATA DIVISION.
      WORKING-STORAGE SECTION.
      01  EVAL-FLAG            PIC X(10).
          88 PIGS-FLY          VALUE 'PIGSFLY'.
          88 COWS-ARE-HOME     VALUE 'COWSRHOME'.
      01  WS-INDEX1            PIC 9(04) BINARY.
      PROCEDURE DIVISION.
      0000-MAINLINE.
          EVALUATE TRUE
              WHEN PIGS-FLY
                  EVALUATE WS-INDEX1
                      WHEN 1
                          CONTINUE
                      WHEN 2
                          CONTINUE
                      WHEN 3
                          CONTINUE
                  END-EVALUATE
              WHEN COWS-ARE-HOME
                  CONTINUE
          END-EVALUATE
          EXIT PROGRAM.
reply via email to
[Prev in Thread] Current Thread [Next in Thread]