- 
                Notifications
    You must be signed in to change notification settings 
- Fork 25
Closed
Labels
BugCobolrfcSpecifications are not complete. Comment are welcomed.Specifications are not complete. Comment are welcomed.
Milestone
Description
See following code:
       IDENTIFICATION DIVISION.
       PROGRAM-ID. PGM1.
      
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  TEST-GROUP1.
           05  TEST-SGROUP1.
               10  TEST-ELT1           PIC X(04).
               10  TEST-ELT2           PIC X(350).
           05  TEST-SGROUP2.
               10  TEST-ELT3           PIC X(200).
               10  TEST-ELT4           PIC X(1000).
           05  TEST-SGROUP5.
               10  TEST-ELT5           PIC X(100).
        66  TEST-SGROUP2R RENAMES TEST-ELT2
                          THRU    TEST-ELT4.
      
       END PROGRAM PGM1.
The RENAMES clause will here be interpreted by the parser as a child of TEST-ELT5, though he shouldn't be.
In this case, the expected behaviour is that TEST-SGROUP2R is a child of the working storage section, containing a reference to TEST-ELT2, TEST-ELT3, TEST-ELT4.
Metadata
Metadata
Assignees
Labels
BugCobolrfcSpecifications are not complete. Comment are welcomed.Specifications are not complete. Comment are welcomed.