* Tema : EFECTOS DE LA LEY HELMS-BURTON * Fecha : 28/MAY/96 * Path : EUA20596.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 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.-¿Usted cree que el gobierno tiene las riendas del país o las cosas se' @ 03, 2 SAY ' están saliendo de su control?' @ 05, 2 say ' (1) Tiene las riendas' @ 06, 2 say ' (2) Está perdiendo el 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.-Con lo que usted sabe, ¿Como calificaria actualmente la relacion' @ 03, 2 say ' de Estados Unidos con México?' @ 05, 2 say ' (1) Excelente' @ 06, 2 say ' (2) Buena' @ 07, 2 say ' (3) Regular' @ 08, 2 SAY ' (4) Mala' @ 09, 2 SAY ' (5) Pésima' @ 10, 2 SAY ' (6) Ns/Nc' GET P4 RANGE 1,6 READ DO MASCARA @ 02, 2 say '5.-En su opinión, ¿cuál es el principal problema que tiene México con' @ 03, 2 say ' Estados Unidos?' @ 04, 2 say ' (ENTREVISTADOR: NO LEA OPCIONES)' @ 06, 2 say ' (1) Narcotráfico' @ 07, 2 say ' (2) Deuda' @ 08, 2 say ' (3) TLC' @ 09, 2 say ' (4) Migración (braceros)' @ 10, 2 say ' (5) Dependencia economica' @ 11, 2 say ' (6) Otro' @ 12, 2 say ' (7) Ns/Nc' GET P5 RANGE 1,7 READ DO MASCARA @ 02, 2 say '6.-Además del problema del narcotráfico y la migración ilegal, ¿sabe usted' @ 03, 2 say ' si México tiene algún problema de tipo comercial con Estados Unidos?' @ 05, 2 say ' (1) Sí' @ 06, 2 say ' (2) No' @ 07, 2 say ' (3) Ns/Nc' GET P6 RANGE 1,3 READ if p6=1 @ 12, 2 say '6_1.-¿Cuál?' @ 13, 2 say ' (ENTREVISTADOR: NO LEA OPCIONES)' @ 15, 2 say ' (1) Incumplimiento de lo acordado en el TLC' @ 16, 2 say ' (2) Aplicación de la Ley Helms-Burton a empresas mexicanas' @ 17, 2 say ' (3) Ns/Nc' GET P6_1 RANGE 1,3 READ else repl p6_1 with 0 endif do mascara @ 02, 2 say '7.-¿Vió, escuchó o se enteró usted si recientemente ocurrió algo' @ 03, 2 say ' importante sobre la relación de México con Estados Unidos?' @ 05, 2 say ' (1) Sí' @ 06, 2 say ' (2) No' @ 07, 2 say ' (3) Nc' GET P7 RANGE 1,3 read IF P7=1 @ 10, 2 say '7_1.-¿Qué?' @ 12, 2 say ' (1) El embajador de Estados Unidos en México, James Jones, anuncia' @ 13, 2 say ' envio de cartas a empresas que se verán afectadas por la ley' @ 14, 2 say ' Helms-Burton' @ 15, 2 say ' (2) México propone discutir los efectos de la Ley Helms-Burton en la' @ 16, 2 say ' próxima cumbre del Grupo Río' @ 17, 2 say ' (3) Declaraciones del Srio de Relaciones Exteriores, José Angel Gurría' @ 18, 2 say ' sobre el rechazo de México a la Ley Helms-Burton' @ 19, 2 say ' (4) Declaraciones del presidente de la COPARMEX sobre el rechaza a la' @ 20, 2 say ' ley Helms-Burton' @ 21, 2 say ' (5) Otro' @ 22, 2 say ' (6) Ns/Nc' GET P7_1 RANGE 1,6 read ELSE REPLACE P7_1 WITH 0 ENDIF IF P7_1<1.or.p7_1>4 do mascara @ 02, 2 say '8.-Tal vez usted ya estaba enterado que en febrero el Congreso de Estados' @ 03, 2 say ' Unidos aprobó una ley en contra de Cuba, la ley Helms-Burton, que' @ 04, 2 say ' castigará a empresas de todo el mundo que tengan negocios con Cuba.' @ 05, 2 say ' Antes de que yo se lo mencionara, ¿usted ya estaba enterado 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 P8 RANGE 1,3 READ ELSE REPLACE P8 WITH 0 ENDIF do mascara @ 02, 2 say '9.-Entre las sanciones que Estados Unidos aplicará, se negarán la entrada a' @ 03, 2 say ' Estados Unidos a los empresarios y a sus familiares que tengan negocios' @ 04, 2 say ' con Cuba, ¿qué sensación le deja esta noticia?' @ 06, 2 say ' (1) REGISTRAR EN PAPEL' @ 07, 2 say ' (2) Ns/Nc' GET P9 RANGE 1,2 READ do mascara @ 02, 2 say '10.-Con lo que usted sabe, ¿qué tantos negocios existen entre empresarios' @ 03, 2 say ' mexicanos y Cuba?' @ 05, 2 say ' (1) Muchos' @ 06, 2 say ' (2) Pocos' @ 07, 2 say ' (3) Nada (Ninguno)' @ 08, 2 say ' (4) Ns/Nc' GET P10 RANGE 1,4 READ do mascara @ 02, 2 say '11.-Cree usted que la aplicación de la ley Helms-Burton pone en riesgo la' @ 03, 2 say ' relación de México con el gobierno norteamericano?' @ 05, 2 say ' (1) Sí lo pone en riesgo' @ 06, 2 say ' (2) En parte' @ 07, 2 SAY ' (3) No lo pone en riesgo' @ 08, 2 SAY ' (4) Ns/Nc' GET P11 RANGE 1,4 read if p11=1.or.p11=2 @ 12, 2 say '11_1.-¿Y a usted que tanto le preocupa esto, mucho o poco?' @ 14, 2 say ' (1) Mucho' @ 15, 2 say ' (2) Poco' @ 16, 2 SAY ' (3) Nada' @ 17, 2 SAY ' (4) Ns/Nc' GET P11_1 RANGE 1,4 read else repl p11_1 with 0 endif do mascara @ 02, 2 say '12.-¿Qué tanto cree usted usted que le pueda perjudicar a México la' @ 03, 2 say ' aplicación de las sanciones que están en esta ley, mucho o poco?' @ 05, 2 say ' (1) Mucho' @ 06, 2 say ' (2) Poco' @ 07, 2 SAY ' (3) Nada' @ 08, 2 SAY ' (4) Ns/Nc' GET P12 RANGE 1,4 READ do mascara @ 02, 2 say '13.-Alrededor de 200 empresas mexicanas hacen negocios con Cuba y si se' @ 03, 2 say ' aplica esta ley se verían afectadas. ¿Vió, escuchó o se enteró' @ 04, 2 say ' de cuál ha sido la actitud del gobierno mexicano ante esta amenaza?' @ 06, 2 say ' (1) Sí' @ 07, 2 say ' (2) No' @ 08, 2 say ' (3) Nc' GET P13 RANGE 1,3 read IF P13=1 @ 11, 2 say '13_1.-¿Cuál?' @ 12, 2 say ' (1) Relaciones Exteriores condenó y rechazó esta ley' @ 13, 2 say ' (2) La secretaría de Comercio estudia mecanismos que atenuen los' @ 14, 2 say ' efectos negativos de la ley Helms-Burton hacia los empresarios' @ 15, 2 say ' mexicanos' @ 16, 2 say ' (3) Durante la próxima reunión del Tratado de Libre Comercio,' @ 17, 2 say ' en Washington, el gobierno mexicano protestará contra la' @ 18, 2 say ' ley Helms-Burton' @ 19, 2 say ' (4) México propuso que en la próximia reunión del Grupo Río se' @ 20, 2 say ' rechacen los efectos de esta ley' @ 21, 2 say ' (5) Otro (REGISTRAR EN PAPEL)' @ 22, 2 say ' (6) Nc' GET P13_1 RANGE 1,6 read ELSE REPLACE P13_1 WITH 0 ENDIF do mascara @ 02, 2 say '14.-Le voy a leer algunas de las acciones del gobierno mexicano ante la ' @ 03, 2 say ' amenaza de la próxima aplicación de la ley Helms-Burton. Por favor, ' @ 04, 2 say ' dígame si antes de que yo se lo mencionara, ¿usted ya estaba enterado' @ 05, 2 say ' o no de que...?' @ 07, 2 say ' Enterado No enterado' @ 08, 2 say '-Relaciones Exteriores condenó y rechazó esta ley (1) (2)' get p14_1 range 1,2 @ 09, 2 say '-Durante la próxima reunión del Tratado de Libre' @ 10, 2 say ' Comercio, en Washington, el gobierno mexicano' @ 11, 2 say ' protestará contra la ley Helms-Burton (1) (2)' get p14_2 range 1,2 @ 12, 2 say '-México propuso que en la próxima reunión del' @ 13, 2 say ' Grupo de Río se rechacen los efectos de esta ley (1) (2)' get p14_3 range 1,2 READ do mascara @ 02, 2 say '15.-México buscará con varios países, como Brasil, Ecuador, Argentina,' @ 03, 2 say ' Colombia, etc. crear un bloque para rechazar conjuntamente la aplicación' @ 04, 2 say ' de las sanciones contra las empresas que negocian con Cuba. ¿Usted cree' @ 05, 2 say ' que con este bloque de países se aplicarán o no estas sanciones?' @ 07, 2 SAY ' (1) Sí se aplicarán' @ 08, 2 SAY ' (2) Se aplicarán en parte' @ 09, 2 say ' (3) No se aplicarán' @ 10, 2 say ' (4) Ns/Nc' GET P15 RANGE 1,4 read do mascara @ 02, 2 say '16.-México también protestará durante la reunión del Tratado de Libre' @ 03, 2 say ' Comercio por la aplicación de estas sanciones contra empresarios' @ 04, 2 say ' mexicanos, ¿cree usted que con esta posición de México se aplicarán' @ 05, 2 say ' o no estas sanciones?' @ 07, 2 SAY ' (1) Sí se aplicarán' @ 08, 2 SAY ' (2) Se aplicarán en parte' @ 09, 2 say ' (3) No se aplicarán' @ 10, 2 say ' (4) Ns/Nc' GET P16 RANGE 1,4 read do mascara @ 02, 2 say '17.-¿Usted cree con estas medidas del gobierno norteamericano se pone o no' @ 03, 2 SAY ' en riesgo la soberanía del país?' @ 05, 2 SAY ' (1) Si se pone en riesgo' @ 06, 2 SAY ' (2) No se pone en riesgo' @ 07, 2 SAY ' (3) Ns/Nc' GET P17 RANGE 1,3 read DO MASCARA @ 02, 2 say 'Dbl.-Con la protesta del gobierno mexicano para proteger a los' @ 03, 3 SAY ' empresarios mexicanos de la Ley Helms-Burton, ¿usted' @ 04, 3 SAY ' cree el gobierno de Ernesto Zedillo muestra debilidad o fuerza?' @ 06, 2 SAY ' (1) Debilidad' @ 07, 2 SAY ' (2) Fuerza' @ 08, 2 SAY ' (3) Ns/Nc' GET PDBL RANGE 1,3 READ do mascara @ 02, 2 say 'Opi.-A raíz de la protesta del gobierno mexicano para proteger a empresarios' @ 03, 2 say ' mexicanos de la ley Helms-Burton, ¿su opinión sobre el presidente' @ 04, 2 say ' Ernesto 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 ******************* *** VERSION (2) *** ******************* IF VER=2 do mascara @ 02, 2 say 'Ctr.-¿Usted cree que el gobierno tiene las riendas del país o las cosas se' @ 03, 2 SAY ' están saliendo de su control?' @ 05, 2 say ' (1) Tiene las riendas' @ 06, 2 say ' (2) Está perdiendo el 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 'Sim.-De los candidatos a la Presidencia de la República en agosto del 94' @ 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 * --- 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 - 616)' @ 15, 2 say ' (2) 1-3 Sal. Min. ($ 617 - 1,845)' @ 16, 2 say ' (3) 3-5 Sal. Min. ($ 1,846 - 3,074)' @ 17, 2 say ' (4) 5-7 Sal. Min. ($ 3,075 - 4,304)' @ 18, 2 say ' (5) 7-10 Sal. Min. ($ 4,305 - 6,149)' @ 19, 2 say ' (6) 10-+ Sal. Min. ($ 6,150 - o más)' get ingre range 1,7 read RETURN