RUNDEF programa
   SELECTION ALL

TABLE  GRPEDAD
AS CROSSTABS
OF PERSONA.TAMCIUHA BY  PERSONA.TAMCIUVIV
FOR PERSONA.P03>4 AND PERSONA.P03<15  AND PERSONA.P11M < 6 AND PERSONA.P09M < 6 AND VIVIENDA.TIPVV = 1
WEIGHT HOGAR.EXPH

TABLE  TODO 
AS CROSSTABS
OF PERSONA.TAMCIUHA BY  PERSONA.TAMCIUVIV
FOR PERSONA.P03>4 AND PERSONA.P11M < 6 AND PERSONA.P09M < 6 AND VIVIENDA.TIPVV = 1
WEIGHT HOGAR.EXPH

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

OUTPUTFILE "AR10CTED1" OVERWRITE