[Tiny-cobol-users] A problem with EVALUATE

[Jim M. <ro...@vi...>]

Here is another cut down listing.

It demonstrates what I believe to be a bug in the compiler concerning
the EVALUATE statement.

When I compile it, I get the following error message:

jim.cbl:    18: error: incompatible selection object, on or before '='

Jim

                      IDENTIFICATION DIVISION.
      2 000300 PROGRAM-ID.              rgmssch.
      3 001200 ENVIRONMENT DIVISION.
      4 001700
      5 001900 DATA DIVISION.
      6 002100 FILE SECTION.
      7 002300
      8 002500 WORKING-STORAGE SECTION.
      9
     10        01  LICENCE-DAYS              PIC 9(5).
     11
     12
     13
     14 019500 PROCEDURE DIVISION.
     15 020200 MAINLINE.
     16
     17            EVALUATE TRUE
     18                WHEN LICENCE-DAYS = ZERO
     19                     CONTINUE
     20            END-EVALUATE.
     21