RUNDEF programa
   SELECTION ALL

TABLE GRPEDAD
AS CROSSTABS OF PERSONA.TAMANOHAB
BY PERSONA.TAMANOANT
FOR PERSONA.P03>4 AND PERSONA.P03<15
WEIGHT VIVIENDA.FACTORVI

TABLE TODO
AS CROSSTABS OF PERSONA.TAMANOHAB
BY PERSONA.TAMANOANT
FOR PERSONA.P03>4 
WEIGHT VIVIENDA.FACTORVI

TABLE ED1
AS TABOP
OF (GRPEDAD/TODO) * 100
DECIMALS 2 

OUTPUTFILE "HO13CTED1" OVERWRITE