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 AJ
AS AVERAGE OF PERSONA.AEST
BY  PERSONA.HABCIUD   BY PERSONA.ANTCIUD
FILTER PERSONA.P01 =1