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

[Gary Cowell]

 --- "William M. Klein" <address@hidden> wrote:


> As the person who actually "owned" and maintained
> (as a writer/developer)
> the Micro Focus "LRM" for over 5 years, I would
> agree that almost anything
> that is documented as working DOES work. HOWEVER, I
> would also say that
> there are an INCREDIBLY large number of features
> that work (and may even
> have been documented in the past) but ARE NOT
> documented (as valid) in
> current Language Reference manuals.
> 
> The "simple" test that I was curious about (in the
> current compiler) is
> something like:
> 
>       $SET MF
>        Identification Division.
>         Program-ID.  TestEval.
>        Data Division.
>         Working-Storage Section.
>        01  AlphaNum   Pic X  Value "Y".
>        01  Num        Pic 9  Value 4.
>        Procedure Division.
>         Mainline.
>            Evaluate AlphaNum >
>              When "L"
>                 Display "Pass 1"
>              When "G" and Num Not = 6
>                 Display "Display 2"
>              When Other
>                 Continue
>            End-Evaluate
>            Stop Run . 
> 
> ***
> 

I have attmpted to compile the above with MF and I get
the following errors:

    11       When "L"
*  14-S**********                                     
                      **
**    Invalid operand
    13       When "G" and Num Not = 6
* 563-S**********                                     
                      **
**    A "WHEN" phrase did not have a matching verb and
was discarded.
    15       When Other
* 563-S**********                                     
                      **
**    A "WHEN" phrase did not have a matching verb and
was discarded.
    17     End-Evaluate
* 564-S****************                               
                      **
**    A scope-delimiter did not have a matching verb
and was discarded.



        
        
                
___________________________________________________________
Yahoo! Messenger - Communicate instantly..."Ping" 
your friends today! Download Messenger Now 
http://uk.messenger.yahoo.com/download/index.html