* Tema : PERCEPCION SITUACION ECONOMICA * Fecha : 3 DICIEMBRE 1998 * Path : ECO21298 * Alcance : NACIONAL * Lugar : REPUBLICA MEXICANA *** 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 DO MASCARA @ 02, 2 say '1.-De las cosas que ocurrieron ayer en México y en el mundo,' @ 03, 2 say ' ¿qué es lo que recuerda usted más?' @ 04, 2 say ' Si mención No mención' @ 05, 2 say '-(Pdte)Gira por el estado de Queretaro (1) (0)' GET PN1_1 RANGE 0,1 @ 06, 2 say '-(Pdte)Clausura Convención Nal de Canacintra (1) (0)' GET PN1_2 RANGE 0,1 @ 07, 2 say '-(Pdte)Designa diplómaticos en Paraguay y Nicaragua (1) (0)' GET PN1_3 RANGE 0,1 @ 08, 2 say '-Reacciones por aumento al salario mínimo (1) (0)' GET PN1_4 RANGE 0,1 @ 09, 2 say '-Se enfrentan campesinos en Teojomulco, Oaxaca (1) (0)' GET PN1_5 RANGE 0,1 @ 10, 2 say '-F Labastida anuncia que sí habra reunión con PRD (1) (0)' GET PN1_6 RANGE 0,1 @ 11, 2 say '-Entrega defensa de Raúl Salinas pruebas de inocencia (1) (0)' GET PN1_7 RANGE 0,1 @ 12, 2 say '-Gobierno y PAN negocian pronta solución al FOBAPROA (1) (0)' GET PN1_8 RANGE 0,1 @ 13, 2 say '-Mantienen alerta zonas Popocatépetl y Volcán de Colima (1) (0)' GET PN1_9 RANGE 0,1 @ 14, 2 say '-Continua controversia por caso FOBAPROA (1) (0)' GET PN1_10 RANGE 0,1 @ 15, 2 say '-Declaraciones del sec de Energía por caída del petróleo(1) (0)' GET PN1_11 RANGE 0,1 @ 16, 2 say '-Niega EU ayuda a A Pinochet (1) (0)' GET PN1_12 RANGE 0,1 @ 17, 2 say '-Otro (REGISTRADO EN PAPEL) (1) (0)' GET PN1_13 RANGE 0,1 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 'DIP.-En general, ¿cuántos años dura un diputado en su cargo (puesto)?' @ 04, 2 say ' (1) 3 años' @ 05, 2 say ' (2) Otro' @ 06, 2 SAY ' (3) Ns/Nc' GET PDIP RANGE 1,3 READ DO MASCARA @ 02, 2 say 'CGR.-Con lo que usted sabe, ¿cuáles son las cámaras que tiene el Congreso' @ 03, 2 say ' de México?' @ 05, 2 say ' (1) Diputados y Senadores' @ 06, 2 say ' (2) Diputados' @ 07, 2 say ' (3) Senadores' @ 08, 2 say ' (4) Otra respuesta' @ 09, 2 say ' (5) Ns/Nc' GET PCGR RANGE 1,5 READ DO MASCARA @ 02, 2 say 'GOB.-Por favor, ¿me puede decir el nombre del gobernador actual de' @ 03, 7 say EDONOM+' ?.' @ 05, 5 say GOBER+'(1)Correcto (2)Incorrecto (3)Ns/Nc' get PGOB RANGE 1,3 READ DO MASCARA @ 02, 2 say 'N.-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) (Pdte)Gira por el estado de Queretaro' @ 06, 2 say ' (2) (Pdte)Clausura Convención Nal de Canacintra' @ 07, 2 say ' (3) (Pdte)Designa nuevos cargos diplómaticos en Paraguay y Nicaragua' @ 08, 2 say ' (4) Reacciones por aumento al salario mínimo en las 3 zonas del país' @ 09, 2 say ' (5) Se enfrentan campesinos en Teojomulco, Oaxaca' @ 10, 2 say ' (6) F Labastida anuncia que sí habra reunión con PRD' @ 11, 2 say ' (7) Entrega defensa de Raúl Salinas pruebas de inocencia' @ 12, 2 say ' (8) Gobierno y PAN negocian pronta solución al FOBAPROA' @ 13, 2 say ' (9) Mantienen alerta zonas cercanas al Popocatépetl y Volcán de Colima' @ 14, 2 say ' (10) Continua controversia por caso FOBAPROA' @ 15, 2 say ' (11) Declaraciones del sec de Energía por caída del precio del petróleo' @ 16, 2 say ' (12) Niega EU ayuda a A Pinochet ' @ 17, 2 say ' (96) Otro (REGISTRE EN PAPEL)' @ 18, 2 say ' (99) Ns/Nc' GET PNOT VALID ((PNOT>0.AND.PNOT<13).OR.PNOT=96.OR.PNOT=99) READ IF PNOT>3 DO MASCARA @ 02, 2 say 'N_1.-Dígame, ¿cuál de las acciones realizadas por el presidente durante' @ 03, 2 say ' esta semana recuerda usted más? (REGISTRE SOLO RESPUESTA ESPONTANEA)' @ 05, 2 say ' (1) Reunión con Mujeres Representantes Agrarias' @ 06, 2 say ' (2) Recibe cartas credencial de nuevos embajadores en México' @ 07, 2 say ' (3) Reunión con Consejo Coordinador Empresarial' @ 08, 2 say ' (4) Gira de trabajo por el edo. de Puebla' @ 09, 2 say ' (5) Reunión con primer minstro de Polonia' @ 10, 2 say ' (6) Recibe en Los Pinos a cónsules honorarios' @ 11, 2 say ' (7) Entrega Premio Nacional de Calidad 1998' @ 12, 2 say ' (8) Gira por el estado de Queretaro' @ 13, 2 say ' (9) Clausura Convención Nal de Canacintra' @ 14, 2 say ' (10) Designa a nuevos cargos diplómaticos en Paraguay y Nicaragua' @ 15, 2 say ' (96) Otro (REGISTRE EN PAPEL)' @ 16, 2 say ' (99) Ns/Nc' GET PNOT_1 VALID (PNOT_1>0.AND.PNOT_1<11).OR.PNOT_1=96.OR.PNOT_1=99 READ ELSE REPLACE PNOT_1 WITH 0 ENDIF DO mascara @ 02, 2 say 'Sim.-De los candidatos a la Presidencia de la República de 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 do mascara @ 02, 2 say 'Prinprob.-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 (aumento de precios)' @ 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 (REGISTRAR EN PAPEL)' @ 13, 2 say ' (8) Ns/nc' GET Prinprob RANGE 1,8 READ *IF PRINPROB=1.or.PRINPROB=2.or.PRINPROB=3.or.PRINPROB=5 *do mascara *@ 02, 2 say 'Prin_1.-Además de los problemas económicos como la crisis y el desempleo,' *@ 03, 2 say ' ¿cuál sería para usted el problema más grave su ciudad?' *@ 05, 2 say ' (1) Seguridad pública' *@ 06, 2 say ' (2) Contaminación' *@ 07, 2 say ' (3) Agua' *@ 08, 2 say ' (4) Educación' *@ 09, 2 say ' (5) Mal gobierno' *@ 10, 2 say ' (6) Partidos políticos' *@ 11, 2 say ' (7) Otro (REGISTRAR EN PAPEL)' *@ 12, 2 say ' (8) Ns/Nc' get prin_1 range 1,8 *read *else * repl prin_1 with 0 *endif do mascara @ 02, 2 say 'Preoceco.-Sobre su situación económica, podría decirme, ¿qué es lo que más' @ 03, 2 SAY ' le preocupa en estos momentos?' @ 04, 2 SAY ' (ENTREVISTADOR LEA OPCIONES 1 A 4 Y REGISTRE LA PRIMER RESPUESTA)' @ 06, 2 SAY ' (1) Que los precios siguen subiendo' @ 07, 2 SAY ' (2) Que puede perder usted o alguien de su familia su empleo' @ 08, 2 say ' (3) Que no tiene empleo' @ 09, 2 say ' (4) Que su salario es bajo y no le alcanza' @ 10, 2 SAY ' (5) Ninguna' @ 11, 2 SAY ' (6) Ns/Nc'GET Preoceco RANGE 1,6 READ do mascara @ 02, 2 say 'Siteco.-Comparada con el año anterior (diciembre de 1997), ¿cómo cree usted' @ 03, 2 SAY ' que está la situación económica del país actualmente, mejor o peor?' @ 05, 2 SAY ' (1) Mejor' @ 06, 2 SAY ' (2) Igual (ESPONTANEA)' @ 07, 2 SAY ' (3) Peor' @ 08, 2 say ' (4) Ns/Nc' GET SITECO RANGE 1,4 READ IF SITECO=2.OR.SITECO=3 do mascara @ 02, 2 say 'Razoneco.-Con lo que usted sabe, ¿cuál es la razón principal por la que la' @ 03, 2 SAY ' economía del país no ha podido mejorar con relación a hace un año?' @ 04, 2 SAY ' (ENTREVISTADOR: ESPERE RESPUESTA ESPONTANEA. NO LEA OPCIONES)' @ 06, 2 SAY ' (1) La devaluación' @ 07, 2 SAY ' (2) La deuda con Estados Unidos' @ 08, 2 say ' (3) El conflicto en Chiapas' @ 09, 2 say ' (4) La inestabilidad política' @ 10, 2 say ' (5) La corrupción' @ 11, 2 say ' (6) La inexperiencia del gobierno actual' @ 12, 2 say ' (7) La caída de los precios del petróleo' @ 13, 2 say ' (8) Otro: (ENTREVISTADOR: REGISTRE EN PAPEL)' @ 14, 2 say ' (9) Ns/Nc' GET Razoneco RANGE 1,9 READ ELSE REPLACE RAZONECO WITH 0 ENDIF do mascara @ 02, 2 say 'Ahorro.-¿Pudo o no ahorrar algo de su ingreso en el último año' @ 03, 2 SAY ' (diciembre de 97 a diciembre de 98)?' @ 05, 2 SAY ' (1) Sí' @ 06, 2 SAY ' (2) No' @ 07, 2 SAY ' (3) Ns/Nc' GET ahorro RANGE 1,3 READ do mascara @ 02, 2 say 'compro.-En el último año pudo o no usted comprar algo que no había podido' @ 03, 2 SAY ' comprar antes?' @ 05, 2 SAY ' (1) Sí' @ 06, 2 SAY ' (2) No' @ 07, 2 SAY ' (3) Ns/Nc' GET compro RANGE 1,3 READ IF compro=1 @ 12, 2 say 'Compro_1.-¿Cómo lo hizo? (ENCUESTADOR: NO LEA OPCIONES)' @ 14, 2 SAY ' (1) Mejor ingreso' @ 15, 2 SAY ' (2) Préstamo' @ 16, 2 SAY ' (3) Ahorro' @ 17, 2 SAY ' (4) Aguinaldo' @ 18, 2 say ' (5) Otro' @ 19, 2 say ' (6) Ns/Nc' GET compro_1 RANGE 1,6 READ ELSE REPLACE compro_1 WITH 0 ENDIF do mascara @ 02, 2 say 'dinero.-En relación al ingreso en su hogar, ¿usted espera tener más' @ 03, 2 SAY ' dinero o menos dinero el próximo año, comparado con este año?' @ 05, 2 SAY ' (1) Más' @ 06, 2 SAY ' (2) Igual de bien' @ 07, 2 SAY ' (3) Igual de mal' @ 08, 2 SAY ' (4) Menos' @ 09, 2 say ' (5) Ns/Nc' GET dinero RANGE 1,5 READ if dinero=1 @ 12, 2 say 'din_1.-¿Por qué espera tener más dinero?' @ 14, 2 SAY ' (1) (REGISTRAR EN PAPEL)' @ 15, 2 say ' (2) Ns/Nc' GET din_1 RANGE 1,2 READ ELSE REPLACE din_1 WITH 0 ENDIF if dinero=2 @ 12, 2 say 'din_2.-¿Por qué espera tener igual de bien de dinero?' @ 14, 2 SAY ' (1) (REGISTRAR EN PAPEL)' @ 15, 2 say ' (2) Ns/Nc' GET din_2 RANGE 1,2 READ ELSE REPLACE din_2 WITH 0 ENDIF if dinero=3 @ 12, 2 say 'din_3.-¿Por qué espera tener igual de mal de dinero?' @ 14, 2 SAY ' (1) (REGISTRAR EN PAPEL)' @ 15, 2 say ' (2) Ns/Nc' GET din_3 RANGE 1,2 READ ELSE REPLACE din_3 WITH 0 ENDIF if dinero=4 @ 12, 2 say 'din_4.-¿Por qué espera tener menos dinero?' @ 14, 2 SAY ' (1) (REGISTRAR EN PAPEL)' @ 15, 2 say ' (2) Ns/Nc' GET din_4 RANGE 1,2 READ ELSE REPLACE din_4 WITH 0 ENDIF do mascara @ 02, 2 say 'perdempl.-Tomando en consideración la situación económica actual del país,' @ 03, 2 SAY ' ¿teme o no que usted o alguien de su familia pierda su empleo o trabajo?' @ 05, 2 SAY ' (1) Sí' @ 06, 2 SAY ' (2) No' @ 07, 2 SAY ' (3) Ns/Nc' GET perdempl RANGE 1,3 READ do mascara @ 02, 2 say 'Medacupe.-¿Y usted cree que las medidas económicas tomadas por el gobierno' @ 03, 2 SAY ' de Ernesto Zedillo son adecuadas o inadecuadas para resolver' @ 04, 2 SAY ' su situación 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 medacupe RANGE 1,4 READ Do mascara @ 02, 2 say 'SITDIF95.-En 1995, el país enfrentó una difícil situación económica. Con lo' @ 03, 2 say ' que usted sabe de la situación económica actual, ¿cree usted que' @ 04, 2 say ' el país volverá a tener una situación tan difícil como la de los' @ 05, 2 say ' primeros meses de 1995?' @ 07, 2 say ' (1) Sí' @ 08, 2 say ' (2) Sí en parte' @ 09, 2 say ' (3) No' @ 10, 2 say ' (4) Ns/Nc' get sitdif95 range 1,4 READ Do mascara @ 02, 2 say 'EZPCPZ.-Ante la nueva caída del precio del petróleo, ¿confía usted en la' @ 03, 2 say ' capacidad de Ernesto Zedillo para resolver las dificultades económicas' @ 04, 2 say ' que ocurren por la caída de los precios del petróleo o tiene usted' @ 05, 2 say ' alguna duda al respecto?' @ 07, 2 say ' (1) Sí confía' @ 08, 2 say ' (2) Tiene duda' @ 09, 2 say ' (3) Ns/Nc' GET EZPCPZ RANGE 1,3 read Do mascara @ 02, 2 say '20.-Y, con lo que usted ha visto o ha oído, ¿usted cree que la economía' @ 03, 2 say ' mexicana es lo suficientemente sólida como para enfrentar estas' @ 04, 2 say ' dificultades, o no?' @ 06, 2 say ' (1) Sí, es sólida' @ 07, 2 say ' (2) Es en parte sólida' @ 08, 2 say ' (3) No es sólida' @ 09, 2 say ' (4) Ns/Nc' get p20 range 1,4 READ do mascara @ 02, 2 say 'Inflacio.-¿Qué porcentaje de inflación espera usted para este año?' @ 03, 2 SAY ' (enero 98-diciembre 98)' @ 04, 2 SAY ' (EJEMPLO SI DICE 50%, CAPTURE COMO 50.00)' @ 06, 2 SAY ' (998.00) N/S' @ 07, 2 SAY ' (999.00) N/C' GET INFLACIO RANGE 0,999 READ do mascara @ 02, 2 say 'Bajinfl.-¿Cree usted que las medidas del gobierno para solucionar la crisis' @ 03, 2 SAY ' están ayudando a bajar la inflación?' @ 05, 2 SAY ' (1) Sí' @ 06, 2 SAY ' (2) No' @ 07, 2 SAY ' (3) Ns/nc' GET Bajinfl RANGE 1,3 READ @ 10, 2 say 'Bajinf_1.-¿Y cree usted que estas ayudarán a bajar la inflación' @ 11, 2 say ' el próximo año?' @ 13, 2 SAY ' (1) Sí' @ 14, 2 SAY ' (2) No' @ 15, 2 SAY ' (3) Ns/nc' GET Bajinf_1 RANGE 1,3 READ do mascara @ 02, 2 say 'Coninfl.-¿Cree usted que las medidas del gobierno para solucionar la crisis' @ 03, 2 SAY ' están ayudando a controlar la inflación?' @ 05, 2 SAY ' (1) Sí' @ 06, 2 SAY ' (2) No' @ 07, 2 SAY ' (3) Ns/nc' GET Coninfl RANGE 1,3 READ @ 10, 2 say 'Coninf_1.-¿Y cree usted que estas ayudarán a controlar la inflación el' @ 11, 2 say ' próximo año?' @ 13, 2 SAY ' (1) Sí' @ 14, 2 SAY ' (2) No' @ 15, 2 SAY ' (3) Ns/nc' GET Coninf_1 RANGE 1,3 READ do mascara @ 02, 2 say 'Enojo.-¿Está usted enojado o no con las medidas económicas del gobierno' @ 03, 2 SAY ' para salir de la crisis económica?' @ 05, 2 SAY ' (1) Sí' @ 06, 2 SAY ' (2) Si en parte' @ 07, 2 SAY ' (3) No en parte' @ 08, 2 SAY ' (4) No' @ 09, 2 say ' (5) Ns/nc' get Enojo RANGE 1,5 READ IF Enojo=1.or.Enojo=2 @ 12, 2 say 'Enojo_1.-¿Qué tan enojado está usted con estas medidas económicas?' @ 14, 2 SAY ' (1) Mucho' @ 15, 2 SAY ' (2) Poco' @ 16, 2 SAY ' (3) Normal' @ 17, 2 SAY ' (4) Ns/nc' GET Enojo_1 RANGE 1,4 READ ELSE REPLACE Enojo_1 with 0 ENDIF do mascara @ 02, 2 say 'Aumento.-¿Ha notado usted aumento en los productos que usted consume' @ 03, 2 SAY ' regularmente?' @ 05, 2 SAY ' (1) Sí' @ 06, 2 SAY ' (2) No' @ 07, 2 SAY ' (3) N/C' GET AUMENTO RANGE 1,3 READ IF AUMENTO=1 @ 12, 2 say 'Aumento1.-¿Cuál cree usted que es la principal razón por la que aumentaron' @ 13, 2 SAY ' los precios de las mercancías recientemente?' @ 15, 2 say ' (1) REGISTRAR EN PAPEL' @ 16, 2 say ' (2) Ns/Nc ' get AUMENT_1 range 1,2 READ do mascara @ 02, 2 say 'Produc_1.-¿Cuáles cree usted que son los productos que más han aumentado?' @ 03, 2 SAY ' (ENTREVISTADOR: NO ACEPTAR TODO COMO RESPUESTA. INSISTA EN' @ 04, 2 SAY ' CUAL.. REGISTRE HASTA DOS RESPUESTAS)' @ 06, 2 SAY ' (1) Alimentos y bebidas' @ 07, 2 say ' (2) Transporte' @ 08, 2 say ' (3) Ropa y calzado' @ 09, 2 SAY ' (4) Enseres domésticos' @ 10, 2 SAY ' (5) Educación' @ 11, 2 say ' (6) Medicinas y médicos' @ 12, 2 say ' (7) Diversión' @ 13, 2 SAY ' (8) Gasolina' @ 14, 2 say ' (11) Luz, gas, agua ' @ 15, 2 say ' (9) No sabe ' GET Produc_1 RANGE 1,11 @ 16, 2 say ' (10) No contestó' GET Produc_2 RANGE 1,11 READ IF Produc_1=1.OR.Produc_2=1 @ 18, 2 say 'Alim.-¿Qué alimentos?' @ 20, 2 SAY ' (1) REGISTRAR EN PAPEL' @ 21, 2 SAY ' (2) Ns/Nc' GET ALIM RANGE 1,2 READ ELSE REPL ALIM WITH 0 ENDIF ELSE REPLACE Aument_1 WITH 0, Produc_1 WITH 0,Produc_2 WITH 0,ALIM WITH 0 ENDIF Do mascara @ 02, 2 SAY 'Pele.-Si el día de hoy fueran las elecciones para Presidente de la República,' @ 03, 2 SAY ' ¿por cuál partido votaría usted?' @ 05, 2 SAY ' (1) PAN' @ 06, 2 SAY ' (2) PRI' @ 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 ********************** **** 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 ' (NS/NC = 11) ' GET PCAL RANGE 0, 11 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 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 - 1,026)' @ 15, 2 say ' (2) 1-3 Sal. Min. ($ 1,027 - 3,078)' @ 16, 2 say ' (3) 3-5 Sal. Min. ($ 3,079 - 5,130)' @ 17, 2 say ' (4) 5-7 Sal. Min. ($ 5,131 - 7,182)' @ 18, 2 say ' (5) 7-10 Sal. Min. ($ 7,183 -10,260)' @ 19, 2 say ' (6) 10-+ Sal. Min. ($10,261 - o más)' get ingre range 1,7 read RETURN