RUNDEF programa
   SELECTION ALL

TABLE GRPEDAD
AS CROSSTABS OF PERSONA.TAMANOHAB
BY PERSONA.TAMANOANT
FOR PERSONA.EDAD>59

TABLE TODO
AS CROSSTABS OF PERSONA.TAMANOHAB
BY PERSONA.TAMANOANT
FOR PERSONA.EDAD>4 

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

OUTPUTFILE "HO01CTED5" OVERWRITE