* Título : GESTION GUBERNAMENTAL ROLL ECONOMICO (5) * Fecha : 19 DE JUNIO DE 1995 * Path : REC50695.PRG * Alcance : NACIONAL * Lugar : REPUBLICA MEXICANA HORITA=val(substr(str(HORAINI),3,2)) ********************** **** VERSION (1) ***** ********************** IF HORITA<15.OR.(HORITA>29.AND.HORITA<45) MVER=1 REPL VER WITH MVER DO MASCARA @ 02, 2 say 'PACU.- En general, ¿está usted de acuerdo o en desacuerdo con la' @ 03, 2 say ' manera 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 READ ENDIF DO MASCARA @ 02, 2 say '1.-¿Cómo cree usted que será su situación personal el año que viene,' @ 03, 2 say ' mejor o peor?' @ 05, 2 say ' (1) Mejor' @ 06, 2 say ' (2) Igual (ESPONTANEA)' @ 07, 2 say ' (3) Peor' @ 08, 2 say ' (4) N/S ' @ 09, 2 say ' (5) N/C 'GET P5 RANGE 1,5 READ DO MASCARA @ 02, 2 say '2.- Desde que Ernesto Zedillo es presidente de la república, ¿cree usted' @ 03, 2 say ' que ha aumentado o disminuído...? (LEER OPCIONES)' @ 05, 2 say ' Aumentado Sigue igual Disminuído Ns-nc' @ 07, 2 say ' La pobreza (1) (2) (3) (4) ' GET P2D_1 RANGE 1,4 @ 08, 2 say ' La corrupción (1) (2) (3) (4) ' GET P2D_2 RANGE 1,4 @ 09, 2 say ' La delincuencia (1) (2) (3) (4) ' GET P2D_3 RANGE 1,4 @ 10, 2 say ' La confianza en el gobierno (1) (2) (3) (4) ' GET P2D_4 RANGE 1,4 @ 11, 2 say ' La estabilidad y paz social (1) (2) (3) (4) ' GET P2D_5 RANGE 1,4 @ 12, 2 say ' La limpieza de las elecciones (1) (2) (3) (4) ' GET P2D_6 RANGE 1,4 @ 13, 2 say ' El prestigio de México en el ' @ 14, 2 say ' extranjero (1) (2) (3) (4) ' GET P2D_7 RANGE 1,4 READ DO MASCARA @ 02, 2 say '3.- En general, ¿cree usted que Ernesto Zedillo ha cumplido con lo que' @ 03, 2 say ' prometió a principios de su sexenio?' @ 05, 2 say ' (1) Sí' @ 06, 2 say ' (2) No con todo' @ 07, 2 say ' (3) No' @ 08, 2 say ' (4) NS/NC ' GET P3D RANGE 1,4 READ DO MASCARA @ 02, 2 say '4.- ¿Usted aprueba o desaprueba la política económica del gobierno actual?' @ 04, 2 say ' (1) Aprueba' @ 05, 2 say ' (2) Desaprueba' @ 06, 2 say ' (3) Ns/Nc ' GET P4D RANGE 1,3 READ DO MASCARA @ 02, 2 say '5.- ¿Cree usted que las medidas económicas tomadas por el gobierno de' @ 03, 2 say ' Ernesto Zedillo son adecuadas o inadecuadas para resolver la' @ 04, 2 say ' situacióneconómica del país?' @ 06, 2 say ' (1) Adecuadas' @ 07, 2 say ' (2) Algunas adecuadas' @ 08, 2 say ' (3) Inadecuadas' @ 09, 2 say ' (4) Ns-nc 'GET PAIS RANGE 1,4 READ DO MASCARA @ 02, 2 say '6.-¿Y usted cree que las medidas económicas tomadas por el gobierno de' @ 03, 2 say ' Ernesto Zedillo son adecuadas o inadecuadas para resolver su situación' @ 04, 2 say ' económica personal (y/o familiar)?' @ 06, 2 say ' (1) Adecuadas' @ 07, 2 say ' (2) Algunas adecuadas' @ 08, 2 say ' (3) Inadecuadas' @ 09, 2 say ' (4) Ns-nc ' GET PERS RANGE 1,4 READ DO MASCARA @ 02, 2 say '7.- Desde su punto de vista, ¿cuál ha sido la principal tarea que ha' @ 03, 2 say ' realizado el presidente Zedillo? (NO LEER OPCIONES)' @ 05, 2 say ' (1) Solucionar la crisis economica' @ 06, 2 say ' (2) Resolver el conflicto de Chiapas' @ 07, 2 say ' (3) Aclarar los asesinatos políticos' @ 08, 2 say ' (4) Mejorar al país' @ 09, 2 say ' (5) Otro' @ 10, 2 say ' (6) Ninguna' @ 11, 2 say ' (7) Ns-nc ' GET P7D RANGE 1,7 READ DO MASCARA @ 02, 2 say '8.- ¿Cómo califica usted la actuación del presidente Zedillo para' @ 03, 2 say ' solucionar la crisis económica? (LEER OPCIONES)' @ 05, 2 say ' (1) Adecuada (2) Inadecuada (3) NS-NC ' GET P8D_1 RANGE 1,3 @ 06, 2 say ' (1) Insuficiente (2) Suficiente (3) NS-NC ' GET P8D_2 RANGE 1,3 @ 07, 2 say ' (1) Oportuna (2) Fuera de tiempo (3) NS-NC ' GET P8D_3 RANGE 1,3 @ 08, 2 say ' (1) Dura (2) Demasiado blanda (3) NS-NC ' GET P8D_4 RANGE 1,3 READ DO MASCARA @ 02, 2 say '9.- ¿Confía usted en la capacidad de Ernesto Zedillo para resolver la' @ 03, 2 say ' crisis económica o tiene usted alguna duda al respecto? ' @ 05, 2 say ' (1) Sí confía' @ 06, 2 say ' (2) Tiene duda' @ 07, 2 say ' (3) Ns-nc 'GET P9D RANGE 1,3 READ DO MASCARA @ 02, 2 say '10.-¿Usted cree que el rumbo que lleva el país es el correcto o cree' @ 03, 2 say ' que lleva un rumbo equivocado? ' @ 05, 2 say ' (1) Es el correcto' && pase a 12 @ 06, 2 say ' (2) Lleva rumbo equivocado' @ 07, 2 say ' (3) Ns-nc 'GET PRUM RANGE 1,3 && pase a 12 READ IF PRUM=2 DO MASCARA @ 02, 2 say '11.- ¿Por qué lleva el rumbo equivocado? (ENTREVISTADOR: NO LEA OPCIONES)' @ 04, 2 say ' (1) Por la devaluación (crisis)' @ 05, 2 say ' (2) Por el mal gobierno' @ 06, 2 say ' (3) Crece la deuda' @ 07, 2 say ' (4) Empeora la situación del país' @ 08, 2 say ' (5) Por errores de gobiernos anteriores' @ 09, 2 say ' (6) Otro' @ 10, 2 say ' (7) Ns' @ 11, 2 say ' (8) Nc ' GET P11D_1 RANGE 1,8 READ ELSE REPL P11D_1 WITH 0 ENDIF DO MASCARA @ 02, 2 say '12.-Con lo que usted sabe, ¿cree que el gobierno de Ernesto Zedillo tiene' @ 03, 2 say ' 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 DO MASCARA @ 02, 2 say '13.- ¿Cuál cree usted que deba ser el principal objetivo del gobierno en' @ 03, 2 say ' estos momentos: controlar la inflación o hacer que haya más empleos' @ 04, 2 say ' aunque aumente la inflación?' @ 06, 2 say ' (1) Controlar la inflación' @ 07, 2 say ' (2) Que haya más empleos aunque aumente la inflación' @ 08, 2 say ' (3) Ninguna de las dos' @ 09, 2 say ' (4) Otra' @ 10, 2 say ' (5) Ns-nc 'GET P13D RANGE 1,5 READ DO MASCARA @ 02, 2 say '14.- Considerando lo que ha hecho hasta ahora, en una escala de 0 a 10,' @ 03, 2 say ' ¿qué calificación le daria usted al presidente Zedillo?' @ 05, 2 say ' (11) NS/NC 'GET PCAL RANGE 0,11 READ ********************** **** VERSION (2) ***** ********************** IF (HORITA>14.AND.HORITA<30).OR.HORITA>44 MVER=2 REPL VER WITH MVER DO MASCARA @ 02, 2 say 'PACU.- En general, ¿está usted de acuerdo o en desacuerdo con la' @ 03, 2 say ' manera 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 READ ENDIF DO MASCARA @ 02, 2 say '(SIMPOL).- De los partidos políticos que hay actualmente en el país,' @ 03, 2 say ' ¿con cuál simpatiza usted más?' @ 05, 2 say ' (1) Con el PAN' @ 06, 2 say ' (2) Con el PRI' @ 07, 2 say ' (3) Con el PRD' @ 08, 2 say ' (4) Con otro' @ 09, 2 say ' (5) Ninguno' @ 10, 2 say ' (6) NS/NC' GET PSIM RANGE 1,6 READ * --- SOCIOECONOMICOS 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 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 - 550,000)' @ 15, 2 say ' (2) 1-3 Sal. Min. ( 551,000 - 1,647,000)' @ 16, 2 say ' (3) 3-5 Sal. Min. (1,648,000 - 2,745,000)' @ 17, 2 say ' (4) 5-7 Sal. Min. (2,746,000 - 3,843,000)' @ 18, 2 say ' (5) 7-10 Sal. Min. (3,844,000 - 5,490,000)' @ 19, 2 say ' (6) 10-+ Sal. Min. (5,491,000 - o más) ' get ingre range 1,7 read RETURN