Skip to main content

Any Documentation for color FAC assigned to a field somewhere?

Currently if I Move this value of 10135429 to the FAC of a field it will change the color to RED.

Wondering what other combinations are available.

Any Documentation for color FAC assigned to a field somewhere?

Currently if I Move this value of 10135429 to the FAC of a field it will change the color to RED.

Wondering what other combinations are available.

10135429 to the FAC of a field  ... I'm unfamiliar with FAC

Are you using  a character UI and W$PALLETTE to change colors. Or are you using a Graphical UI and changing the screen and control colors.

Most controls like entry-field have a color property, many controls have RGB foreground and RGB background properties.

You specify the control color in the screen section or procedure division display or use Modify to change the color. I do not know how you MOVE 10135429 to the FAC of a field

 


10135429 to the FAC of a field  ... I'm unfamiliar with FAC

Are you using  a character UI and W$PALLETTE to change colors. Or are you using a Graphical UI and changing the screen and control colors.

Most controls like entry-field have a color property, many controls have RGB foreground and RGB background properties.

You specify the control color in the screen section or procedure division display or use Modify to change the color. I do not know how you MOVE 10135429 to the FAC of a field

 

Here is a little bit of code if this helps.

01 FL-MOD PIC 9(8) VALUE 10135429.

03 F-CUST-09.
      05 FAC PIC 9(8) VALUE 10100609.
      05 FILLER REDEFINES FAC. 
            07 F-CUST-09-V PIC 9.
            07 F-CUST-09-C PIC 9(7).

Screen 

02 LABEL NO-KEY-LETTER        PIC ZZ/ZZ/ZZZZ
                FROM WS-S-MDCY
               COLOR F-CUST-09-C
              VISIBLE F-CUST-09-V
              LINE 04 COL 37.

Source

MOVE FL-MOD TO FAC OF F-CUST-09.

 

And then do the display ETC.

 

 


Here is a little bit of code if this helps.

01 FL-MOD PIC 9(8) VALUE 10135429.

03 F-CUST-09.
      05 FAC PIC 9(8) VALUE 10100609.
      05 FILLER REDEFINES FAC. 
            07 F-CUST-09-V PIC 9.
            07 F-CUST-09-C PIC 9(7).

Screen 

02 LABEL NO-KEY-LETTER        PIC ZZ/ZZ/ZZZZ
                FROM WS-S-MDCY
               COLOR F-CUST-09-C
              VISIBLE F-CUST-09-V
              LINE 04 COL 37.

Source

MOVE FL-MOD TO FAC OF F-CUST-09.

 

And then do the display ETC.

 

 

Your value 10135429 breaks down to 0135429 as the leading 1 is for visible ... now take the 135429 and look at the acucobol.def file start subtracting our reasonable values

BCKGRND-HIGH VALUE 131072

FRGRND-HIGH VALUE 4096

BCKGRND-WHITE VALUE 256

This leaves RED VALUE 5

COLOR is a large documentation topic 

https://www.microfocus.com/documentation/extend-acucobol/1020/extend-Interoperability-Suite/BKUSUSTERMS082.html

https://www.microfocus.com/documentation/extend-acucobol/1020/extend-Interoperability-Suite/BKUSUSTERMS045.html

I hope this helps.