#264 Compiler not accepting DISPLAY x AT 1201 | ACCEPT x FROM 1201

[Vincent (Bryan) Coen]

[As reported in discussions (Help getting started)]

With the following in WS :

 03  Curs            pic 9(4).
 03  filler redefines Curs.
     05  Lin         pic 99.
     05  Cole        pic 99.
 03  Curs2           pic 9(4).
 03  filler redefines Curs2.
     05  Lin2        pic 99.
     05  Col2        pic 99.

The following examples of code now produce errors (after AT) :

--
display " [ ] [ ] [ ] [ " &
" ] [ ]" at curs with foreground-color cob-color-green.

 accept   nl-owning at curs with update foreground-color cob-color-yellow.

 display  nl-name at curs with foreground-color cob-color-yellow.

 display  nl-name at curs.

--

There are many others but all of the same theme.

This is with the gnu branch at c983 and previous.

Using the RW branch at c950 all works as expected (just get other problems).

Reason for this and how do I get them to compile - and yes this is as per MF specs going back 40 years or so and likewise with GC until I just tried it as against using the RW version.

In the meanwhile gone back to RW,

Here is actual error / output from compiler :

irs010.cbl: In section 'set-up':
irs010.cbl: In paragraph 'input02-loop':
irs010.cbl: 399: Error: Invalid value in AT clause
irs010.cbl: 404: Error: Invalid value in AT clause
irs010.cbl: 421: Error: Invalid value in AT clause
irs020.cbl: In section 'Set-Up':
irs020.cbl: In paragraph 'main-loop':
irs020.cbl: 462: Error: Invalid value in AT clause
irs020.cbl: 464: Error: Invalid value in AT clause
irs020.cbl: In paragraph 'get-input':
irs020.cbl: 470: Error: Invalid value in AT clause
irs030.cbl: In section 'init-main':
irs030.cbl: In paragraph 'date-inp':
irs030.cbl: 530: Error: Invalid value in AT clause
irs030.cbl: In paragraph 'account-input':
irs030.cbl: 548: Error: Invalid value in AT clause
irs030.cbl: 571: Error: Invalid value in AT clause
irs030.cbl: 576: Error: Invalid value in AT clause
irs030.cbl: 586: Error: Invalid value in AT clause
irs030.cbl: In paragraph 'vat-input-skip':
irs030.cbl: 618: Error: Invalid value in AT clause
irs030.cbl: 620: Error: Invalid value in AT clause
irs040.cbl: In section 'init01':
irs040.cbl: In paragraph 'main-display-1':
irs040.cbl: 370: Error: Invalid value in AT clause

Looking at the errors for irs010

irs010.cbl: 399: Error: Invalid value in AT clause
irs010.cbl: 404: Error: Invalid value in AT clause
irs010.cbl: 421: Error: Invalid value in AT clause

399 :

display " [ ] [ ] [ ] [ " &
" ] [ ]" at curs with foreground-color cob-color-green.

404

accept nl-owning at curs with update foreground-color cob-color-yellow.

421

display nl-name at curs with foreground-color cob-color-yellow.

As I have said all this works with the Report Writer branch.

[Vincent (Bryan) Coen]

This bug fix has been tested and is now fixed.

Have issued a few more though :)

Bug reports that is !

On 06/07/16 09:23, Edward Hart wrote:

• labels: DISPLAY | ACCEPT, AT | FROM nnnn --> screen section
• status: open --> closed
• assigned_to: Edward Hart
• Comment:

Thanks for reporting this bug, Vincent, it's now fixed in [r984]
https://sourceforge.net/p/open-cobol/code/984/. Sorry for taking so
long to fix it: I'd mistaken the discussion as an instance of
[bugs:#246] https://sourceforge.net/p/open-cobol/bugs/246/.

---

[bugs:#264] https://sourceforge.net/p/open-cobol/bugs/264/ Compiler
not accepting DISPLAY x AT 1201 | ACCEPT x FROM 1201

Status: closed
Group: GC 2.0
Labels: screen section
Created: Tue Jul 05, 2016 03:34 PM UTC by Vincent (Bryan) Coen
Last Updated: Tue Jul 05, 2016 03:34 PM UTC
Owner: Edward Hart

[As reported in discussions (Help getting started)]

With the following in WS :

03 Curs pic 9(4).
03 filler redefines Curs.
05 Lin pic 99.
05 Cole pic 99.
03 Curs2 pic 9(4).
03 filler redefines Curs2.
05 Lin2 pic 99.
05 Col2 pic 99.

The following examples of code now produce errors (after AT) :

--
display " [ ] [ ] [ ] [ " &
" ] [ ]" at curs with foreground-color cob-color-green.

accept nl-owning at curs with update foreground-color cob-color-yellow.

display nl-name at curs with foreground-color cob-color-yellow.

display nl-name at curs.

--

There are many others but all of the same theme.

This is with the gnu branch at c983 and previous.

Using the RW branch at c950 all works as expected (just get other
problems).

Reason for this and how do I get them to compile - and yes this is as
per MF specs going back 40 years or so and likewise with GC until I
just tried it as against using the RW version.

In the meanwhile gone back to RW,

Here is actual error / output from compiler :

irs010.cbl: In section 'set-up':
irs010.cbl: In paragraph 'input02-loop':
irs010.cbl: 399: Error: Invalid value in AT clause
irs010.cbl: 404: Error: Invalid value in AT clause
irs010.cbl: 421: Error: Invalid value in AT clause
irs020.cbl: In section 'Set-Up':
irs020.cbl: In paragraph 'main-loop':
irs020.cbl: 462: Error: Invalid value in AT clause
irs020.cbl: 464: Error: Invalid value in AT clause
irs020.cbl: In paragraph 'get-input':
irs020.cbl: 470: Error: Invalid value in AT clause
irs030.cbl: In section 'init-main':
irs030.cbl: In paragraph 'date-inp':
irs030.cbl: 530: Error: Invalid value in AT clause
irs030.cbl: In paragraph 'account-input':
irs030.cbl: 548: Error: Invalid value in AT clause
irs030.cbl: 571: Error: Invalid value in AT clause
irs030.cbl: 576: Error: Invalid value in AT clause
irs030.cbl: 586: Error: Invalid value in AT clause
irs030.cbl: In paragraph 'vat-input-skip':
irs030.cbl: 618: Error: Invalid value in AT clause
irs030.cbl: 620: Error: Invalid value in AT clause
irs040.cbl: In section 'init01':
irs040.cbl: In paragraph 'main-display-1':
irs040.cbl: 370: Error: Invalid value in AT clause

Looking at the errors for irs010

irs010.cbl: 399: Error: Invalid value in AT clause
irs010.cbl: 404: Error: Invalid value in AT clause
irs010.cbl: 421: Error: Invalid value in AT clause

399 :

display " [ ] [ ] [ ] [ " &
" ] [ ]" at curs with foreground-color cob-color-green.

404

accept nl-owning at curs with update foreground-color cob-color-yellow.

421

display nl-name at curs with foreground-color cob-color-yellow.

As I have said all this works with the Report Writer branch.

---

[Edward Hart]

Thanks for reporting this bug, Vincent, it's now fixed in [r984]. Sorry for taking so long to fix it: I'd mistaken the discussion as an instance of [bugs:#246].