RUNDEF programa
   SELECTION ALL

TABLE  MUJER 
AS CROSSTABS
OF PERSONA.CIUTAMAHAB BY  PERSONA.CIUTAMA5AN
FOR PERSONA.P5>4 AND    PERSONA.P4 =3

TABLE  HOMBRE 
AS CROSSTABS
OF PERSONA.CIUTAMAHAB BY  PERSONA.CIUTAMA5AN
FOR PERSONA.P5>4 AND    PERSONA.P4 =1

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

OUTPUTFILE "CU12CTIM" OVERWRITE