COLOR DISPLAY

/******************** STATEMENTS**************************************
**
** COLOR DISPLAY MESSAGE (WITH...)
** E usado como salientador de dados e
** deve ser usado em substituicao do
** statement DISPLAY comum.
**
**********************************************************************/

Código:

FIND FIRST customer.
FORM   customer.cust-num
       customer.name 
       customer.credit-limit
       WITH CENTERED NO-BOX
       COLOR BLACK/GRAY DOWN
       FRAME frame-unica. 
DISPLAY customer.cust-num
        customer.name       
        customer.credit-limit
        WITH FRAME frame-unica.
FOR EACH customer:
    DISPLAY customer.cust-num
            customer.name    
            customer.credit-limit
            WITH FRAME frame-unica. 
    IF customer.credit-limit < 30000 THEN
		COLOR DISPLAY MESSAGE credit-limit 
		WITH FRAME frame-unica.         
    DOWN WITH FRAME frame-unica.        
END.