All Regions		
		
COUNTRY	CAR	CARSOLD
ENGLAND	JAGUAR		0
	JENSEN		0
	TRIUMPH		0
*TOTAL ENGLAND		0
JAPAN	DATSUN		16
	TOYOTA		12
*TOTAL JAPAN		28
FRANCE	PEUGEOT		0
*TOTAL FRANCE		0
ITALY	ALFA ROMEO	1
	MASERATI	0
*TOTAL ITALY		1
W GERMANY	AUDI	1
	BMW		1
*TOTAL W GERMANY	2
TOTAL			31

MAINLAND REGIONS		
		
COUNTRY	CAR	CARSOLD
FRANCE	PEUGEOT		0
*TOTAL FRANCE		0
ITALY	ALFA ROMEO	1
	MASERATI	0
*TOTAL ITALY		1
W GERMANY	AUDI	1
	BMW		1
*TOTAL W GERMANY	2
TOTAL			3

 
DEFINE FILE CAR
REGION/A20=IF COUNTRY EQ 'ENGLAND' OR COUNTRY EQ 'JAPAN' THEN 'ISLAND' ELSE 'MAINLAND';
END
TABLE FILE CAR
SUM 
     COMPUTE CARSOLD/I3 = SALES / DEALER_COST;
BY  LOWEST REGION NOPRINT 
BY  LOWEST COUNTRY
BY  LOWEST CAR
     
ON COUNTRY SUBTOTAL AS '*TOTAL'
HEADING
-* How to have Report Header Display "All Regions" if no region is selected   ?
-* How to have Report Header Display "Mainland Regions" if NE 'ISLAND' ?
WHERE REGION NE 'ISLAND'; -*How to modify this line so that can run report for ALL or for MAINLAND only? 
ON TABLE SET PAGE-NUM NOLEAD 
ON TABLE COLUMN-TOTAL AS 'TOTAL'
ON TABLE PCHOLD FORMAT HTML
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
     INCLUDE = endeflt,
$
ENDSTYLE
END

 

 
DEFINE FILE CAR
REGION/A20=IF COUNTRY EQ 'ENGLAND' OR COUNTRY EQ 'JAPAN' THEN 'ISLAND' ELSE 'MAINLAND';
END
TABLE FILE CAR
SUM 
     COMPUTE CARSOLD/I3 = SALES / DEALER_COST;
BY 'CAR.ORIGIN.REGION' NOPRINT
BY 'CAR.ORIGIN.COUNTRY'
BY 'CAR.COMP.CAR'
     
ON CAR.ORIGIN.COUNTRY SUBTOTAL AS '*TOTAL'
WHERE REGION NE & REGION.(OR(<ALL,FOC_NONE>,<MAINLAND,MAINLAND>,<ISLAND,ISLAND>)).REGION.;
ON TABLE SET PAGE-NUM NOLEAD 
ON TABLE COLUMN-TOTAL AS 'TOTAL'
ON TABLE PCHOLD FORMAT HTML
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
     UNITS=IN,
     SQUEEZE=ON,
     ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
     GRID=OFF,
     FONT='TIMES NEW ROMAN',
     SIZE=10,
$
ENDSTYLE
END

  
-SET &OC='OPEN';
-SET &OPR='NE';
-REPEAT CARLOOP 2 TIMES

DEFINE FILE CAR
REGION/A20=IF COUNTRY EQ 'ENGLAND' OR COUNTRY EQ 'JAPAN' THEN 'ISLAND' ELSE 'MAINLAND';
END
TABLE FILE CAR
SUM
     COMPUTE CARSOLD/I3 = SALES / DEALER_COST;
BY 'CAR.ORIGIN.REGION' NOPRINT
BY 'CAR.ORIGIN.COUNTRY'
BY 'CAR.COMP.CAR'

ON CAR.ORIGIN.COUNTRY SUBTOTAL AS '*TOTAL'
WHERE REGION &OPR.EVAL & REGION.(OR(<ALL,FOC_NONE>,<MAINLAND,MAINLAND>,<ISLAND,ISLAND>)).REGION.;
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE COLUMN-TOTAL AS 'TOTAL'
ON TABLE PCHOLD FORMAT HTML &OC
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
     UNITS=IN,
     SQUEEZE=ON,
     ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
     GRID=OFF,
     FONT='TIMES NEW ROMAN',
     SIZE=10,
$
ENDSTYLE
END
-RUN
-SET &OC='CLOSE';
-SET &OPR='EQ';
-CARLOOP
-ENDREPEAT

quote:

Regarding &OC