Frank | |
prod: WF 7.6.10 platform Windows, databases: msSQL2000, msSQL2005, RMS, Oracle, Sybase,IE7 test: WF 7.6.10 on the same platform and databases,IE7 |
-* ------------------------------------------------------------------ -* Go to database only once to get records -* ------------------------------------------------------------------ TABLE FILE CAR SUM DEALER_COST BY COUNTRY BY CAR BY BODYTYPE BY SEATS ON TABLE HOLD AS HLDSOURCE FORMAT ALPHA END -RUN -* ------------------------------------------------------------------ -* Append records for the following TABLE-requests to same HOLD-file -* Make sure all TABLE-requests produce the same kind of HOLD file, -* ------------------------------------------------------------------ FILEDEF hldtotal DISK hldtotal.ftm (APPEND -RUN -* ------------------------------------------------------------------ -* Get all records -* ------------------------------------------------------------------ TABLE FILE HLDSOURCE SUM COMPUTE SRT/I1 = 1; DEALER_COST BY COUNTRY BY CAR BY BODYTYPE BY SEATS ON TABLE HOLD AS hldtotal FORMAT ALPHA END -RUN -* ------------------------------------------------------------------ -* Add subtotal for only Italy and Japan -* ------------------------------------------------------------------ TABLE FILE HLDSOURCE SUM COMPUTE FLD1/A10 = 'Total'; COMPUTE FLD2/A16 = 'Japan / Italy'; COMPUTE FLD3/A12 = ''; COMPUTE FLD4/I3S = 0; COMPUTE SRT/I1 = 2; DEALER_COST WHERE COUNTRY IN('JAPAN','ITALY'); ON TABLE SAVE AS hldtotal FORMAT ALPHA END -RUN -* ------------------------------------------------------------------ -* Add subtotal for only 4-SEATS cars -* ------------------------------------------------------------------ TABLE FILE HLDSOURCE SUM COMPUTE FLD1/A10 = 'Total'; COMPUTE FLD2/A16 = 'all 4 seats'; COMPUTE FLD3/A12 = ''; COMPUTE FLD4/I3S = 0; COMPUTE SRT/I1 = 3; DEALER_COST WHERE SEATS EQ 4; ON TABLE SAVE AS hldtotal FORMAT ALPHA END -RUN -* ------------------------------------------------------------------ -* Add subtotal for only SEDAN's -* ------------------------------------------------------------------ TABLE FILE HLDSOURCE SUM COMPUTE FLD1/A10 = 'Total'; COMPUTE FLD2/A16 = 'all sedans'; COMPUTE FLD3/A12 = ''; COMPUTE FLD4/I3S = 0; COMPUTE SRT/I1 = 4; DEALER_COST WHERE BODYTYPE EQ 'SEDAN'; ON TABLE SAVE AS hldtotal FORMAT ALPHA END -RUN -* ------------------------------------------------------------------ -* The end result -* ------------------------------------------------------------------ TABLE FILE HLDTOTAL SUM DEALER_COST BY SRT NOPRINT BY COUNTRY ON COUNTRY SUBTOTAL AS 'Total' WHEN SRT EQ 1 ON COUNTRY SUBFOOT " " WHEN SRT EQ 1 BY CAR BY BODYTYPE ON TABLE SET HTMLCSS ON ON TABLE NOTOTAL ON TABLE SET STYLE * TYPE=REPORT, BORDER=1, BORDER-COLOR=RGB(230 230 230), FONT=VERDANA , SIZE=10,$ TYPE=SUBTOTAL, BACKCOLOR=RGB(245 245 245) ,$ TYPE=DATA, BACKCOLOR=RGB(225 225 225), WHEN=SRT EQ 2 ,$ TYPE=DATA, BACKCOLOR=RGB(200 200 200), WHEN=SRT EQ 3 ,$ TYPE=DATA, BACKCOLOR=RGB(175 175 175), WHEN=SRT EQ 4 ,$ ENDSTYLE ENDThis message has been edited. Last edited by: <FreSte>,