TABLE FILE CAR
PRINT CAR SALES
BY COUNTRY
WHERE COUNTRY EQ 'ENGLAND';
ON TABLE HOLD AS HOLD1 FORMAT FOCUS
END
-*====================================
TABLE FILE CAR
PRINT CAR SALES
BY COUNTRY
WHERE COUNTRY EQ 'JAPAN';
ON TABLE HOLD AS HOLD2 FORMAT FOCUS
END
-*====================================
TABLE FILE HOLD1
PRINT CAR SALES
BY COUNTRY
ON TABLE HOLD AS HOLD3
MORE
FILE HOLD2
END
-*====================================
TABLE FILE HOLD3
PRINT *
END

TABLE FILE HOLD3
PRINT SALES
BY COUNTRY
BY CAR
ON COUNTRY SUBFOOT
"========================"
"TOTAL <ST.SALES "
"========================"
ON TABLE SET BYDISPLAY ON
END  

TABLE FILE CAR
PRINT CAR SALES
BY COUNTRY
WHERE COUNTRY EQ 'ENGLAND';
ON TABLE HOLD AS HOLD1 FORMAT FOCUS
END
-*====================================
TABLE FILE CAR
PRINT CAR SALES
BY COUNTRY
WHERE COUNTRY EQ 'JAPAN';
ON TABLE HOLD AS HOLD2 FORMAT FOCUS
END
-*====================================
TABLE FILE HOLD1
PRINT CAR SALES
BY COUNTRY
ON TABLE HOLD AS HOLD3
MORE
FILE HOLD2
END
-*====================================
TABLE FILE HOLD3
SUM SALES
BY COUNTRY
BY CAR
ON COUNTRY SUBTOTAL
ON TABLE NOTOTAL
ON TABLE SET BYDISPLAY ON
END

TABLE FILE CAR
SUM SALES
BY COUNTRY
BY CAR
ON COUNTRY SUBTOTAL

WHERE COUNTRY EQ 'ENGLAND' OR 'JAPAN';

ON TABLE NOTOTAL
ON TABLE SET BYDISPLAY ON
END

TABLE FILE CAR
SUM SALES
BY TOTAL COMPUTE ROWID /I1 = IF COUNTRY EQ LAST COUNTRY THEN ROWID ELSE ROWID + 1; NOPRINT
BY COUNTRY
BY CAR

ON COUNTRY SUBFOOT
""
"Total <ST.SALES"

ON ROWID SUBHEAD
""
WHEN ROWID NE 1;

WHERE COUNTRY EQ 'ENGLAND' OR 'JAPAN';
ON TABLE NOTOTAL
ON TABLE SET BYDISPLAY ON
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE PCHOLD FORMAT HTML
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
     INCLUDE = IBFS:/EDA/EDASERVE/_EDAHOME/ETC/endeflt.sty,
$
ENDSTYLE
END

COMPUTE LINE/I4 WITH E01= IF LINE EQ 6 THEN 1 ELSE LINE+1; NOPRINT
COMPUTE BREAKPOINT/I4 = IF ((LINE EQ 6)) THEN BREAKPOINT+1 ELSE BREAKPOINT; NOPRINT

BY BREAKPOINT NOPRINT
ON BREAKPOINT PAGE-BREAK
ON BREAKPOINT SUB-TOTAL


HEADING
" <+0>&StartYear and January 1, &Year through <EndDate"
""
""
""
ON TABLE SUBFOOT
""
""