-*GROUPING LEVELS 
-*-DEFAULT &GROUPINGS = TERM
-*-DEFAULT &GROUPINGS = TERM RECOMPUTE BY COUNTRY
-*
-*-DEFAULT &GROUPINGS = TERM RECOMPUTE BY COUNTRY RECOMPUTE BY CARTYPE 
-********************************************************************************************************
-***CAN THIS VERSION SHOW A CALCULATION OF YR4 TO HEADCOUNT AS WELL AS YR4 TO TOTAL COUNTRY?
-***		EXAMPLE:  TERM		COUNTRY		CARTYPE		HEADCOUNT	YR4		YR4PCT		YR4PCT of Country
-***				201330 		ITALY	  	ELECTRIC  	1  			1  		100.0%		25.0%
-***										PETROL		3			2		 66.7%		50.0%
-***				*TOTAL COUNTRY ITALY				4			3		 75.0%													  
-********************************************************************************************************

-DEFAULT &GROUPINGS = 'TERM RECOMPUTE BY COUNTRY RECOMPUTE BY STARTCAR RECOMPUTE BY CARTYPE RECOMPUTE BY GRADCAR'

-SET &HIDESTUFF  = IF &GROUPINGS CONTAINS 'GRAD' THEN '' ELSE 'FOC_NONE';
-SET &HIDEHEADCOUNT = IF &HIDESTUFF EQ '' THEN 'TYPE=DATA, COLUMN=HEADCOUNT, COLOR=WHITE, BACKCOLOR=( WHITE ), $' ELSE ' ';
-SET &GROUPWITHIN = IF &GROUPINGS EQ 'TERM RECOMPUTE BY COUNTRY RECOMPUTE BY STARTCAR RECOMPUTE BY CARTYPE RECOMPUTE BY GRADCAR' THEN 'COUNTRY' ELSE 'FOC_NONE';


DEFINE FILE CAR
TERM/A6 = '201340';
HEADCOUNT/I5 = 1;
CARTYPE/A10 = IF CAR EQ 'JAGUAR' OR CAR EQ 'PEUGEOT' OR CAR EQ 'ALFA ROMEO' OR CAR EQ 'DATSUN' THEN 'PETROL' ELSE 'ELECTRIC';
STARTCAR/A20 = 'SEDAN';
GRADCAR/A20 = IF BODYTYPE NE 'SEDAN' THEN 'OTHER' ELSE BODYTYPE;
YR4/I5 = IF SEATS LE 3 THEN 1 ELSE 0;
YR6/I5 = IF SEATS LE 4 THEN 1 ELSE 0;
YR7/I5 = IF SEATS LE 5 THEN 1 ELSE 0;
END
TABLE FILE CAR
SUM   HEADCOUNT
      HEADCOUNT WITHIN &GROUPWITHIN AS 'CountWithin' NOPRINT
	  YR4
	  COMPUTE YR4PCT/D5.1% = (YR4 / HEADCOUNT) * 100; 
	  YR6
	  COMPUTE YR6PCT/D5.1% = (YR6 / HEADCOUNT) * 100;
	  YR7
	  COMPUTE YR7PCT/D5.1% = (YR7 / HEADCOUNT) * 100;
BY	  &GROUPINGS
-*TERM RECOMPUTE BY COUNTRY RECOMPUTE BY STARTCAR RECOMPUTE BY CARTYPE RECOMPUTE BY GRADCAR
ON  &GROUPWITHIN SUB-TOTAL
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT HTML
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
     INCLUDE = endeflt,
$

TYPE=DATA, BACKCOLOR = WHITE,$
TYPE=REPORT, GRID=OFF, $

&HIDEHEADCOUNT
ENDSTYLE
END

-DEFAULT &GROUPINGS = 'TERM RECOMPUTE BY COUNTRY RECOMPUTE BY STARTCAR RECOMPUTE BY CARTYPE RECOMPUTE BY GRADCAR'
-*
-SET &NOPRINT = IF &GROUPINGS CONTAINS 'GRAD' THEN 'NOPRINT' ELSE '';
-*
DEFINE FILE CAR
 TERM/A6 WITH SEATS = '201340';
 HEADCOUNT/I5 WITH SEATS = 1;
 CARTYPE/A10  = IF CAR EQ 'JAGUAR' OR CAR EQ 'PEUGEOT' OR CAR EQ 'ALFA ROMEO' OR CAR EQ 'DATSUN' THEN 'PETROL' ELSE 'ELECTRIC';
 STARTCAR/A20 = 'SEDAN';
 GRADCAR/A20  = IF BODYTYPE NE 'SEDAN' THEN 'OTHER' ELSE BODYTYPE;
 YR4/I5       = IF SEATS LE 3 THEN 1 ELSE 0;
 YR6/I5       = IF SEATS LE 4 THEN 1 ELSE 0;
 YR7/I5       = IF SEATS LE 5 THEN 1 ELSE 0;
END
-*
TABLE FILE CAR
 SUM HEADCOUNT
 ON TABLE HOLD AS HOLDX
END
-*
-RUN
-READFILE HOLDX
-*
TABLE FILE CAR
 SUM 
  HEADCOUNT &NOPRINT
  YR4
  COMPUTE YR4PCT_G/D5.1% = (YR4 / HEADCOUNT) * 100; 
  COMPUTE YR4PCT_T/D5.1% = (YR4 / &HEADCOUNT) * 100; 
  YR6
  COMPUTE YR6PCT/D5.1% = (YR6 / HEADCOUNT) * 100;
  YR7
  COMPUTE YR7PCT/D5.1% = (YR7 / HEADCOUNT) * 100;
 BY &GROUPINGS
 ON TABLE SET PAGE-NUM NOLEAD
 ON TABLE NOTOTAL
 ON TABLE PCHOLD FORMAT HTML
 ON TABLE SET HTMLCSS ON
 ON TABLE SET STYLE *
  INCLUDE = endeflt,$
  TYPE=DATA, BACKCOLOR = WHITE,$
  TYPE=REPORT, GRID=OFF, $
 ENDSTYLE
END

 
TABLE FILE CAR
SUM 
     CAR.BODY.DEALER_COST
	 PCT.CAR.BODY.DEALER_COST WITHIN CAR.ORIGIN.COUNTRY
BY  LOWEST CAR.ORIGIN.COUNTRY
BY  LOWEST CAR.BODY.BODYTYPE
END 

*TOTAL CARTYPE PETROL	2	1	50.0%	1	50.0%	2	100.0% 
*TOTAL STARTCAR SEDAN	4	2	50.0%	3	75.0%	4	100.0% 
*TOTAL COUNTRY ENGLAND	4	2	200.0%	3	300.0%	4	400.0% 

SET ASNAMES = ON

DEFINE FILE CAR
	GRANDTOTAL/A6 = 'TOTAL';
END

TABLE FILE CAR
	SUM SALES AS GRANDTOTAL_SALES
	BY	GRANDTOTAL

	SUM SALES AS COUNTRY_SALES
	BY	GRANDTOTAL
	BY COUNTRY

	SUM SALES AS CAR_SALES
	BY	GRANDTOTAL
	BY COUNTRY
	BY CAR

	SUM SALES
	BY GRANDTOTAL
	BY COUNTRY
	BY CAR
	BY SEATS

ON TABLE HOLD AS X
END

TABLE FILE X
	SUM SALES
		COMPUTE GROUP_PERC_1/D6.2% = 100 * COUNTRY_SALES / GRANDTOTAL_SALES; AS 'Country in total'
		COMPUTE GROUP_PERC_2/D6.2% = 100 * CAR_SALES / COUNTRY_SALES; AS 'Car in country'
		COMPUTE GROUP_PERC_3/D6.2% = 100 * SALES / CAR_SALES; AS 'Seats in car'
		COMPUTE GROUP_PERC_4/D6.2% = 100 * SALES / COUNTRY_SALES; AS 'Seats in country'
		COMPUTE GROUP_PERC_5/D6.2% = 100 * SALES / GRANDTOTAL_SALES; AS 'Seats in total'
	BY	GRANDTOTAL
	BY COUNTRY
	BY CAR
	BY SEATS
END

quote:

ON &GROUPWITHIN SUB-TOTAL