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

[William M. Klein]

I am NOT at all positive about this, but I *think* that the MF extension is
slightly different from the ISO 2002 Support.  As I recall - MF allows:

  Evaluate ABC >
     When "X" 
            ....

While the ISO 2002 Standard would only allow 

  Evaluate ABC
     When > "X"

In other words, I think that MF allows the expression to be "broken"
anywhere - while ISO 2002 REQUIRES that only the "subject" be in the
EVALUATE statement - and the rest be in the WHEN.  

Bottom-Line:
  Before implementing this, one needs to "check" out the exact supported
syntax in each definition.

> -----Original Message-----
> From: address@hidden 
> [mailto:address@hidden On 
> Behalf Of Thomas Biehler
> Sent: Wednesday, February 18, 2004 9:33 AM
> To: address@hidden
> Cc: Keisuke Nishida
> Subject: [open-cobol-list] feature request: EVALUATE: 
> partial-expression
> 
> 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 ... 
> 
> 
> -------------------------------------------------------
> SF.Net is sponsored by: Speed Start Your Linux Apps Now.
> Build and deploy apps & Web services for Linux with
> a free DVD software kit from IBM. Click Now!
> http://ads.osdn.com/?ad_id56&alloc_id438&op=ick
> _______________________________________________
> open-cobol-list mailing list
> address@hidden
> https://lists.sourceforge.net/lists/listinfo/open-cobol-list
>