RUNDEF programa
   SELECTION ALL
   
   DEFINE POBLAC.ANOSEST
   AS SWITCH
   INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) < 21
   ASSIGN 0
   INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 21
   ASSIGN 1
   INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 22
   ASSIGN 2
   INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 23
   ASSIGN 3
   INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 24
   ASSIGN 4
   INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 25
   ASSIGN 5
   INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 26
   ASSIGN 6
   INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 30
   ASSIGN 6
   INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 31
   ASSIGN 7
   INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 32
   ASSIGN 8
   INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 33
   ASSIGN 9
   INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 34
   ASSIGN 10
   INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 35
   ASSIGN 11
   INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 36
   ASSIGN 12
   INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 37
   ASSIGN 12
   INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 38
   ASSIGN 12
   INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 40
   ASSIGN 12
   INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 41
   ASSIGN 13
   INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 42
   ASSIGN 14
   INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 43
   ASSIGN 15
   INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 44
   ASSIGN 16
   INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 45
   ASSIGN 17
   INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 46
   ASSIGN 18
   INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 47
   ASSIGN 18
   INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 48
   ASSIGN 18
   INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 50
   ASSIGN 18
   INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) > 50 AND ((POBLAC.NIVINS*10) +  POBLAC.GRADO) < 59
   ASSIGN 19
   ELSE 20
   TYPE INTEGER
   VALUELABELS
   0 "ninguno"
   19 "19 y mas"
   20 "ignorado"
   RANGE 0 - 20

TABLE AE 
AS AVERAGE OF POBLAC.ANOSEST
BY POBLAC.CIUHORD57
BY POBLAC.CIUAORD57
FOR  POBLAC.EDAD>24 AND POBLAC.EDAD<40 AND POBLAC.CIUHORD57>=0 AND POBLAC.CIUAORD57>=0 AND POBLAC.ANOSEST<20

OUTPUTFILE "EC90C5AE" OVERWRITE