RUNDEF programa
   SELECTION ALL

TABLE GRPEDAD  
AS CROSSTABS
OF PERSONA.CIUDADRHTAM BY PERSONA.CIUDADRH5TAM
FOR PERSONA.EDAD>59   

TABLE TODO 
AS CROSSTABS
OF PERSONA.CIUDADRHTAM BY PERSONA.CIUDADRH5TAM
FOR PERSONA.EDAD>4  

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

OUTPUTFILE "CH02CTED5" OVERWRITE