|
Set field colour to 8 (error and warning messages) |
Source |
S.HM |
|
CALL HILITE |
|
Parameters |
|
None |
|
|
Copybooks |
|
None |
|
|
Other Requirements |
|
It should be called from the B- routine of the data field whose colour is to be changed. |
|
Purpose |
|
Used to display a window data item in the same colour as a highlighted data item. This is used where a label or data item needs to be displayed in the error or warning attribute. |
|
Exceptions |
|
None |
|
Example |
WINDOW W1 USING OH
SCROLL 8 BY 1
01 01 "Order"
01 10 OHORNO X(8) DIS
01 19 W1TXT X(7) DIS
...
ROUTINES SECTION
B-W1TXT.
MOVE SPACES TO W1TXT
IF ACCOUNT-BALANCE > CREDIT-LIMIT * Account is overdue
MOVE "OVERDUE" TO W1TXT *
CALL HILITE * Display in error attribute
ELSE *
CALL NS-TXT * Display spaces in normal
END * attribute (i.e. blank).
EXIT |
|
Global 3000 Example |
|
Used by SO100 (Sales order entry) to display a warning message in the order summary window if the customer is over their credit limit or has an overdue balance. |