RUNDEF programa
   SELECTION ALL

TABLE  MUJER 
AS CROSSTABS
OF PERSONA.TAMHAB BY  PERSONA.TAMANT
FOR PERSONA.EDAD>4 AND PERSONA.DONDEVIVIA> 0 AND PERSONA.DONDEVIVIA<3 AND PERSONA.DONDEVIVE >0 AND PERSONA.DONDEVIVE<3  AND    PERSONA.SEXO =2

TABLE  HOMBRE 
AS CROSSTABS
OF PERSONA.TAMHAB BY  PERSONA.TAMANT
FOR PERSONA.EDAD>4 AND PERSONA.DONDEVIVIA> 0 AND PERSONA.DONDEVIVIA<3 AND PERSONA.DONDEVIVE >0 AND PERSONA.DONDEVIVE<3  AND    PERSONA.SEXO =1

TABLE IM 
AS TABOP
OF (HOMBRE/ MUJER) * 100

OUTPUTFILE "BO01CTIM" OVERWRITE