* Tema : PROGRAMA NACIONAL DE FINANCIAMIENTO PARA EL DESARROLLO 1997-2000 * Fecha : 04/JUN/97 * Path : PFD10696.PRG * Lugar : REPUBLICA MEXICANA * Alcance : NACIONAL **** 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' @ 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 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 Do mascara @ 02, 2 say 'Cal.-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 ENDIF ********************** Do mascara @ 02, 2 say '4.-Le voy a leer tres afirmaciones, por favor dígame ¿cuál se acerca más' @ 03, 2 say ' a lo que piensa..:?' @ 05, 2 say ' (1) El país sigue hundido en la crisis económica' @ 06, 2 say ' (2) La economía del país está en crisis, pero se empieza a recuperar' @ 07, 2 say ' (3) El país ya salió de la crisis' @ 08, 2 say ' (4) Ns/Nc' GET P4 RANGE 1, 4 READ do mascara @ 02, 2 say '5.-¿Qué tan grave cree usted que es la situación económica del país?' @ 04, 2 say ' (1) Muy grave' @ 05, 2 say ' (2) Grave' @ 06, 2 say ' (3) Poco grave' @ 07, 2 say ' (4) Nada grave' @ 08, 2 say ' (5) Ns/Nc' GET P5 RANGE 1,5 read do mascara @ 02, 2 say '6.-¿Usted tiene confianza o no en el futuro de México?' @ 04, 2 say ' (1) Sí tiene confianza' @ 05, 2 say ' (2) Tiene confianza en parte' @ 06, 2 say ' (3) No tiene confianza' @ 07, 2 say ' (4) Ns/Nc' get p6 range 1,4 read DO MASCARA @ 02, 2 say '7.-¿Cree usted que el gobierno ha hecho todo lo posible para fortalecer' @ 03, 2 say ' el crecimiento de la economía o no?' @ 05, 2 say ' (1) Sí' @ 06, 2 say ' (2) En parte' @ 07, 2 say ' (3) No' @ 08, 2 say ' (4) Ns/Nc' GET P7 RANGE 1,4 READ IF P7=2.OR.P7=3 @ 10, 2 say '7a.-¿Qué falta por hacer?' @ 12, 2 say ' (1) REGISTRAR EN PAPEL' @ 13, 2 say ' (2) Ns/Nc' GET P7a RANGE 1,2 READ ELSE REPLACE P7a WITH 0 ENDIF do mascara @ 02, 2 say '8.-¿Vio, escuchó o se enteró usted si recientemente se anunció algo' @ 03, 2 say ' importante para los mexicanos?' @ 05, 2 say ' (1) Sí' @ 06, 2 say ' (2) No' @ 07, 2 say ' (3) Nc' GET P8 RANGE 1,3 read IF P8=1 @ 10, 2 say '8_1.-¿Cuál?' @ 12, 2 say ' (1) Se presentó el Programa Nacional de Financiamiento del' @ 13, 2 say ' Desarrollo 1997-2000' @ 14, 2 say ' (2) Otro (REGISTRAR EN PAPEL)' @ 15, 2 say ' (3) Nc' GET P8_1 RANGE 1,3 read ELSE REPLACE P8_1 WITH 0 ENDIF IF p8_1<>1 do mascara @ 02, 2 say '9.-Dígame si antes de mencionárselo usted ya estaba enterado o no de que' @ 03, 2 say ' que ayer el Presidente presentó un programa de trabajo para ayudar a que' @ 04, 2 say ' la economía del país continúe recuperándose.' @ 06, 2 say ' (1) Ya estaba enterado' @ 07, 2 say ' (2) No estaba enterado' @ 08, 2 say ' (3) Nc' get p9 range 1,3 READ else repl p9 with 0 endif ***PASE SOLO PARA ENTERADOS*** IF P8_1=1.or.P9=1 do mascara @ 02, 2 say '10.-Dígame por favor, ¿cuál es el nombre del programa que anunció ayer' @ 03, 2 say ' el Presidente?' @ 05, 2 say ' (1) Programa Nacional de Financiamiento del Desarrollo' @ 06, 2 say ' 1997-2000 (PRONAFIDE)' @ 07, 2 say ' (2) Otro' @ 08, 2 say ' (3) Ns/Nc' get p10 range 1,3 READ do mascara @ 02, 2 say '11.-Durante la presentación del programa económico, el Presidente señaló' @ 03, 2 say ' varias metas de este programa, ¿cuáles de estas recuerda' @ 04, 2 say ' usted más? (ENCUESTADOR NO LEA OPCIONES)' @ 06, 2 say ' Sí mención No mención' @ 08, 2 say ' -La economía crecerá 5% al año (1) (2)' GET P11_1 RANGE 1,2 @ 09, 2 say ' -Habrá más empleos (1) (2)' GET P11_2 RANGE 1,2 @ 10, 2 say ' -Aumentarán gradualmente los salarios (1) (2)' GET P11_3 RANGE 1,2 @ 11, 2 say ' -Habrá una inflación menor al 10% para el' @ 12, 2 say ' año 2000 (1) (2)' GET P11_4 RANGE 1,2 @ 13, 2 say ' -No habrá sobresaltos financieros en los' @ 14, 2 say ' próximos tres años (1) (2)' GET P11_5 RANGE 1,2 @ 15, 2 say ' -Dejar una economía sólida para el próximo' @ 16, 2 say ' gobierno en el año 2000 (1) (2)' GET P11_6 RANGE 1,2 @ 17, 2 say ' -Otro (REGISTRAR EM PAPEL) (1) (2)' GET P11_7 RANGE 1,2 READ do mascara @ 02, 2 say '12.-El Presidente también señaló las acciones que se realizarán para' @ 03, 2 say ' fortalecer la economía, ¿cuáles de estas acciones recuerda usted' @ 04, 2 say ' más? (ENCUESTADOR NO LEA OPCIONES)' @ 06, 2 say ' Sí mención No mención' @ 08, 2 say ' -Aumentar el ahorro interno (1) (2)' GET P12_1 RANGE 1,2 @ 09, 2 say ' -Mantener la libre flotación del peso (1) (2)' GET P12_2 RANGE 1,2 @ 10, 2 say ' -Aumentar el número de contribuyentes (1) (2)' GET P12_3 RANGE 1,2 @ 11, 2 say ' -Disminuir los impuestos a la pequeña y' @ 12, 2 say ' mediana industria (1) (2)' GET P12_4 RANGE 1,2 @ 13, 2 say ' -Fomentar y conservar la inversión extranjera (1) (2)' GET P12_5 RANGE 1,2 @ 14, 2 say ' -Otro (REGISTRAR EM PAPEL) (1) (2)' GET P12_6 RANGE 1,2 REAd ELSE REPLACE P10 WITH 0, P11_1 WITH 0, P11_2 WITH 0, P11_3 WITH 0, P11_4 WITH 0, P11_5 WITH 0 REPLACE P11_6 WITH 0, P11_7 WITH 0, P12_1 WITH 0, P12_2 WITH 0, P12_3 WITH 0 REPLACE P12_4 WITH 0, P12_5 WITH 0, P12_6 WITH 0 ENDIF ***FIN PASE SOLO PARA ENTERADOS*** do mascara @ 02, 2 say '13.-Ayer el Presidente anunció varias metas económicas para el 2000.' @ 03, 2 say ' Dígame, ¿qué tanta confianza tiene usted, totalmente, bastante, ' @ 04, 2 say ' poca o nada, en que se logren las siguientes metas para el año 2000' @ 06, 2 say ' Totalmente Bastante Poca Nada Ns/Nc' @ 08, 2 say ' -La economía crecerá 5% al año (1) (2) (3) (4) (5)' GET P13_1 RANGE 1,5 @ 09, 2 say ' -Habrá más empleos (1) (2) (3) (4) (5)' GET P13_2 RANGE 1,5 @ 10, 2 say ' -Aumentarán gradualmente los salarios (1) (2) (3) (4) (5)' GET P13_3 RANGE 1,5 @ 11, 2 say ' -No habrá sobresaltos financieros en (1) (2) (3) (4) (5)' GET P13_4 RANGE 1,5 @ 12, 2 say ' los próximos tres años' READ do mascara @ 02, 2 say '14.-¿Qué sensación le deja conocer el contenido de este programa económico' @ 03, 2 say ' del gobierno para los próximos tres años?' @ 04, 2 say ' (ENTREVISTADOR: LEA OPCIONES)' @ 06, 2 say ' (1) Confianza en o (2) Desconfianza (3) Ns/Nc' get p14_1 range 1,3 @ 07, 2 say ' el gobierno en el gobierno' @ 08, 2 say ' (1) Pesismismo u (2) Optimismo (3) Ns/Nc' get p14_2 range 1,3 @ 09, 2 say ' (1) Satisfacción o (2) Insatisfacción (3) Ns/Nc' get p14_3 range 1,3 @ 10, 2 say ' (1) Preocupación o (2) Tranquilidad (3) Ns/Nc' get p14_4 range 1,3 read do mascara @ 02, 2 say '15.-¿Cree usted que estas medidas anunciadas ayer para asegurar el' @ 03, 2 say ' crecimiento económico del país le traerán a usted o no algún' @ 04, 2 say ' beneficio personal?' @ 06, 2 say ' (1) Sí' @ 07, 2 say ' (2) Sí algunas' @ 08, 2 say ' (3) No' @ 09, 2 say ' (4) Ns/Nc' GET P15 RANGE 1,4 read IF P15=1.or.p15=2 @ 12, 2 say '15_1.-¿Cúal?' @ 14, 2 say ' (1) REGISTRAR EN PAPEL' @ 15, 2 say ' (2) Ns/Nc' GET P15_1 RANGE 1,2 READ ELSE REPLACE P15_1 WITH 0 ENDIF DO MASCARA @ 02, 2 say '16.-Por favor dígame, ¿qué tan de acuerdo, totalmente, bastante, poco o ' @ 03, 2 say ' nada, está usted en que...?' @ 05, 2 say ' Totalmente Bastante Poco Nada Ns/Nc' @ 07, 2 say ' -El país tiene un rumbo (1) (2) (3) (4) (5) ' get p16_1 range 1,5 @ 08, 2 say ' económico claro' @ 09, 2 say ' -El rumbo económico del país' @ 10, 2 say ' es correcto (1) (2) (3) (4) (5) ' get p16_2 range 1,5 READ do mascara @ 02, 2 say '17.-Y con lo que usted sabe, ¿cree que la economía del país' @ 03, 2 say ' mejorará o no en 1998?' @ 05, 2 say ' (1) Si' @ 06, 2 say ' (2) Si en parte (ESPONTANEA)' @ 07, 2 say ' (3) No' @ 08, 2 say ' (4) NS/NC ' GET P17 RANGE 1,4 read if p17=1.or.p17=2 @ 10, 2 say '17_1.-¿Qué tanto?' @ 12, 2 say ' (1) Mucho más' @ 13, 2 say ' (2) Más' @ 14, 2 say ' (3) Poco' @ 15, 2 say ' (4) Ns/Nc' GET P17_1 RANGE 1,4 READ ELSE REPLACE P17_1 WITH 0 ENDIF do mascara @ 02, 2 say 'Ezpcapaz.-¿Confía usted en la capacidad de Ernesto Zedillo para resolver' @ 03, 2 say ' la 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 ezpcapaz RANGE 1,3 read if ezpcapaz=2 @ 10, 2 say 'ezpcpz_2.-¿Por qué tiene duda? ' @ 12, 2 say ' (1) REGISTRAR EN PAPEL' @ 13, 2 say ' (2) Ns/Nc' GET ezpcpz_2 RANGE 1,2 READ ELSE REPLACE ezpcpz_2 WITH 0 ENDIF do mascara @ 02, 2 say '19.-En general, ¿está usted de acuerdo o en desacuerdo con las medidas' @ 03, 2 say ' anunciadas para consolidar el crecimiento de la economía?' @ 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 P19 RANGE 1,5 read do mascara @ 02, 2 say 'Opi.-A raíz de las medidas anunciadas por el gobierno para fortalecer el' @ 03, 2 say ' crecimiento económico del país, ¿su opinión sobre el presidente' @ 04, 2 say ' Zedillo mejoró o empeoró?' @ 06, 2 say ' (1) Mejoró' @ 07, 2 say ' (2) No cambio' @ 08, 2 say ' (3) Empeoró' @ 09, 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 REPL POPI_2 WITH 0 ENDIF do mascara @ 02, 2 say '21.-¿Cree usted que con las medidas anunciadas se logrará controlar la' @ 03, 2 say ' inflación en menos de 10% para el año 2000 o no?' @ 05, 2 say ' (1) Sí se logrará' @ 06, 2 say ' (2) No se logrará' @ 07, 2 say ' (3) Ns/Nc' get p21 range 1,3 read do mascara @ 02, 2 say '22.-Dígame, ¿qué tan de acuerdo, totalmente, bastante, poco o nada, está' @ 03, 2 say ' usted con la siguiente afirmación:' @ 05, 2 say ' Totalmente Bastante Poco Nada Ns/Nc' @ 07, 2 say ' -Por primera vez en México tenemos' @ 08, 2 say ' al mismo tiempo crecimiento económico' @ 09, 2 say ' y mayor participación de los ciudadanos' @ 10, 2 say ' en las decisiones políticas (1) (2) (3) (4) (5) ' get p22 range 1,5 READ do mascara @ 02, 2 say 'Medacupa.-¿Cree usted que las medidas económicas anunciadas ayer por el' @ 03, 2 say ' gobierno de Ernesto Zedillo son adecuadas o inadecuadas para resolver' @ 04, 2 say ' la situación econó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 medacupa range 1,4 read DO MASCARA @ 02, 2 say '24.-A raíz del anuncio del Programa de Financiamiento para el Desarrollo,' @ 03, 2 say ' ¿qué se acerca más a lo que usted piensa:...?' @ 04, 2 say ' Las medidas económicas del gobierno...' @ 05, 2 say ' (ENCUESTADOR: LEER OPCIONES)' @ 07, 2 say ' (1) Buscan fortalecer el crecimiento del país o' @ 08, 2 say ' (2) Tienen fines electorales' @ 09, 2 say ' (3) Ambas (voluntaria)' @ 10, 2 say ' (4) Ns/Nc' GET P24 RANGE 1,4 read if p24=3 @ 12, 2 say '24_3.-¿Pero usted que cree más:?' @ 14, 2 say ' (1) Que las medidas buscan fortalecer el crecimiento o' @ 15, 2 say ' (2) Que las medidas tienen fines electorales' @ 16, 2 say ' (3) Ns/Nc' GET P24_3 RANGE 1,3 READ ELSE REPLACE P24_3 WITH 0 ENDIF DO MASCARA @ 02, 2 say '25.-Hay quienes dicen que no se debe entregar obras ni dar a conocer' @ 03, 2 say ' programas de gobierno porque eso sólo ayuda a recuperar votos para' @ 04, 2 say ' el PRI. Con lo que usted sabe, ¿el Presidente hizo bien en dar a' @ 05, 2 say ' conocer ahora el programa económico para los próximos tres años o' @ 06, 2 say ' debió esperar a que pasaran las elecciones para darlo a conocer?' @ 08, 2 say ' (1) Hizo bien en dar a conocer ahora el programa' @ 09, 2 say ' (2) Debió esperar a que pasaran las elecciones' @ 10, 2 say ' (3) Ns/Nc' GET P25 RANGE 1,3 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 Do mascara @ 02, 2 say 'Cal.-En una escala de 0 a 10, ¿qué calificación le daría a Ernesto' @ 03, 2 say ' Zedillo como presidente?' @ 05, 2 say ' (11) NS/NC ' GET PCAL RANGE 0, 11 READ ENDIF ********************** Do mascara @ 02, 2 SAY 'Pele-Si el día de hoy fueran las elecciones para diputados federales' @ 03, 2 SAY ' ¿por cuál partido votaría usted?' @ 05, 2 SAY ' (1) PRI' @ 06, 2 SAY ' (2) PAN' @ 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 * --- 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 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 - 793)' @ 15, 2 say ' (2) 1-3 Sal. Min. ($ 794 - 2,379)' @ 16, 2 say ' (3) 3-5 Sal. Min. ($ 2,380 - 3,965)' @ 17, 2 say ' (4) 5-7 Sal. Min. ($ 3,966 - 4,758)' @ 18, 2 say ' (5) 7-10 Sal. Min. ($ 4,759 - 7,930)' @ 19, 2 say ' (6) 10-+ Sal. Min. ($ 7,931 - o más)' get ingre range 1,7 read RETURN