* Tema : EVALUACION DEL PRESIDENTE (4) * Fecha : 25/MAY/95 * Path : EZP40595.PRG * Lugar : REPUBLICA MEXICANA * Alcance : NACIONAL HORITA=substr(str(HORAINI),3,2) do mascara @ 02, 2 say '1.- En general, ¿está usted de acuerdo o en desacuerdo con la manera como' @ 03, 2 say ' 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 DO MASCARA @ 02, 2 say '2.-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 IF PCTR=2 @ 10, 2 say ' Dígame brevemente, ¿Porqué cree que las cosas se están saliendo del' @ 11, 2 say ' control de Ernesto Zedillo?' @ 13, 2 say ' (1) Inseguridad, indecisión, falta caracter, no soluciona' @ 14, 2 say ' (2) Mal manejo de la economía' @ 15, 2 say ' (3) Incapacidad para gobernar' @ 16, 2 say ' (4) Conflicto en Chiapas' @ 17, 2 say ' (5) Por la situación del país' @ 18, 2 say ' (6) Por el gobierno anterior' @ 19, 2 say ' (7) Mal manejo político' @ 20, 2 say ' (8) Rompimiento con Salinas (gobierno anterior)' @ 21, 2 say ' (9) Ns/Nc ' GET P2_1 RANGE 1,9 READ ELSE REPLACE P2_1 WITH 0 ENDIF ********************** **** VERSION (2) ***** ********************** IF (VAL(HORITA)>14.AND.VAL(HORITA)<30).OR.VAL(HORITA)>44 MVER=2 REPL VER WITH MVER DO MASCARA @ 02, 2 say '9.-Y, ¿Cuál es el principal problema del país que debe resolver' @ 03, 2 SAY ' inmediatamente el presidente Zedillo? (ESPONTANEO..NO LEA OPCIONES)' @ 05, 2 SAY ' (1) Desempleo' @ 06, 2 SAY ' (2) Seguridad pública' @ 07, 2 say ' (3) El conflicto en Chiapas' @ 08, 2 SAY ' (4) Resolver crímenes políticos (Colosio, Ruiz Massieu)' @ 09, 2 SAY ' (5) Crisis económica' @ 10, 2 SAY ' (6) Resolver problemas electorales (Tabasco y Chiapas)' @ 11, 2 say ' (7) Bajos Salarios' @ 12, 2 SAY ' (8) Otra (ANOTAR EN PAPEL)' @ 13, 2 SAY ' (9) Ns/Nc' GET P9 RANGE 1,9 READ ENDIF DO MASCARA @ 02, 2 say '3.- En general, ¿cómo ve usted al presidente Ernesto Zedillo...' @ 04, 2 say ' (1) Fuerte o (2) Débil (3) Ns/Nc 'GET P3_1 RANGE 1,3 @ 05, 2 say ' (1) Falso o (2) Sincero (3) Ns/Nc 'GET P3_2 RANGE 1,3 @ 06, 2 SAY ' (1) Duro o (2) Amable (3) Ns/Nc 'GET P3_3 RANGE 1,3 @ 07, 2 SAY ' (1) Actua por él o (2) Lo manejan (3) Ns/Nc 'GET P3_4 RANGE 1,3 @ 08, 2 SAY ' mismo otros ' READ do mascara @ 02, 2 say '4.-Con lo que usted sabe de Ernesto Zedillo ¿cree usted que ...?' @ 04, 2 say ' Es claro al hablar (1) No es claro al hablar (2) Ns/Nc (3)' GET P4_1 RANGE 1,3 @ 05, 2 say ' No es cercano al pueblo (1) Es cercano al pueblo (2) Ns/Nc (3)' GET P4_2 RANGE 1,3 @ 06, 2 SAY ' Resolverá la pobreza No resolverá la' @ 07, 2 SAY ' del país (1) pobreza del país (2) Ns/Nc (3)' GET P4_3 RANGE 1,3 @ 08, 2 SAY ' No es honrado (1) Es honrado (2) Ns/Nc (3)' GET P4_4 RANGE 1,3 @ 09, 2 say ' Es una buena opción No es una buena opción ' @ 10, 2 say ' para el país (1) para el país (2) Ns/Nc (3)' GET P4_5 RANGE 1,3 @ 11, 2 SAY ' No tiene personalidad Tiene personalidad' @ 12, 2 SAY ' para ser presidente (1) para ser presidente (2) Ns/Nc (3)' GET P4_6 RANGE 1,3 READ Do mascara @ 02, 2 say '5.- Desde su punto de vista ¿cuáles han sido las principales' @ 03, 2 SAY ' tareas que ha realizado hasta el momento el presidente Zedillo?' @ 05, 2 say ' (5) Mejorar al país' @ 06, 2 say ' (1) Aclarar asesinatos políticos' @ 07, 2 say ' (3) Manejo de la crisis económica' @ 08, 2 say ' (6) Ganar confianza del pueblo' @ 09, 2 say ' (8) Acercamiento con la oposición' @ 10, 2 say ' (7) Reforma Judicial' @ 11, 2 say ' (4) Ninguna' @ 12, 2 say ' (2) Buscar resolver el conflicto en Chiapas' @ 13, 2 say ' (9) Otro' @ 14, 2 say ' (10) NS/NC' GET P5 RANGE 1,10 READ Do mascara @ 02, 2 say '6.-Por favor, dígame si está de acuerdo o en desacuerdo con la manera en' @ 03, 2 SAY ' que el presidente Zedillo está manejando...' @ 05, 2 SAY ' Acuerdo Acuerdo en parte Desacuerdo Ns/Nc' @ 06, 2 say '-El conflicto en Chiapas (1) (2) (3) (4)' GET P6_4 RANGE 1,4 @ 07, 2 say '-Las investigaciones sobre' @ 08, 2 say ' los asesinatos políticos (1) (2) (3) (4)' GET P6_5 RANGE 1,4 *@ 09, 2 SAY '-La educación del país (1) (2) (3) (4)' GET P6_1 RANGE 1,4 @ 10, 2 say '-Los asuntos políticos (1) (2) (3) (4)' GET P6_2 RANGE 1,4 @ 11, 2 SAY '-La economía del país (1) (2) (3) (4)' GET P6_3 RANGE 1,4 *@ 12, 2 SAY '-La política exterior (1) (2) (3) (4)' GET P6_6 RANGE 1,4 @ 13, 2 SAY '-El combate contra la' @ 14, 2 SAY ' corrupción (1) (2) (3) (4)' GET P6_7 RANGE 1,4 READ Do mascara @ 02, 2 say '7.-En una escala de 0 a 10, ¿qué calificación le daría a Ernesto' @ 03, 2 say ' Zedillo como presidente?' @ 05, 2 say ' (NS/NC = 11) ' GET PCAL RANGE 0, 11 READ do mascara @ 02, 2 say '8.-En este momento, ¿cuál es desde su punto de vista, el problema' @ 03, 2 say ' más grave del país?' @ 04, 2 say ' (ENTREVISTADOR NO LEA OPCIONES, REGISTRE LA PRIMERA RESP ESPONTANEA)' @ 06, 2 SAY ' (11) Resolver problemas electorales (Tabasco y Chiapas)' @ 07, 2 say ' (3) Agua' @ 08, 2 say ' (4) Seguridad pública' @ 09, 2 say ' (7) Devaluación del peso' @ 10, 2 say ' (1) Inflación (aumento de precios)' @ 11, 2 say ' (9) Servicios públicos' @ 12, 2 say ' (2) Desempleo' @ 13, 2 say ' (8) Crisis económica' @ 14, 2 say ' (5) Contaminación' @ 15, 2 say ' (10) Educación' @ 16, 2 say ' (6) Conflicto en Chiapas' @ 17, 2 say ' (12) Otro (ANOTAR EN PAPEL)' @ 18, 2 say ' (13) Ns/Nc' GET P8 RANGE 1,13 READ ********************** **** VERSION (1) ***** ********************** IF VAL(HORITA)<15.OR.(VAL(HORITA)>29.AND.VAL(HORITA)<45) MVER=1 REPL VER WITH MVER Do mascara @ 02, 2 say '9.-Y, ¿Cuál es el principal problema del país que debe resolver' @ 03, 2 SAY ' inmediatamente el presidente Zedillo? (ESPONTANEO..NO LEA OPCIONES)' @ 05, 2 SAY ' (1) Desempleo' @ 06, 2 SAY ' (2) Seguridad pública' @ 07, 2 say ' (3) El conflicto en Chiapas' @ 08, 2 SAY ' (4) Resolver crímenes políticos (Colosio, Ruiz Massieu)' @ 09, 2 SAY ' (5) Crisis económica' @ 10, 2 SAY ' (6) Resolver problemas electorales (Tabasco y Chiapas)' @ 11, 2 say ' (7) Bajos Salarios' @ 12, 2 SAY ' (8) Otra (ANOTAR EN PAPEL)' @ 13, 2 SAY ' (9) Ns/Nc' GET P9 RANGE 1,9 READ ENDIF *DO MASCARA *@ 02, 2 SAY '10.- Por favor dígame ¿qué tan grave cree usted que es para' *@ 03, 2 SAY ' el país el problema de...?' *@ 04, 2 SAY ' Mucho Poco Nada Ns/Nc' *@ 06, 2 SAY ' - El conflicto en Chiapas (1) (2) (3) (4) ' GET P10A_1 RANGE 1,4 *@ 07, 2 SAY ' - Los asesinatos políticos (1) (2) (3) (4) ' GET P10A_2 RANGE 1,4 *@ 08, 2 SAY ' - La corrupción de fuerzas (1) (2) (3) (4) ' GET P10A_3 RANGE 1,4 *@ 09, 2 SAY ' policiacas' *@ 10, 2 SAY ' - Las manifestaciones (1) (2) (3) (4) ' GET P10A_4 RANGE 1,4 *@ 11, 2 SAY ' - El Conflicto de Ruta 100 (1) (2) (3) (4) ' GET P10A_5 RANGE 1,4 *READ Do mascara @ 02, 2 say '11.-Vió, escuchó o se enteró usted si recientemente hubo algún anuncio' @ 03, 2 say ' importante para los mexicanos?' @ 05, 2 say ' (1) Sí' @ 06, 2 say ' (2) No' @ 07, 2 say ' (3) Ns/Nc' GET P10 RANGE 1,3 READ IF P10=1 @ 10, 2 say '¿Cuál?' @ 12, 2 say ' (1) El presidente Zedillo instaló el Consejo Mexicano de Productividad' @ 13, 2 say ' y Competitividad (COMEPROC)' @ 14, 2 say ' (2) Se detuvo a Jorge Hank hijo de Carlos Hank González' @ 15, 2 SAY ' por contrabando' @ 16, 2 say ' (3) Baja de tasas de interés en el banco' @ 17, 2 SAy ' (4) Espionaje telefónico' @ 18, 2 say ' (5) Otro' @ 19, 2 say ' (6) Ns/Nc' GET P10_1 RANGE 1,6 READ ELSE REPL P10_1 WITH 0 ENDIF IF P10_1<>1 do mascara @ 02, 2 say '12.-Tal vez usted ya estaba enterado que el presidente Zedillo' @ 03, 2 say ' instaló el Consejo Mexicano de Productividad y Competitividad (COMEPROC).' @ 04, 2 say ' Antes de que yo se lo mencionara, ¿usted ya estaba' @ 05, 2 say ' enterdo(a) o no de esto?' @ 07, 2 say ' (1) Ya estaba enterado' @ 08, 2 SAY ' (2) No estaba enterado' @ 09, 2 SAY ' (3) Ns/Nc' GET P11 RANGE 1,3 READ ELSE REPL P11 WITH 0 ENDIF IF P11<2 Do mascara @ 02, 2 say '13.- De las funciones que cumplirá este Consejo Mexicano ¿qué' @ 03, 2 SAY ' recuerda usted más?' @ 05, 2 say ' (1) Elevar la productividad' @ 06, 2 say ' (2) Crear empleos' @ 07, 2 say ' (3) Se renueva la alianza entre obreros, campesinos' @ 08, 2 say ' empresarios y gobierno' @ 09, 2 say ' (4) Otro' @ 10, 2 say ' (5) Ns/Nc' GET P13 RANGE 1,5 READ *Do mascara *@ 02, 2 say '14.-El Consejo Mexicano de Productividad pretende generar una mayor' *@ 03, 2 say ' productividad y empleo ¿Qué sensación le deja a usted la integración' *@ 04, 2 say ' de este Consejo? (ENTREVISTADOR:LEA OPCIONES)' *@ 06, 2 say ' (1) Confianza o (2) Desconfianza (3) Ns/Nc ' GET P14_1 RANGE 1,3 *@ 07, 2 say ' (1) Pesimismo o (2) Optimismo (3) Ns/Nc ' GET P14_2 RANGE 1,3 *@ 08, 2 say ' (1) Satisfacción u (2) Insatisfacción (3) Ns/Nc ' GET P14_3 RANGE 1,3 *READ DO MASCARA @ 02, 2 say '15.- ¿Cree usted que este Consejo Mexicano de Productividad servirá' @ 03, 2 say ' de algo o no servirá de nada?' @ 05, 2 say ' (1) Sí servirá' @ 06, 2 say ' (2) No servirá' @ 07, 2 say ' (3) Ns/Nc' GET P15 RANGE 1,3 READ Do mascara @ 02, 2 say '16.- Este Consejo está integrado por representantes de los empresarios,' @ 03, 2 say ' obreros, campesinos y el gobierno ¿Cree usted que este Consejo' @ 04, 2 say ' realmente logrará o no generar empleos?' @ 06, 2 say ' (1) Sí' @ 07, 2 say ' (2) No' @ 08, 2 say ' (3) Ns/Nc' GET P16 RANGE 1,3 READ Do mascara @ 02, 2 say '17.-Y ¿Cree usted que la integración de este Consejo Nacional traera' @ 03, 2 say ' algún beneficio a la economía del país?' @ 05, 2 say ' (1) Si' @ 06, 2 say ' (2) No' @ 07, 2 say ' (3) Ns/Nc' get p17 range 1,3 READ IF P17=1 @ 11, 2 say '¿Cuál?' @ 13, 2 SAY ' (1) habrá más fuentes de trabajo' @ 14, 2 say ' (2) Mejorará la economía' @ 15, 2 say ' (3) Adquirir productos de mejor calidad' @ 16, 2 say ' (4) Disminuirá que los mexicanos vayan a trabajar a E.U.' @ 17, 2 say ' (5) Otro (ENTREVISTADOR ANOTAR EN PAPEL)' @ 18, 2 say ' (6) Ns/Nc' get p17_1 range 1,6 READ else repl p17_1 with 0 endif DO MASCARA @ 02, 2 say '18.- En su opinión la integración de este Consejo refleja unidad entre' @ 03, 2 say ' los obreros, campesinos, empresarios y gobierno o es pura demagógia?' @ 05, 2 say ' (1) Es pura demagógia' @ 06, 2 say ' (2) Refleja unidad' @ 07, 2 say ' (3) No sabe' GET P18 RANGE 1,3 READ ELSE REPL P13 WITH 0, P15 WITH 0, P16 WITH 0, P17 WITH 0, P17_1 WITH 0, P18 WITH 0 ENDIF *DO MASCARA *@ 02, 2 say '19.- ¿Qué tan grave cree usted que es para el país el problema de ...?' *@ 04, 2 say ' Mucho Poco Nada Ns/Nc' *@ 06, 2 say ' - La inflación (1) (2) (3) (4) ' GET P19_1 RANGE 1,4 *@ 07, 2 say ' - La corrupción de funcionarios ' *@ 08, 2 say ' públicos (1) (2) (3) (4) ' GET P19_2 RANGE 1,4 *@ 09, 2 say ' - El desempleo (1) (2) (3) (4) ' GET P19_3 RANGE 1,4 *@ 10, 2 say ' - La educación (1) (2) (3) (4) ' GET P19_4 RANGE 1,4 *@ 11, 2 say ' - La salud (1) (2) (3) (4) ' GET P19_5 RANGE 1,4 *READ Do mascara @ 02, 2 say '20.- A raíz de la instalación de este Consejo para la generación' @ 03, 2 say ' de empleos mejor remunerados para los trabajadores, productores' @ 04, 2 say ' del campo y empresarios ¿su opinión sobre el presidente Zedillo' @ 05, 2 say ' mejoró o empeoró?' @ 07, 2 say ' (1) Mejoró' @ 08, 2 say ' (2) Sigue igual' @ 09, 2 say ' (3) Empeoró' @ 10, 2 say ' (4) No contestó' get popi range 1,4 READ ********************** **** VERSION (1) ***** ********************** IF VAL(HORITA)<15.OR.(VAL(HORITA)>29.AND.VAL(HORITA)<45) MVER=1 REPL VER WITH MVER DO mascara @ 02, 2 say 'PSIM.-De los candidatos a la Presidencia de la República del 21 de agosto' @ 03, 2 say ' Diego Fernández de Cevallos del PAN, Ernesto Zedillo del PRI, y' @ 04, 2 say ' Cuauhtémoc Cárdenas del PRD, ¿con cuál candidato simpatiza usted más?' @ 06, 2 say ' (1) Diego Fernández de Cevallos del PAN' @ 07, 2 say ' (2) Ernesto Zedillo del PRI' @ 08, 2 say ' (3) Cuauhtémoc Cárdenas del PRD' @ 09, 2 say ' (4) Otro' @ 10, 2 say ' (5) Ninguno' @ 11, 2 say ' (6) Ns/Nc' get PSIM range 1,6 READ ENDIF ********************** **** VERSION (2) ***** ********************** IF (VAL(HORITA)>14.AND.VAL(HORITA)<30).OR.VAL(HORITA)>44 MVER=2 REPL VER WITH MVER DO mascara @ 02, 2 say 'PSIM.-De los candidatos a la Presidencia de la República del 21 de agosto' @ 03, 2 say ' Cuauhtémoc Cárdenas del PRD, Diego Fernández de Cevallos del PAN, y' @ 04, 2 say ' Ernesto Zedillo del PRI, ¿con cuál candidato simpatiza usted más?' @ 06, 2 say ' (3) Cuauhtémoc Cárdenas del PRD' @ 07, 2 say ' (1) Diego Fernández de Cevallos del PAN' @ 08, 2 say ' (2) Ernesto Zedillo del PRI' @ 09, 2 say ' (4) Otro' @ 10, 2 say ' (5) Ninguno' @ 11, 2 say ' (6) Ns/Nc' get PSIM range 1,6 READ ENDIF * --- 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