[open-cobol-list] Bug in OC handling of screen section

[vince]

Hi John;

Your suspected bug report in the screen section handling of program below has 
been fixed upstream and tested. This is the amended program:

----------------------------
       IDENTIFICATION DIVISION.
       PROGRAM-ID.    test23b.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SPECIAL-NAMES.
          DECIMAL-POINT IS COMMA
          crt status is status-field.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
       DATA DIVISION.
       FILE SECTION.
       WORKING-STORAGE SECTION.

      * 01 campo          pic x(5) value spaces.
       01 line-wor       pic 99  value 14.
       01 col-wor        pic 99  value 14.
       01 foreground-wor pic 99  value 7.
       01 background-wor pic 99  value 1.
       01 color-wor      pic 99  value 15.
       01 status-field   pic 9999 value zero.
       SCREEN SECTION.

        01 screen-scr
                 foreground-color foreground-wor
                 background-color background-wor.
          02 filler line line-wor.
           04 filler col col-wor value "|".
           04 value "  Test lin/col  ".
           04 value "|".
          02 filler line - 1.
           04 filler col col-wor value "+----------------+".
          02 filler line plus 2.
           04 filler col col-wor value "+----------------+".

000035 01   input-scr background-color color-wor.
           02 filler line 1.
             04 filler col 1 value "Line : ".
             04 filler col plus 1 pic 99 using line-wor.
           02 filler line plus 1.
             04 filler col 1 value "Col. : ".
             04 filler col plus 1 pic 99 using col-wor.
          02 filler line plus 1.
           04 filler col 1 value "Fore.: ".
           04 filler col plus 1 pic 99 using foreground-wor.
          02 filler line plus 1.
           04 filler col 1 value "Back.:".
           04 filler col plus 1 pic 99 using background-wor.
          02 filler line plus 1.
           04 filler col 1 value "Color:".
           04 filler col plus 1 pic 99 using color-wor.
          02 filler line plus 2.
           04 filler col 1 value "Press F3 to exit.".
       PROCEDURE DIVISION.
       INI.
           display screen-scr.
           display input-scr.
           accept input-scr.
           if status-field = "1003"
                 stop run
           end-if
           go to ini.
           STOP RUN.
------------------------------------


Vince