Re: gnubol: IS/ARE revisited

[Matthew Vanecek <mev0003@unt.edu>]

RKRayhawk@aol.com wrote:
[snipped]

That's pretty interesting, and I may not be understanding what you are
implying correctly, but it seems to me that you could take the following
snippet:

           EVALUATE T-TRANS-TYPE
               WHEN ' N' PERFORM 3220-EDIT-PERSONAL-INFO
               WHEN 'NA' PERFORM 3220-EDIT-PERSONAL-INFO
               WHEN ' A' PERFORM 3230-EDIT-ADDR-INFO
               WHEN 'PV' PERFORM 3240-EDIT-CODE-V-CHANGE
               WHEN ' V' PERFORM 3250-EDIT-VALUE-CHANGE
               WHEN 'AA' PERFORM 3260-ADD-DEL-CODE
               WHEN 'DA' PERFORM 3260-ADD-DEL-CODE
               WHEN 'DC' PERFORM 3280-CHANGE-VALUE
               WHEN 'DS' PERFORM 3280-CHANGE-VALUE
               WHEN 'DT' PERFORM 3280-CHANGE-VALUE
           END-EVALUATE.

and turn it into the following:

           EVALUATE T-TRANS-TYPE
               IS ' N' PERFORM 3220-EDIT-PERSONAL-INFO
               IS 'NA' PERFORM 3220-EDIT-PERSONAL-INFO
               IS ' A' PERFORM 3230-EDIT-ADDR-INFO
               IS 'PV' PERFORM 3240-EDIT-CODE-V-CHANGE
               IS ' V' PERFORM 3250-EDIT-VALUE-CHANGE
               IS 'AA' PERFORM 3260-ADD-DEL-CODE
               IS 'DA' PERFORM 3260-ADD-DEL-CODE
               IS 'DC' PERFORM 3280-CHANGE-VALUE
               IS 'DS' PERFORM 3280-CHANGE-VALUE
               IS 'DT' PERFORM 3280-CHANGE-VALUE
           END-EVALUATE.
and it would compile properly.

Like I said, I could have been reading the grammar wrong, and I am far
from an expert on things like that, but it just seems that with the
globbing, the above condition could very well happen.

Just my $.02.  Let me know the errors of my reasoning.
-- 
Matthew Vanecek
Course of Study: http://www.unt.edu/bcis
Visit my Website at http://people.unt.edu/~mev0003
For answers type: perl -e 'print
$i=pack(c5,(41*2),sqrt(7056),(unpack(c,H)-2),oct(115),10);'
*****************************************************************
For 93 million miles, there is nothing between the sun and my shadow
except me. I'm always getting in the way of something...

--
This message was sent through the gnu-cobol mailing list.  To remove yourself
from this mailing list, send a message to majordomo@lusars.net with the
words "unsubscribe gnu-cobol" in the message body.  For more information on
the GNU COBOL project, send mail to gnu-cobol-owner@lusars.net.