RUNDEF programa
   SELECTION ALL

DEFINE PERSONA.AEST
AS SWITCH
INCASE (PERSONA.NIVEL=1 OR PERSONA.NIVEL=2 OR PERSONA.NIVEL=3)
ASSIGN 0
INCASE PERSONA.ANESTUDIO>0
ASSIGN PERSONA.ANESTUDIO
ELSE 50
TYPE INTEGER
RANGE 0 - 22
VARLABEL "ANOS DE ESTUDIO"

TABLE A
AS CROSSTABS OF PERSONA.TAMANOHAB
BY PERSONA.TAMANOANT
FOR PERSONA.P03>24 AND PERSONA.AEST<50 
AND PERSONA.AEST>=0

TABLE A1
AS CROSSTABS OF PERSONA.TAMANOHAB
BY PERSONA.TAMANOANT
FOR  PERSONA.P03>24  AND PERSONA.AEST<50
AND PERSONA.AEST>=0
TALLY PERSONA.AEST

TABLE AE1
AS MATRIXOP 
OF A1/A
DECIMALS 2

OUTPUTFILE "HO01CTAE1" OVERWRITE