quote:

Originally posted by KevinG:
Naveen,

The same technique you use for BACKCOLOR should work with COLOR.

Kevin

 DEFINE FILE CAR
PROFIT/D12.2 = RETAIL_COST - DEALER_COST;
END
-*
SET BYDISPLAY = ON
-*
TABLE FILE CAR
PRINT
DEALER_COST
RETAIL_COST
PROFIT
BY COUNTRY
BY CAR
BY MODEL
ON TABLE SET STYLE *
UNITS=IN,
PAGESIZE='SCREEN',
LEFTMARGIN=0.000000,
RIGHTMARGIN=0.000000,
TOPMARGIN=0.000000,
BOTTOMMARGIN=0.000000,
SQUEEZE=ON,
ORIENTATION=LANDSCAPE,
$
TYPE=REPORT,
GRID=OFF,
FONT='TIMES NEW ROMAN',
SIZE=10,
COLOR='BLACK',
BACKCOLOR='NONE',
STYLE=NORMAL,
$
TYPE=DATA,
COLOR='PURPLE',
COLUMN=PROFIT,
WHEN=PROFIT GE 5000,
$
TYPE=DATA,
COLOR='RED',
COLUMN=PROFIT,
WHEN=PROFIT LE 999,
$
ENDSTYLE 

 TABLE FILE CAR
  PRINT CAR
  COMPUTE LN/I1 = IF LAST LN NE 1 OR 2 THEN 1
                    ELSE IF LAST LN EQ 1 THEN 2
                    ELSE IF LAST LN EQ 2 THEN 1
                    ELSE 3; NOPRINT
  BY COUNTRY
ON TABLE PCHOLD FORMAT HTML

ON TABLE SET STYLE *
TYPE=DATA, COLOR=BLACK, WHEN=LN EQ 1, $
TYPE=DATA, COLOR=RED, WHEN=LN EQ 2, $
ENDSTYLE
END
 

TABLE FILE CAR
PRINT 
CAR
BY COUNTRY

ON TABLE SET STYLE *
TYPE=DATA, BACKCOLOR=('GREY' 'BLACK'), $

ENDSTYLE
END

  
TABLE FILE CAR
LIST CAR COUNTRY 
ON TABLE HOLD 
END
-RUN
TABLE FILE HOLD 
PRINT CAR
AND COMPUTE BAND1/I1=IF (IMOD(LIST, 2, 'I3') NE 0) THEN 0 ELSE 1; NOPRINT
BY COUNTRY 
ON TABLE PCHOLD FORMAT EXL2K
ON TABLE NOTOTAL
ON TABLE SET PAGE NOLEAD
ON TABLE SET STYLE *
TYPE=DATA, BACKCOLOR=RED, WHEN=BAND1 EQ 0,$
TYPE=DATA, BACKCOLOR=GREY, WHEN=BAND1 EQ 1,$
ENDSTYLE
END

TABLE FILE CAR
PRINT 
CAR
BY COUNTRY

ON TABLE SET STYLE *
TYPE=DATA, COLOR=( RGB(243 244 248) RGB(255 255 255) ), $

ENDSTYLE
END

TABLE FILE CAR
PRINT 
CAR
BY COUNTRY

ON TABLE SET STYLE *
TYPE=DATA, BACKCOLOR=( RED BLUE ), $

ENDSTYLE
END