RUNDEF programa
   SELECTION ALL

TABLE JEFA5ANO
AS CROSSTABS OF  POB90.HABCIUD BY POB90.ANTCIUD
FOR POB90.DISTRESHAB >0 AND POB90.DIST5ANO<69 AND POB90.EDAD>4

TABLE JEFATURA5ANO
AS CROSSTABS OF  POB90.HABCIUD BY POB90.ANTCIUD
FOR POB90.DISTRESHAB >0 AND POB90.DIST5ANO<69 AND POB90.EDAD>4 AND POB90.PAREN =1

TABLE TJ
AS MATRIXOP
OF JEFATURA5ANO/ JEFA5ANO

OUTPUTFILE "PA90C5TJ" OVERWRITE