RUNDEF programa
   SELECTION ALL

TABLE GRPEDAD  
AS CROSSTABS OF PERSONA.TAMANOH58
BY PERSONA.TAMANOA58
FOR PERSONA.EDAD>14 AND PERSONA.EDAD<30

TABLE TODO
AS CROSSTABS OF PERSONA.TAMANOH58
BY PERSONA.TAMANOA58
FOR PERSONA.EDAD>4

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

OUTPUTFILE "EC01CTED2" OVERWRITE