[open-cobol-list] redefines bug in 0.9.5.91

[Richard A. Painter]

1. The attached code should produce an error because VALUE clauses cannot be
specified on the
REDEFINE field or its subordinates.

2. i ran into this where we were (incorrectly) doing this and passing the
top-level variable to a subroutine and the data was not passed correctly.  no
matter since this is not valid cobol and should be prevented.

r
-- 

+---------------------------------------------------------------+
| Richard A. Painter            Phone 719 495 7054              |
| Painter Engineering, Inc.     Mailto:address@hidden       |
| 8470 Swan Rd.                                                 |
| Black Forest, CO 80908                                        |
|                                                               |
| Visit our Web site:         http://painter.inc                |
|         http://home.earthlink.net/~painterengineering         |
|                                                               |
| Systems & Software Engineering + LAN WAN Networking + X.25    |
| INTERNET TCP-IP + Real-time Transaction Processing            |
| System & Software Integration, Testing, Verification & Audits |
| Web Hosting & Design + Apache + PHP + modSSL + cURL           |
| Database Design & Applications + Oracle                       |
| Benchmarks + Course & Workshop Development & Delivery         |
| Financial and Medical Software Integration + Security         |
| Middleware + EDI + Cryptography + Firewalls                   |
| UNIX + Linux + Windows                                        |
|                                                               |
| What is popular is not always right and what is right is not  |
| always popular.     - Howard Cosell                           |
|                                                               |
| Chance favors the prepared mind!   Illegitima non carborundum |
+---------------------------------------------------------------+

      * ?SAVE ALL
      * ?SYMBOLS,INSPECT,OPTIMIZE 2
      * ?ANSI;NOBLANK
       IDENTIFICATION DIVISION.
       PROGRAM-ID. program1.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  ws-field1            pic x(10).
       01  ws-field2 redefines ws-field1.
           05  ws-field3 pic x(5) value "abcde".
           05  ws-field4 pic x(5) value "12345".
       PROCEDURE DIVISION.
       0000-MAINLINE.
           display "field1=" ws-field1
           display "field2=" ws-field2
           exit program.