An issue that was similar if not the same was reported to Roger two +years ago by myself against a test program in the lists.
It also involved occurs & values within screen section.

I tested it after a fix (by Roger) to confirm it was resolved.
I am a little puzzled why this has re-appeared, so assume that the v2 code base is not of the latest that Roger had given out to us for testing and no it was not the first release !

Looks like I must browse the code base between the original and v2.1.

Before I do so please confirm what version it has been tested against.


Vince
  .


On 26/02/14 13:05, Simon Sobisch wrote:

Rechecked with GNU Cobol 1.1 release (scrocc.cbl attached), problem still exists.
With 2.x there is only one instead of 10 lines, too and additional the first "|" in the line is missing.

Simon


[bugs:#35] Screen Section Bug - OCCURS verb

Status: open
Created: Thu Feb 23, 2012 08:52 PM UTC by DarkSetz
Last Updated: Wed Sep 19, 2012 06:11 PM UTC
Owner: nobody

The OCCURS verb's use in the Screen Section is recognized as correct by the compiler but it is not acted upon at run-time.

A DISPLAY statement of following code produces a window that looks like this:

+------------------------------+
|                              |
+------------------------------+

when it should produce one with ten lines of body between the top and bottom borders instead of just one.

    01  OffD-Maint-Scrn-Skills-SMenu    FOREGROUND-COLOR COLOR-WHITE.
        05  LINE Window-UpperLeft-Corner-Line   COL Window-UpperLeft-Corner-Column  VALUE "+".
        05  PIC X(30)   FROM Dashed-Line.
        05  VALUE "+".
        05  OffD-MSSSM-Body OCCURS 10 TIMES.
            10  LINE PLUS 1 COL Window-UpperLeft-Corner-Column  VALUE "|".
            10  PIC X(30)   FROM Blank-Line.
            10  VALUE "|".
        05  LINE PLUS 1 COL Window-UpperLeft-Corner-Column  VALUE "+".
        05  PIC X(30)   FROM Dashed-Line.
        05  VALUE "+".