#30 problem with evaluate

[Anonymous]

I have the following code:

01 INVENTORY-RECORD.
02 IR-NUMBER.
03 IR-WAREHOUSE PIC XX.
03 IR-CODE PIC X(7).

EVALUATE TRUE
WHEN IR-NUMBER NOT NUMERIC
MOVE "ID NUM NOT NUMERIC" TO
EDL-ERROR-MES
PERFORM B-300-PRINT-LINES
WHEN IR-NUMBER = ZERO
MOVE "ID NUMBER IS ZERO" TO
EDL-ERROR-MES
PERFORM B-300-PRINT-LINES.

when I try to compile it using htcobol 0.60 I get the
following messages:

lab4.cob: 328: incompatible selection object
lab4.cob: 328: parse error
lab4.cob: 328: unknown or wrong statement
lab4.cob: 328: unknown or wrong statement
lab4.cob: 328: unknown or wrong statement
lab4.cob: 329: unknown or wrong statement
lab4.cob: 329: unknown or wrong statement
lab4.cob: 329: unknown or wrong statement
lab4.cob: 329: unknown or wrong statement
lab4.cob: 330: unknown or wrong statement
lab4.cob: 330: unknown or wrong statement
lab4.cob: 331: unknown or wrong statement
lab4.cob: 331: unknown or wrong statement
lab4.cob: 331: unknown or wrong statement
lab4.cob: 331: unknown or wrong statement
lab4.cob: 332: unknown or wrong statement
lab4.cob: 332: unknown or wrong statement
lab4.cob: 332: unknown or wrong statement
lab4.cob: 332: unknown or wrong statement
lab4.cob: 333: unknown or wrong statement
lab4.cob: 333: unknown or wrong statement

This same code compiles using Microfocus NetExpress 3.1
and is valid cobol (85 standards I think). Please fix
the evaluate code to bring it to the standards.

[Bernard Giroud]

Logged In: YES
user_id=1011

Will investigate.