RUNDEF programa
   SELECTION ALL

TABLE GRPEDAD 
AS CROSSTABS OF PERSONA.TAMANOHAB
BY PERSONA.TAMANOANT
FOR PERSONA.P30>44 AND  PERSONA.P30<60
AND PERSONA.HABCIUD>=0 AND PERSONA.ANTCIUD>=0

TABLE TODO
AS CROSSTABS OF PERSONA.TAMANOHAB
BY PERSONA.TAMANOANT
FOR PERSONA.P30>4 AND PERSONA.P30<99 AND PERSONA.HABCIUD>=0 AND PERSONA.ANTCIUD>=0

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

OUTPUTFILE "RD02CTED4" OVERWRITE