ENGINE INT CACHE SET ON

-DEFAULTH &WF_SUMMARY='Summary';
-DEFAULTH &WF_TITLE='WebFOCUS Report';

DEFINE FILE ibisamp/car
ISRED/I1 = IF SALES GT 0 AND SALES LT 8000 THEN 1 ELSE 0;
ISGREEN/I1 = IF SALES GT 8000 THEN 1 ELSE 0;
END

TABLE FILE ibisamp/car
SUM CAR.BODY.SALES
BY CAR.ORIGIN.COUNTRY
BY CAR.COMP.CAR
BY ISRED NOPRINT
BY ISGREEN NOPRINT
ON TABLE PCHOLD FORMAT HTML
ON TABLE NOTOTAL
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET SQUEEZE ON
ON TABLE SET EMPTYREPORT ON
ON TABLE SET HTMLCSS ON
ON TABLE SET HTMLENCODE ON
ON TABLE SET CACHELINES 100
ON TABLE SET GRWIDTH 1
ON TABLE SET STYLE *
INCLUDE=IBFS:/FILE/IBI_HTML_DIR/javaassist/intl/EN/ENIADefault_combine.sty,$
DEFMACRO=Condition_1, MACTYPE=RULE, WHEN=ISRED EQ 1, $
DEFMACRO=Condition_2, MACTYPE=RULE, WHEN=ISGREEN EQ 1, $
TYPE=REPORT, TITLETEXT='WebFOCUS Report', SUMMARY='Summary', $
TYPE=DATA, COLUMN=SALES, MACRO=Condition_1, FONT='Trebuchet MS', BACKCOLOR=RGB(255 0 0), $
TYPE=DATA, COLUMN=SALES, MACRO=Condition_2, FONT='Trebuchet MS', BACKCOLOR=RGB(0 255 0), $
ENDSTYLE
END

-RUN

quote:

Its nice to see DEFMACRO still being used.

Its too easy to just code the WHEN.

DEFMACRO=Condition_1, MACTYPE=RULE, WHEN=ISRED EQ 1, $
DEFMACRO=Condition_2, MACTYPE=RULE, WHEN=ISGREEN EQ 1, $
TYPE=REPORT, TITLETEXT='WebFOCUS Report', SUMMARY='Summary', $
TYPE=DATA, COLUMN=SALES, MACRO=Condition_1, FONT='Trebuchet MS', BACKCOLOR=RGB(255 0 0), $
TYPE=DATA, COLUMN=SALES, MACRO=Condition_2, FONT='Trebuchet MS', BACKCOLOR=RGB(0 255 0), $

TYPE=REPORT, TITLETEXT='WebFOCUS Report', SUMMARY='Summary', $
TYPE=DATA, COLUMN=SALES, WHEN=ISRED EQ 1, FONT='Trebuchet MS', BACKCOLOR=RGB(255 0 0), $
TYPE=DATA, COLUMN=SALES, WHEN=ISGREEN EQ 1, FONT='Trebuchet MS', BACKCOLOR=RGB(0 255 0), $