* TEMA : POLICIA FEDERAL PREVENTIVA INICIA FUNCIONES * FECHA : 20/AGOSTO/1999 * PATH : SEG10899 * ALCANCE : NACIONAL * LUGAR : REPUBLICA MEXICANA *** VERSION SEGUN EL TIEMPO ***** HORITA=substr(str(HORAINI),3,2) IF VAL(HORITA)<15.OR.(VAL(HORITA)>29.AND.VAL(HORITA)<45) REPL VER WITH 1 ELSE REPL VER WITH 2 ENDIF *** do mascara @ 02, 2 say 'Acu.-En general, ¿está usted de acuerdo o en desacuerdo con la manera' @ 03, 2 SAY ' como está gobernando el presidente Zedillo?' @ 05, 2 SAY ' (1) Acuerdo' @ 06, 2 SAY ' (2) Acuerdo en parte' @ 07, 2 SAY ' (3) Desacuerdo en parte' @ 08, 2 say ' (4) Desacuerdo' @ 09, 2 say ' (5) Ns/Nc' GET PACU RANGE 1,5 read ********************** **** VERSION (1) ***** ********************** IF VER=1 DO MASCARA @ 02, 2 say 'Ctr.Con lo que usted sabe, ¿usted cree que el gobierno de Ernesto Zedillo' @ 03, 2 say ' tiene las riendas del país o las cosas se están saliendo de su control?' @ 05, 2 say ' (1) Tiene las riendas' @ 06, 2 say ' (2) Están saliendo de su control' @ 07, 2 SAY ' (3) Ns/Nc' GET PCTR RANGE 1,3 READ ENDIF ********************** DO MASCARA @ 02, 2 say 'DIP.-En general, ¿cuántos años dura un diputado en su cargo (puesto)?' @ 04, 2 say ' (1) 3 años' @ 05, 2 say ' (2) Otro' @ 06, 2 SAY ' (3) Ns/Nc' GET PDIP RANGE 1,3 READ DO MASCARA @ 02, 2 say 'CGR.-Con lo que usted sabe, ¿cuáles son las cámaras que tiene el Congreso' @ 03, 2 say ' de México?' @ 05, 2 say ' (1) Diputados y Senadores' @ 06, 2 say ' (2) Diputados' @ 07, 2 say ' (3) Senadores' @ 08, 2 say ' (4) Otra respuesta' @ 09, 2 say ' (5) Ns/Nc' GET PCGR RANGE 1,5 READ DO MASCARA @ 02, 2 say 'GOB.-Por favor, ¿me puede decir el nombre del gobernador actual de' @ 03, 7 say EDONOM+' ?.' @ 05, 5 say GOBER+'(1)Correcto (2)Incorrecto (3)Ns/Nc' get PGOB RANGE 1,3 READ do mascara @ 02, 2 say '6.-¿Cuánta confianza tiene usted en el presidente Zedillo para protegerlo' @ 03, 2 say ' del crímen, muchísima, mucha, poca o ninguna?' @ 05, 2 say ' (1) Muchísima' @ 06, 2 say ' (2) Mucha' @ 07, 2 say ' (3) Poca' @ 08, 2 say ' (4) Ninguna' @ 09, 2 say ' (5) Ns/Nc' GET P6 RANGE 1,5 read DO MASCARA @ 02, 2 say '7.-¿Cómo calificaría usted la seguridad pública en México, es buena' @ 03, 2 say ' o mala?' @ 05, 2 say ' (1) Buena' @ 06, 2 say ' (2) Regular' @ 07, 2 say ' (3) Mala' @ 08, 2 say ' (4) Muy mala' @ 09, 2 say ' (5) Ns/Nc' get p7 range 1,5 READ DO MASCARA @ 02, 2 say '8.-En su opinión, ¿cuál es la principal causa de la inseguridad en la ciudad' @ 03, 2 say ' donde usted vive?' @ 05, 2 say ' (1) REGISTRAR EN PAPEL' @ 06, 2 say ' (2) Ns/Nc' get p8 range 1,2 READ DO MASCARA @ 02, 2 say '9.-Además de los problemas económicos, dígame qué tanto contribuyen a la' @ 03, 2 say ' inseguridad que vive el país:...' @ 05, 2 say ' TOTALMENTE BASTANTE POCO NADA NS/NC' @ 07, 2 say '-La falta de capacitación de la policía (1) (2) (3) (4) (5)' get p9_1 range 1,5 @ 08, 2 say '-La complicidad de delincuentes ' @ 09, 2 say ' y policías (1) (2) (3) (4) (5)' get p9_2 range 1,5 @ 10, 2 say '-La venta del alcohol a altas horas de' @ 11, 2 say ' la noche (1) (2) (3) (4) (5)' get p9_3 range 1,5 @ 12, 2 say '-La falta de denuncia de las víctimas' @ 13, 2 say ' de las delincuencia (1) (2) (3) (4) (5)' get p9_4 range 1,5 READ DO MASCARA @ 02, 2 say '10.-¿Me puede decir si usted o alguien de su familia ha sido víctima' @ 03, 2 say ' de un acto violento o ha sufrido algún asalto?' @ 05, 2 say ' (1) Si' @ 06, 2 say ' (2) No' @ 07, 2 say ' (3) Ns-Nc' GET P10 RANGE 1,3 READ IF P10=1 @ 10, 2 say '10_1.-¿Me puede decir que le pasó?' @ 12, 2 say ' (1) Asalto (dinero, coche, etc)' @ 13, 2 say ' (2) Violación' @ 14, 2 say ' (3) Secuestro' @ 15, 2 say ' (4) Abusos de las autoridades policiacas' @ 16, 2 say ' (5) Agresiones físicas' @ 17, 2 say ' (6) Otro' @ 18, 2 say ' (7) Ns/Nc' GET P10_1 RANGE 1,7 READ ELSE REPLACE P10_1 WITH 0 ENDIF do mascara @ 02, 2 say '11.-¿Usted cree que si el gobierno quisiera ya se habría resuelto el problema' @ 03, 2 say ' de la delincuencia o cree que es un problema difícil que tardará tiempo' @ 04, 2 say ' en resolverse?' @ 06, 2 say ' (1) Si el gobierno quisiera, ya se habría resuelto' @ 07, 2 say ' (2) Es problema difícil y tardará tiempo en resolverse' @ 08, 2 say ' (3) Ns/Nc' GET P11 RANGE 1,3 read DO MASCARA @ 02, 2 say '12.-Hay muchas cosas que se deben hacer para disminuir la delincuencia, pero' @ 03, 2 say ' no todas pueden hacerse al mismo tiempo. En su opinión, ¿qué es más' @ 04, 2 say ' importante (ENCUESTADOR: LEER OPCIONES 1 y 2):...?' @ 06, 2 say ' (1) Castigar severamente a los delincuentes o' @ 07, 2 say ' (2) Fortalecer los cuerpos policíacos' @ 08, 2 say ' (3) Ns/Nc' GET P12 RANGE 1,3 READ DO MASCARA @ 02, 2 say '13.-Y ¿hacia dónde cree usted que está dirigiendo sus esfuerzos el' @ 03, 2 say ' Presidente a...? (ENCUESTADOR: LEER DE NUEVO LAS OPCIONES 1 y 2)' @ 05, 2 say ' (1) Castigar severamente a los delincuentes o' @ 06, 2 say ' (2) Fortalecer los cuerpos policíacos' @ 07, 2 say ' (3) Ns/Nc' GET P13 RANGE 1,3 READ DO MASCARA @ 02, 2 say '14.-En su opinión, ¿quién es el principal responsable de garantizar' @ 03, 2 say ' la seguridad en el país?' @ 04, 2 say ' (ENCUESTADOR NO LEA OPCIONES)' @ 06, 2 say ' (1) El Presidente' @ 07, 2 say ' (2) El Ejército' @ 08, 2 say ' (3) La policía' @ 09, 2 say ' (4) La Secretaria de Gobernación' @ 10, 2 say ' (5) Los gobernadores' @ 11, 2 say ' (6) Los presidentes municipales' @ 12, 2 say ' (7) La Procuraduria General de la República' @ 13, 2 say ' (8) Consejo Nacional de Seguridad Publica' @ 14, 2 say ' (9) Todos los gobernantes' @ 15, 2 say ' (10) Otro (REGISTRAR EN PAPEL)' @ 16, 2 say ' (11) Ns/Nc' get P14 range 1,11 READ DO MASCARA @ 02, 2 say '15.-Dígame, ¿qué tan de acuerdo está usted en que para disminuir la' @ 03, 2 say ' delincuencia se:...?' @ 05, 2 say ' TOTALMTE BASTANTE POCO NADA NS/NC' @ 07, 2 say ' -Aumente el castigo a los delincuentes (1) (2) (3) (4) (5)' get p15_1 range 1,5 @ 08, 2 say ' -Instalar retenes (puntos de revisión)' @ 09, 2 say ' de vehículos (1) (2) (3) (4) (5)' get p15_2 range 1,5 @ 10, 2 say ' -Realizar redadas en transportes' @ 11, 2 say ' públicos (1) (2) (3) (4) (5)' get p15_3 range 1,5 @ 12, 2 say ' -Restrinjir el horario de venta de' @ 13, 2 say ' alcohol en bares y restaurantes (1) (2) (3) (4) (5)' get p15_4 range 1,5 @ 14, 2 say ' -Imponer la pena de muerte en delitos' @ 15, 2 say ' graves como el homicidio (1) (2) (3) (4) (5)' get p15_5 range 1,5 read DO MASCARA @ 02, 2 say '16.-¿Vio, escuchó o se enteró usted si recientemente ocurrió algún' @ 03, 2 say ' acontecimiento importante en relación a la seguridad pública?' @ 05, 2 say ' (1) Sí' @ 06, 2 say ' (2) No' @ 07, 2 say ' (3) Ns/Nc' GET P16 RANGE 1,3 READ IF P16=1 @ 10, 2 say '16_1.-¿Qué?' @ 12, 2 say ' Sí mención No mención' @ 14, 2 say ' -El miércoles entró en funciones la Policía' @ 15, 2 say ' Federal Preventiva (1) (2)' GET P16_1 RANGE 1,2 @ 16, 2 say ' -Declaraciones del Secretario de Gobernación en' @ 17, 2 say ' torno al inicio de funciones de la Policía Federal' @ 18, 2 say ' Preventiva (1) (2)' GET P16_2 RANGE 1,2 @ 19, 2 say ' -Otro (REGISTRAR EN PAPEL) (1) (2)' GET P16_3 RANGE 1,2 READ ELSE REPLACE P16_1 WITH 0,p16_2 with 0, p16_3 with 0 ENDIF IF P16<>1.OR.P16_1<>1.OR.P16_2<>1 Do mascara @ 02, 2 say '17.-Le voy a leer algunos acontecimientos recientes sobre el combate a la' @ 03, 2 say ' inseguridad pública, dígame por favor si antes de mencionárselos usted' @ 04, 2 say ' ya estaba enterado o no de que:...' @ 05, 2 SAY ' Enterado No enterado Nc' if p16_1<>1 @ 07, 2 SAY ' -El miércoles, entró en funciones una nueva' @ 08, 2 SAY ' policía (1) (2) (3)' GET P17_1 RANGE 1,3 READ ELSE REPLACE P17_1 WITH 0 ENDIF if p16_2<>1 @ 11, 2 SAY ' -Las declaraciones del Secretario de Gobernación' @ 12, 2 SAY ' en torno al inicio de funciones de la Policía' @ 13, 2 SAY ' Federal Preventiva (1) (2) (3)' GET P17_2 RANGE 1,3 READ ELSE REPLACE P17_2 WITH 0 ENDIF ELSE REPL P17_1 WITH 0, P17_2 WITH 0 ENDIF *****SOLO ENTERADOS***** if p16_1=1.or.p17_1=1 DO MASCARA @ 02, 2 say '18.-Dígame por favor, ¿cuál es el nombre de esta nueva policia?' @ 04, 2 say ' (1) REGISTRAR EN PAPEL' @ 05, 2 say ' (2) Ns/Nc' GET P18 RANGE 1,2 READ @ 10, 2 say '19.-Y dígame, ¿cuáles son sus objetivos?' @ 12, 2 say ' (1) REGISTRAR EN PAPEL' @ 13, 2 say ' (2) Ns/Nc' GET P19 RANGE 1,2 READ DO MASCARA @ 02, 2 say '20.-Dígame por favor por que medio se enteró de esta noticia' @ 04, 2 say ' (1) Televisión' @ 05, 2 say ' (2) Radio' @ 06, 2 say ' (3) Periódicos' @ 07, 2 say ' (4) Comentarios' @ 08, 2 say ' (5) Otros' @ 09, 2 say ' (6) Nc' GET P20 RANGE 1,6 READ if p20=1 @ 14, 2 say '20_1.-Y, ¿por qué televisora: Televisa o TV Azteca?' @ 16, 2 say ' (1) Televisa' @ 17, 2 say ' (2) TV Azteca' @ 18, 2 say ' (3) Otros' @ 19, 2 say ' (4) Nc' GET P20_1 RANGE 1,4 READ else repla p20_1 with 0 endif else repla p18 with 0, p19 with 0,P20 WITH 0, P20_1 WITH 0 endif *****FIN DE PASE A ENTERADOS***** DO MASCARA @ 02, 2 say '21.-En efecto, recientemente la Policía Federal Preventiva inició funciones' @ 03, 2 say ' en el aeropuerto de la Ciudad de México para prevenir y combatir el' @ 04, 2 say ' crimen organizado. ¿Qué sensación le deja a usted esta noticia?' @ 06, 2 say ' (1) Le da confianza en o (2) Le da desconfianza en (3) Ns/Nc' get p21_1 range 1,3 @ 07, 2 say ' el gobierno el gobierno' @ 08, 2 say ' (1) Satisfacción o (2) Insatisfacción (3) Ns/Nc' get p21_2 range 1,3 @ 09, 2 SAY ' (1) Preocupación o (2) Tranquilidad (3) Ns/Nc' GET P21_3 RANGE 1,3 READ DO MASCARA @ 02, 2 say '22.-Esta policía coordinará a todas las policías del país para combatir el' @ 03, 2 say ' crímen organizado a nivel nacional. ¿Qué tanto cree usted que esta' @ 04, 2 SAY ' policía logre un mejor combate al crimen organizado en el país?' @ 05, 2 say ' (ENCUESTADOR,LEA OPCIONES)' @ 07, 2 SAY ' (1) Mucho' @ 08, 2 SAY ' (2) Regular (VOLUNTARIO)' @ 09, 2 SAY ' (3) Poco' @ 10, 2 SAY ' (4) Nada' @ 11, 2 SAY ' (5) Ns/Nc' GET P22 RANGE 1,5 READ Do mascara @ 02, 2 say '23.-A raíz del inicio de funciones de la Policía Federal Preventiva,' @ 03, 2 say ' ¿usted tiene mayor o menor confianza en que se combata mejor' @ 04, 2 say ' al narcotráfico y crimen organizado en la ciudad donde usted vive?' @ 06, 2 say ' (1) Mayor' @ 07, 2 SAY ' (2) Igual' @ 08, 2 SAY ' (3) Menor' @ 09, 2 SAY ' (4) Ns/Nc' GET P23 RANGE 1,4 READ Do mascara @ 02, 2 say '24.-¿Usted cree que la nueva Policía Federal Preventiva logrará una' @ 03, 2 say ' conducta intachable y mejores resultados que los que se han' @ 04, 2 say ' tenido hasta ahora en otros cuerpos policiacos?' @ 06, 2 say ' (1) Logrará estos objetivos' @ 07, 2 SAY ' (2) Los logrará en parte' @ 08, 2 SAY ' (3) Todo seguirá como antes' @ 09, 2 SAY ' (4) Ns/Nc' GET P24 RANGE 1,4 READ Do mascara @ 02, 2 say '25.-El Gobierno Federal ha reconocido que la delincuencia se debe a la' @ 03, 2 say ' ineficiencia, corrupción e impunidad de los cuerpos policiacos' @ 04, 2 say ' y gobierno. En su opinión, el gobierno reconoce estas fallas por que:' @ 06, 2 say ' (1) Busca resolver el problema, o' @ 07, 2 SAY ' (2) Busca justificar sus errores' @ 08, 2 SAY ' (3) Ambas' @ 09, 2 SAY ' (4) Ns/Nc' GET P25 RANGE 1,4 READ do mascara @ 02, 2 say '26.-Dígame por favor, ¿usted tiene confianza o no de que en lo que resta del' @ 03, 2 say ' sexenio el gobierno de Ernesto Zedillo logrará disminuir la inseguridad' @ 04, 2 say ' pública que vive el país?' @ 06, 2 say ' (1) Tiene confianza' @ 07, 2 say ' (2) Tiene confianza en parte' @ 08, 2 say ' (3) No tiene confianza' @ 09, 2 say ' (4) Ns/Nc' GET P26 RANGE 1,4 read if p26=2.or.p26=3 @ 12, 2 say '26_2.-¿Por qué no tiene confianza?' @ 14, 2 say ' (1) REGISTRAR EN PAPEL' @ 15, 2 say ' (2) Ns/Nc' GET P26_2 RANGE 1,2 read ELSE REPLACE P26_2 WITH 0 ENDIF Do mascara @ 02, 2 say 'Opi-A raíz del inicio de funciones de la Policía Federal Preventiva,' @ 03, 2 say ' ¿su opinión sobre el presidente Zedillo mejoró o empeoró?' @ 05, 2 SAY ' (1) Mejoró' @ 06, 2 SAY ' (2) No cambió' @ 07, 2 say ' (3) Empeoró' @ 08, 2 SAY ' (4) Ns/Nc' get POPI range 1,4 READ IF POPI=2 @ 12, 2 SAY 'Opi_2-¿Y cómo es su opinión, buena o mala?' @ 14, 2 SAY ' (1) Buena' @ 15, 2 SAY ' (2) Mala' @ 16, 2 SAY ' (3) Ns/Nc' GET POPI_2 RANGE 1,3 READ ELSE REPLACE POPI_2 WITH 0 ENDIF Do mascara @ 02, 2 SAY 'Pele.-Si el día de hoy fueran las elecciones para Presidente de la República,' @ 03, 2 SAY ' ¿por cuál partido votaría usted?' @ 05, 2 SAY ' (1) PAN' @ 06, 2 SAY ' (2) PRI' @ 07, 2 SAY ' (3) PRD' @ 08, 2 SAY ' (4) PT' @ 09, 2 SAY ' (5) PVEM' @ 10, 2 SAY ' (6) Otro' @ 11, 2 SAY ' (7) Ninguno' @ 12, 2 SAY ' (8) Ns/Nc' get PELE range 1,8 READ ********************** **** VERSION (2) ***** ********************** IF VER=2 DO MASCARA @ 02, 2 say 'Ctr.Con lo que usted sabe, ¿usted cree que el gobierno de Ernesto Zedillo' @ 03, 2 say ' tiene las riendas del país o las cosas se están saliendo de su control?' @ 05, 2 say ' (1) Tiene las riendas' @ 06, 2 say ' (2) Están saliendo de su control' @ 07, 2 SAY ' (3) Ns/Nc' GET PCTR RANGE 1,3 READ ENDIF ********************** do mascara @ 02, 2 say 'SOCIOECONOMICOS' @ 03, 2 SAY 'A.- Sexo: (1) Masculino (2) Femenino ' get sex range 1, 3 @ 05, 2 say 'B.- Edad: (1) 18-25 (2) 26-40 ' @ 06, 2 say ' (3) 41-60 (4) 61 o más ' get edad range 1, 5 @ 08, 2 say 'C.- ¿En qué tipo de institución, organismo o empresa trabaja usted?' @ 09, 2 say ' (1) Ninguno' @ 10, 2 say ' (2) Gob. Federal, Estatal o Municipal' @ 11, 2 say ' (3) Paraestatal, Banca, Org. descentralizado ' @ 12, 2 say ' (4) Empresa Privada' @ 13, 2 say ' (5) Negocio Propio' @ 14, 2 say ' (6) Ejecicio o práctica independiente' get inst range 1, 7 read if inst = 1 @ 16, 2 say 'D.- ¿A qué se dedica usted?' @ 17, 2 say ' (1) Ama de casa (4) Desempleado ' @ 18, 2 say ' (2) Estudiante (5) Otro ' @ 19, 2 say ' (3) Jubilado ' get ocup range 1, 6 read else repl ocup with 0 endif if inst>1 do mascara @ 02, 2 say 'E.-¿Y usted qué es en lugar donde trabaja?' @ 03, 2 say ' (1) Dueño' @ 04, 2 say ' (2) Trabajador independiente' @ 05, 2 say ' (3) Directivo o funcionario de alto nivel' @ 06, 2 say ' (4) Empleado' @ 07, 2 say ' (5) Obrero' @ 08, 2 say ' (6) Otro' @ 09, 2 say ' (7) Ns/Nc' get PUESTO range 1,7 read else repl puesto with 0 endif do mascara @ 02, 2 say 'G.- ¿Hasta que año escolar estudió usted?' @ 03, 2 say ' (1) Ninguno ' @ 04, 2 say ' (2) Primaria incompleta ' @ 05, 2 say ' (3) Primaria completa ' @ 06, 2 say ' (4) Secundaria incompleta ' @ 07, 2 say ' (5) Secundaria completa ' @ 08, 2 say ' (6) Preparatoria incompleta ' @ 09, 2 say ' (7) Preparatoria Completa ' @ 10, 2 say ' (8) Universidad incompleta ' @ 11, 2 say ' (9) Univeridad completa ' get escol range 0, 9 @ 13, 2 say 'H.- Rango de Ingreso Familiar Mensual..' @ 14, 2 say ' (1) 0-1 Sal. Min. ($ 0 - 1,026)' @ 15, 2 say ' (2) 1-3 Sal. Min. ($ 1,027 - 3,078)' @ 16, 2 say ' (3) 3-5 Sal. Min. ($ 3,079 - 5,130)' @ 17, 2 say ' (4) 5-7 Sal. Min. ($ 5,131 - 7,182)' @ 18, 2 say ' (5) 7-10 Sal. Min. ($ 7,183 -10,260)' @ 19, 2 say ' (6) 10-+ Sal. Min. ($10,261 - o más)' get ingre range 1,7 read RETURN