Background-Color

[coboldave]

I am trying to change screen colors for each different page using RM ver 7.

01 Master-Data-Group
Background-COLOR is 1,
Foreground-COLOR is 7.

The background and foreground settings work but only where there is a display or accept statement. How do I apply it to the entire screen?

 

[k5tm]

Use something like this at the beginning of each different page. My example uses an ACCEPT so that you may see the effect, but this will work on a DISPLAY as well.

       identification division.
       program-id.  do-erase.
       data division.
       working-storage section.
       01  a-var  pic x.
       procedure division.
       a.  accept a-var line 1 position 1
                  control "fcolor=white, bcolor=red, erase eos"
           stop run.

Tom Morrison

 

[coboldave]

Thanks! That did the trick.