#801 Allow gaps between segment redefined fields as long as they have a single common base redefine.

Author: yruslan

cobol-parser/src/main/scala/za/co/absa/cobrix/cobol/parser/asttransform/SegmentRedefinesMarker.scala

@@ -76,7 +76,12 @@ class SegmentRedefinesMarker(segmentRedefines: Seq[String]) extends AstTransform
             foundRedefines += g.name
             g.withUpdatedIsSegmentRedefine(true)
           } else {
-            ensureSegmentRedefinesAreIneGroup(g.name, isCurrentFieldASegmentRedefine = false)
+            // Allow redefines in between segment redefines.
+            val fieldMightBeRedefine = if (redefineGroupState == 1 && g.redefines.nonEmpty)
+              true
+            else
+              false
+            ensureSegmentRedefinesAreIneGroup(g.name, isCurrentFieldASegmentRedefine = fieldMightBeRedefine)
             // Check nested fields recursively only if segment redefines hasn't been found so far.
             if (redefineGroupState == 0) {
               processGroupFields(g)