[open-cobol-list] feature request: EVALUATE: partial-expression

[Thomas Biehler]

Hi Keisuke,

i have described my feature request in the following autotest: 
(integrate in (1985)  extension.at or cobol2002-run.at ?)

I do not need the combination of:
   "partial-expression with boolean expression" 
=> new in ISO  2002 !

I need only the original MF-Extenstion to  ANSI 1985!

===========================================================
# MF-Extension to ANSI 1985 
# See Language Reference MF-COBOL 4.2.10
# EVALUATE Statement Syntax Rules (7)
# and !!!  
# ISO/IEC 1989:2002
# 14.8.12.1 (9) ==> Table 16

AT_SETUP([EVALUATE: partial expression])

AT_DATA([prog.cob], [
       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01 X             PIC X  VALUE "1".
       01 Y             PIC X  VALUE "2".
       PROCEDURE        DIVISION.
           EVALUATE  X      ALSO   "2"   ALSO  (1 + 2)
             WHEN = "1"     ALSO  = Y    ALSO  > 2
              DISPLAY "OK" NO ADVANCING
           END-EVALUATE
           STOP RUN.
])

AT_CHECK([${COMPILE} -o prog prog.cob])
AT_CHECK([./prog], [0], [OK])

AT_CLEANUP
=================================================

Shall i hurry me, with my requests?   ;-) 

Thank you for your great work!

Thomas

P.S. Say stop, if i am to fast!  :-))
       ... my TODO list is now a little bit shorter ...