RUNDEF programa
   SELECTION ALL

TABLE H1 
AS CROSSTABS OF MUNIC.TAMANOHAB
BY PESSOA.TAMANOANT
FOR PESSOA.IDADE>4 AND PESSOA.SEXO=1 AND MUNIC.TAMANOHAB>=0 AND PESSOA.TAMANOANT>=0
AND PESSOA.RESIDANT <>5
WEIGHT DOMICIL.PESO

TABLE M1 
AS CROSSTABS OF MUNIC.TAMANOHAB
BY PESSOA.TAMANOANT
FOR PESSOA.IDADE>4 AND PESSOA.SEXO=2 AND MUNIC.TAMANOHAB>=0 AND PESSOA.TAMANOANT>=0 
AND PESSOA.RESIDANT <>5
WEIGHT DOMICIL.PESO

TABLE IM 
AS TABOP  
OF (H1/M1)*100

OUTPUTFILE "BR00CTIM" OVERWRITE