* Tema : ACEPTACION DEL PROGRAMA DEL ADE (3) * Fecha : 29/SEP/95 * Path : ADE30995.PRG * Lugar : REPUBLICA MEXICANA * Alcance : NACIONAL *PRESENTACION: BUENOS DIAS, TARDES... *ESTAMOS HACIENDO UN ESTUDIO PARA CONOCER EL EFECTO DEL PROGRAMA INMEDIATO *DE APOYO A DEUDORES DE LA BANCA, CON OBJETO DE SERVIRLE MEJOR. ¿ME PODRIA *PERMITIR UNOS MINUTOS DE SU TIEMPO? 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 '1.a-En su opinión, ¿cuál es el principal problema del país' @ 03, 2 SAY ' en estos momentos?' @ 04, 2 SAY ' (ENCUESTADOR: NO MENCIONAR OPCIONES. ESPERAR RESPUESTA ESPONTANEA)' @ 06, 2 SAY ' (1) La devaluación' @ 07, 2 SAY ' (2) La inflación' @ 08, 2 say ' (3) El desempleo' @ 09, 2 say ' (4) El conflicto en Chiapas' @ 10, 2 SAY ' (5) La crisis económica en general' @ 11, 2 SAY ' (6) La seguridad pública' @ 12, 2 say ' (7) Otro' @ 13, 2 say ' (8) Ns-nc' GET P1a RANGE 1,8 READ DO MASCARA @ 02, 2 SAY '1.-Dígame por favor, ¿cuál es el acontecimiento político más importante' @ 03, 2 SAY ' que ocurrió ayer y que apareció en las noticias y en los periódicos hoy?' @ 05, 2 SAY ' (1) Acuerdo de las fracciones del congreso reactivar el dialogo nacional' @ 06, 2 SAY ' (2) Condicionan el desalojo de rectoria, solo si hay dialogo' @ 07, 2 SAY ' publico con Sarukan' @ 08, 2 SAY ' (3) Gira del presidente a Coahuila' @ 09, 2 SAY ' (4) Policia judicial mata en el metro a 2 personas' @ 10, 2 SAY ' (5) Prestamo a México' @ 11, 2 SAY ' (6) Otro (ENCUESTADOR: REGISTRE EN PAPEL)' @ 12, 2 SAY ' (7) Ns/Nc' GET PNOT RANGE 1,7 READ DO MASCARA @ 02, 2 say '1.-¿Usted o alguien de su familia tiene algún tipo de crédito con los' @ 03, 2 say ' bancos como tarjeta de crédito, préstamo para vivienda, de coche,' @ 04, 2 say ' empresarial o agrícola?' @ 06, 2 say ' (1) Sí' @ 07, 2 say ' (2) No' && PASE A P5 @ 08, 2 say ' (3) Nc' GET P1 RANGE 1,3 && PASE A P5 READ **** PASE A P5 **** IF P1=1 @ 11, 2 say '1.1.- ¿De qué tipo?' @ 12, 2 say ' Sí mención No mención' @ 14, 2 say ' - Tarjeta de crédito (1) (2) ' get p1_1 range 1,2 @ 15, 2 say ' - Préstamo para vivienda (1) (2) ' get p1_2 range 1,2 @ 16, 2 say ' - Préstamo para coche (1) (2) ' get p1_3 range 1,2 @ 17, 2 say ' - Préstamo para empresa (1) (2) ' get p1_4 range 1,2 @ 18, 2 say ' - Préstamo para el campo (1) (2) ' get P1_5 RANGE 1,2 @ 19, 2 say ' - Otro: REGISTRAR EN PAPEL (1) (2) ' get P1_6 RANGE 1,2 READ DO MASCARA @ 02, 2 say '2.-Y usted o alguien de su familia tiene algún problema para' @ 03, 2 say ' pagar su crédito?' @ 05, 2 say ' (1) Sí' @ 06, 2 say ' (2) No' && PASE A 5 @ 07, 2 say ' (3) Nc' GET P2 RANGE 1,3 && PASE A 5 READ IF P2=1 @ 10, 2 say '2.1.-¿Quién usted o algún familiar?' @ 12, 2 say ' (1) Usted' @ 13, 2 say ' (2) Familiar' @ 14, 2 say ' (3) Los dos' @ 15, 2 say ' (4) Ns/Nc' GET P2_1 RANGE 1,4 READ ELSE REPL P2_1 WITH 0 ENDIF ELSE REPL P1_1 with 0,; P1_2 WITH 0,; P1_3 WITH 0,; P1_4 WITH 0,; P1_5 WITH 0,; P1_6 WITH 0,; P2 WITH 0,; P2_1 WITH 0 ENDIF do mascara @ 05, 2 say '5.-Tal vez usted ya estaba enterado que el 11 de septiembre inicio el' @ 06, 2 say ' programa de apoyo inmediato a deudores de la Banca (ADE)' @ 07, 2 say ' ¿usted ya estaba enterado o no de esto?' @ 09, 2 say ' (1) Ya estaba enterado' @ 10, 2 SAY ' (2) No estaba enterado' && PASE A 6 @ 11, 2 SAY ' (3) Ns/Nc' GET P5 RANGE 1,3 && pase a 6 read IF P5=1 do mascara @ 02, 2 say '5.1-¿Por qué medio se enteró usted del ADE (Programa de apoyo a deudores)' @ 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) En el banco' @ 09, 2 SAY ' (6) Otro' @ 10, 2 SAY ' (7) Ns/Nc' get p5_1 range 1,7 read ELSE REPL P5_1 WITH 0 ENDIF lDO MASCARA @ 02, 2 say '6.- El Programa establece tres medidas básicas que le voy a leer;' @ 03, 2 say ' dígame por favor, ¿qué tanto cree usted que ayuden a resolver los' @ 04, 2 say ' problemas de los deudores?' @ 06, 2 say ' Mucho Poco Nada Ns/Nc' @ 07, 2 say ' - La disminución de tasas de interés (1) (2) (3) (4)' GET P6_1 RANGE 1,4 @ 08, 2 say ' - Suspensión hasta por cinco meses de' @ 09, 2 say '  los embargos (tregua judicial) (1) (2) (3) (4)' GET P6_2 RANGE 1,4 @ 10, 2 say ' - La posibilidad de reestructurar' @ 11, 2 say ' las deudas (1) (2) (3) (4)' GET P6_3 RANGE 1,4 READ DO MASCARA @ 02, 2 say '7.-Este programa pretende que las personas y las empresas ' @ 03, 2 say ' con deudas en los bancos se pongan de acuerdo para resolverlas.' @ 04, 2 say ' ¿Qué sensación le deja a usted este Acuerdo de apoyo a deudores?' @ 05, 2 say ' (ENTREVISTADOR:NO LEA OPCIONES).' @ 07, 2 say ' (1) Bienestar, satisfación' @ 08, 2 say ' (2) Tranquilidad, desahogo' @ 09, 2 say ' (3) Esperanza, apoyo' @ 10, 2 say ' (4) Alegria, gusto' @ 11, 2 say ' (5) Preocupación' @ 12, 2 say ' (6) Desconfianza, duda' @ 13, 2 say ' (7) Mentira' @ 14, 2 say ' (8) Demagogia' @ 15, 2 say ' (11) Nada' @ 16, 2 say ' (12) Confianza' @ 17, 2 say ' (9) Otro: (REGISTRADO EN PAPEL)' @ 18, 2 say ' (10) Ns/Nc' get p7 range 1,12 read ****** TIENEN PROBLEMA DE CREDITO *********** IF P2_1=1.OR.P2_1=3 do mascara @ 02, 2 SAY '8.-Ahora dígame ¿sí usted piensa participar en este programa' @ 03, 2 SAY ' o ya acudió al Banco para atender su problema?' @ 05, 2 SAY ' (1) Pienso participar' @ 06, 2 SAY ' (2) Ya acudí al Banco' && PASE A 11 @ 07, 2 SAY ' (3) No pienso participar' && PASE A 9 @ 08, 2 SAY ' (4) Ns/Nc' GET P8 RANGE 1,4 read **** NO PIENSA ACUDIR **** IF P8=3 DO MASCARA @ 02, 2 SAY '9.1-¿Porque no piensa Ud. participar en este programa?' @ 04, 2 SAY ' (1) Porque no le interesa' @ 05, 2 SAY ' (2) Porque no le conviene' @ 06, 2 SAY ' (3) Porque no lo necesita' @ 07, 2 SAY ' (6) No me he decidido' @ 08, 2 SAY ' (7) Estoy desempleado' @ 09, 2 SAY ' (4) Otro (Registrar en papel)' @ 10, 2 SAY ' (5) Ns/Nc' GET P9_1 RANGE 1,7 read ELSE REPL P9_1 WITH 0 ENDIF **** YA ACUDIO **** IF P8=2 DO MASCARA @ 02, 2 say '11.-¿Qué tipo de problema trató usted en el Banco?' @ 04, 2 say ' (1) Tarjeta de crédito' @ 05, 2 say ' (2) Préstamo para vivienda' @ 06, 2 say ' (3) Préstamo personal' @ 07, 2 say ' (4) Préstamo empresarial' @ 08, 2 say ' (7) Préstamo para carro' @ 09, 2 say ' (5) Otros' @ 10, 2 say ' (6) Ns/Nc' GET P11 RANGE 1,7 READ DO MASCARA @ 02, 2 SAY '12.-¿Como le fue en su trámite: bien o mal?' @ 04, 2 SAY ' (1) Muy bien' @ 05, 2 SAY ' (2) Bien' @ 06, 2 SAY ' (3) Regular' @ 07, 2 SAY ' (4) Mal' @ 08, 2 SAY ' (5) Muy mal' @ 09, 2 SAY ' (6) NS/NC' GET Pa12 RANGE 1,6 read DO MASCARA @ 10, 2 SAY '13.1-¿Qué trámite hizo?' @ 12, 2 SAY ' (1) Firmó la carta-compromiso de reestructuración' @ 13, 2 SAY ' (2) Firmó la carta-compromiso (intención) de ' @ 14, 2 SAY ' pago de adeudo' && PASE A 14.3 @ 15, 2 SAY ' (3) Otro (REGISTRAR EN PAPEL)' && PASE A 14.3 @ 16, 2 SAY ' (4) Ns/Nc' GET P14_1 RANGE 1,4 && PASE A 15 read DO MASCARA @ 02, 2 SAY '13.2-Dígame, ¿sintió usted alivio o no al iniciar el trámite de ' @ 03, 2 SAY ' reestructuración de su deuda?' @ 05, 2 SAY ' (1) Sentí alivio' @ 06, 2 SAY ' (2) Me fue indiferente' @ 07, 2 SAY ' (3) No sentí alivio' @ 08, 2 SAY ' (4) Ns/Nc' get p14_2 range 1,4 read else repl p11 with 0,; pa12 with 0,; p14_1 with 0,; p14_2 with 0 endif else repl p8 with 0,; p9_1 with 0,; p11 with 0,; pa12 with 0,; p14_1 with 0,; p14_2 with 0 endif ****** FIN TIENEN PROBLEMA DE CREDITO *********** DO MASCARA @ 02, 2 say '14.-¿Sabe usted si algun familiar o amigo fue al Banco para tratar de' @ 03, 2 say ' resolver su problema?' @ 05, 2 say ' (1) Si' @ 06, 2 say ' (2) No' @ 07, 2 say ' (3) Ns/Nc' GET Pa14 RANGE 1,3 READ if pa14=1 @ 10, 2 say '¿Quien: amigo o familiar?' @ 12, 2 say ' (1) Amigo' @ 13, 2 say ' (2) Familiar' @ 14, 2 say ' (3) Ns/Nc' GET Pa14_1 RANGE 1,3 READ else repl pa14_1 with 0 endif IF PA14_1=1.OR.PA14_1=2 DO MASCARA @ 02, 2 say '15a.- ¿Y sabe como les fue en su trámite: bien o mal?' @ 04, 2 SAY ' (1) Muy bien' @ 05, 2 SAY ' (2) Bien' @ 06, 2 SAY ' (3) Regular' @ 07, 2 SAY ' (4) Mal' @ 08, 2 SAY ' (5) Muy mal' @ 09, 2 say ' (6) Ns/Nc' GET Pa15 RANGE 1,6 READ ELSE REPL PA15 WITH 0 ENDIF DO MASCARA @ 02, 2 say '15.- ¿Quién cree usted que se beneficiará más con este programa:' @ 03, 2 say ' los bancos o los deudores?' @ 05, 2 say ' (1) Los bancos' @ 06, 2 say ' (2) Los deudores' @ 07, 2 say ' (3) Los dos' @ 08, 2 say ' (4) Ninguno' @ 09, 2 say ' (5) Ns/Nc' GET P15 RANGE 1,5 READ DO MASCARA @ 02, 2 say '16.-¿Esta usted de acuerdo o en desacuerdo con la actitud' @ 03, 2 say ' de "no pago" de las agrupaciones de deudores como el Barzón?' @ 05, 2 say ' (1) Acuerdo' @ 06, 2 say ' (2) Acuerdo en parte' @ 07, 2 say ' (3) Desacuerdo ' @ 08, 2 say ' (4) Ns/Nc' GET P16 RANGE 1,4 READ IF P16=1.or.P16=2 @ 11, 2 say '16.1-¿Porque está de acuerdo?' @ 13, 2 say ' (1) No es la solucion el ADE' @ 14, 2 say ' (2) Por las altas tasas de interes del Banco' @ 15, 2 say ' (3) No nos dejan otra opción' @ 16, 2 say ' (4) Otro (REGISTRAR EN PAPEL)' @ 17, 2 say ' (5) Ns/Nc' GET P16_1 RANGE 1,5 READ ELSE REPLACE P16_1 WITH 0 ENDIF DO MASCARA @ 02, 2 say '17.-¿Estas agrupaciones rechazaron las medidas anunciadas porque según' @ 03, 2 say ' ellos no atacan el problema de fondo. En su opinión con el ADE se' @ 04, 2 say ' soluciona o no el problema de los deudores?' @ 06, 2 say ' (1) Sí se soluciona el problema' @ 07, 2 say ' (2) Lo soluciona en parte' @ 08, 2 say ' (3) No lo solucionan' @ 09, 2 say ' (4) Ns/Nc' GET P17 RANGE 1,4 READ 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 * --- 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. (N$ 0 - 550)' @ 15, 2 say ' (2) 1-3 Sal. Min. (N$ 551 - 1,647)' @ 16, 2 say ' (3) 3-5 Sal. Min. (N$ 1,648 - 2,745)' @ 17, 2 say ' (4) 5-7 Sal. Min. (N$ 2,746 - 3,843)' @ 18, 2 say ' (5) 7-10 Sal. Min. (N$ 3,844 - 5,490)' @ 19, 2 say ' (6) 10-+ Sal. Min. (N$ 5,491 - o más)' get ingre range 1,7 read RETURN