OMS and macros

* (Q) Need to create a separate HTML file containing a table for each distinc value of Product.

*(A) Posted to SPSSX-L list by Raynald Levesque on 2004/03/30.
* This is a completely automated solution.

DATA LIST LIST /Product (A1) RATING (F2.0) VPoor (PCT2.0) Poor (PCT2.0)
Neutral (PCT2.0) Good (PCT2.0) Excelnt (PCT2.0) Mean (F3.2) N (F5.0) OUTPUT
(A8).
BEGIN DATA
A 1 17 08 33 17 25 3.25 12 Report_A
A 2 17 08 33 17 25 3.25 12 Report_A
B 1 17 08 33 08 33 3.33 14 Report_B
B 2 42 08 08 08 33 2.83 14 Report_B
C 1 17 42 08 08 25 2.83 18 Report_C
C 2 17 17 33 08 25 3.08 18 Report_C
D 1 42 08 17 08 25 2.67 22 Report_D
D 2 17 00 17 42 25 3.58 22 Report_D
END DATA.
VAR LABELS Excelnt 'Excellent' VPoor 'Very Poor'.
SAVE OUTFILE='c:\\temp\\original data.sav'.

SORT CASES BY product.
AGGREGATE OUTFILE=*
	/PRESORTED
	/BREAK=product
	/notused=N.
WRITE OUTFILE='c:\\temp\\macro calls.sps'
	/"!doit prod='"product"'.".
EXECUTE.

*///////////////.
DEFINE !doit (prod=!TOKENS(1))
SET MPRINT=yes.
TEMPORARY.
OMS /SELECT TEXTS
        /IF COMMANDS = ['Report']
        /DESTINATION FORMAT = HTML  OUTFILE = !QUOTE(!CONCAT('C:\\TEMP\\REPORT_',!UNQUOTE(!prod),'.HTM')).
SELECT IF Product=!prod.
Report
  /FORMAT= CHWRAP(ON) PREVIEW(OFF) CHALIGN(BOTTOM)  UNDERSCORE(ON)
  ONEBREAKCOLUMN(OFF) CHDSPACE(1)  SUMSPACE(0)  AUTOMATIC  LIST BRKSPACE(-1)
  PAGE(1) MISSING'.' LENGTH(1, 99999) ALIGN(LEFT) TSPACE(1) FTSPACE(1) MARGINS(1,79)
  /TITLE= CENTER !QUOTE(!CONCAT('Product ',!UNQUOTE(!prod))) RIGHT 'Page )PAGE'
  /VARIABLES
 RATING  (VALUES)  (RIGHT)  (OFFSET(0)) (8)
 Mean  (VALUES)  (RIGHT)  (OFFSET(0)) (8)
 N  (VALUES)  (RIGHT)  (OFFSET(0)) (8)
 Excelnt  (VALUES)  (RIGHT)  (OFFSET(0)) (9)
 Good  (VALUES)  (RIGHT)  (OFFSET(0)) (8)
 Neutral  (VALUES)  (RIGHT)  (OFFSET(0)) (8)
 Poor  (VALUES)  (RIGHT)  (OFFSET(0)) (8)
 VPoor  (VALUES)  (RIGHT)  (OFFSET(0)) (8) .
OMSEND.
SET MPRINT=no.
!ENDDEFINE.
*///////////////.

GET FILE='c:\\temp\\original data.sav'.

INCLUDE 'c:\\temp\\macro calls.sps'.