TABLE FILE RPTDATA
 PRINT NAME TYPE COLOR
 BY TYPE NOPRINT
  ON TABLE HOLD AS JUNK FORMAT PDF
  ON TABLE SET STYLE *
   TYPE=DATA, BACKCOLOR=RGB(COLOR),COLOR=RGB(000 000 000), $
  ENDSTYLE
END
-RUN   
 

DEFINE FILE CAR
  NAME/A20  = COUNTRY;
  TYPE/A20  = CAR;
  COLOR/A12 = DECODE SEATS(
      1        '050 050 050'
      2        '050 150 250'
      4        '150 250 050'
      5        '222 111 000'
      DEFAULT  '111 000 200'
  );
  COLORLINES/A150 = 'TYPE=DATA, BACKCOLOR=RGB(' || COLOR || '), COLOR=RGB(000 000 000), WHEN=COLOR EQ ''' || COLOR || ''' ,$'; 
END

-* --- Generate STYLESHEET lines to include in report
TABLE FILE CAR
  BY COLORLINES
  ON TABLE HOLD AS HLDSTYLE FORMAT ALPHA
  ON TABLE SET HOLDLIST PRINTONLY
END
-RUN


TABLE FILE CAR
  PRINT 
    NAME 
    TYPE 
    COLOR
    SEATS
  BY TYPE NOPRINT
  ON TABLE SET PAGE NOPAGE
  ON TABLE SET HTMLCSS ON  
  ON TABLE SET STYLE *
    TYPE=REPORT     ,WRAP=OFF                                   ,$
    TYPE=REPORT     ,BORDER=1    ,BORDER-COLOR=RGB(210 210 210) ,$
    TYPE=REPORT     ,UNITS=PTS   ,FONT='VERDANA', SIZE=8        ,$
    TYPE=TITLE      ,STYLE=BOLD  ,BACKCOLOR=RGB(230 230 230)    ,$
    TYPE=DATA       ,TOPGAP=3    ,BOTTOMGAP=3                   ,$
-INCLUDE HLDSTYLE
ENDSTYLE
END

DEFINE FILE CAR
CLR/A20='200 100 235';
END
TABLE FILE CAR
PRINT CLR COUNTRY CAR 
ON TABLE HOLD AS TEST
END
-RUN
-READ TEST, &CLR.A12.
-TYPE &CLR
TABLE FILE CAR
PRINT CLR COUNTRY CAR 
ON TABLE SET STYLE *
TYPE=DATA, BACKCOLOR=RGB(&CLR),$
ENDSTYLE
END  

SET HOLDLIST=PRINTONLY
RUN

TABLE FILE CAR
PRINT
COUNTRY
CAR
MODEL
DEALER_COST
COMPUTE DEAL_FLG/A1 = IF DEALER_COST GE 14000 THEN 'G'
ELSE IF DEALER_COST LT 5000 THEN 'R'
ELSE ' ';
COMPUTE DEAL_COST/A10 = FTOA(DEALER_COST, '(D7)', DEAL_COST); NOPRINT
 COMPUTE CMDECST/A500 = IF (DEAL_FLG EQ 'G') THEN ('</TD><TD CLASS=G1>' || DEAL_COST)
 ELSE IF (DEAL_FLG EQ 'R') THEN ('</TD><TD CLASS=R1>' || DEAL_COST)

ELSE ('</TD><TD CLASS=W1>' || DEAL_COST);
ON TABLE HOLD AS H001 FORMAT ALPHA
END
-RUN

TABLE FILE H001
PRINT
COMPUTE COLLINE/A6000 = '<TR><TD CLASS=W1>' || COUNTRY
|| '</TD><TD CLASS=W1>' || CAR
|| '</TD><TD CLASS=W1>' || MODEL
|| CMDECST
|| '</TD></TR>';
ON TABLE HOLD AS H002 FORMAT ALPHA
END
-RUN

-HTMLFORM BEGIN
<STYLE>
BODY { FONT-FAMILY: ARIAL; FONT-SIZE: .8EM; }
TD { FONT-SIZE: .8EM; BORDER-RIGHT: 1PX SOLID #CCC; }
TABLE { BORDER-COLLAPSE: COLLAPSE;
border:1px solid #CCC;
border-spacing: 0px;}
.W1 { COLOR: WHITE; }
.G1 { COLOR: GREEN; }
.R1 { COLOR: RED; }
.T1 { FONT-WEIGHT: BOLD; }
</STYLE>
<DIV ALIGN="CENTER">



<TABLE BORDER=0 bgcolor="#190B25">
<FONT COLOR="#FFFFFF" >!IBI.FIL.H002;</FONT>

</TABLE>

</DIV>
-HTMLFORM END