RUNDEF programa
   SELECTION ALL

TABLE JEFA5ANO
AS CROSSTABS OF POBLAC.CIUHORD57 BY POBLAC.CIUAORD57
FOR POBLAC.EDAD>4 AND POBLAC.CIUHORD57>=0 AND POBLAC.CIUAORD57>=0

TABLE JEFATURA5ANO
AS CROSSTABS OF POBLAC.CIUHORD57 BY POBLAC.CIUAORD57
FOR POBLAC.EDAD>4 AND POBLAC.PARENT=0 AND POBLAC.CIUHORD57>=0 AND POBLAC.CIUAORD57>=0

TABLE TJ
AS MATRIXOP
OF JEFATURA5ANO/ JEFA5ANO

OUTPUTFILE "EC90C5TJ" OVERWRITE