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.
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
I hope this helps.
Already have an account? Login
Enter your E-mail address. We'll send you an e-mail with instructions to reset your password.