*  Tema     : ACEPTACION DEL PROGRAMA DEL ADE
*  Fecha    : 17/sep/95
*  Path     : ADE20995.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.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.-¿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'                   && FIN DE LA ENCUESTA
@ 08, 2 say '   (3) Nc' GET P1 RANGE 1,3  && FIN DE LA ENCUESTA
READ


**** PASE AL FINAL DEL CUESTIONARIO ****
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

IF P2_1=2
DO MASCARA
@ 02, 2 say '3.-¿Me podría comunicar con la persona que tiene el crédito?'
@ 04, 2 say '   (1) Si'                      && PASE A 5    
@ 05, 2 say '   (2) No' 
@ 06, 2 say '   (3) Ns/Nc' GET P3 RANGE 1,3
READ
ELSE
REPL P3 WITH 0
ENDIF
              

IF P3=2.OR.P3=3
DO MASCARA
@ 02, 2 say '4.-¿Podría localizarlo más tarde para platicar con él?'
@ 04, 2 say '   (1) Si'
@ 05, 2 say '   (2) No'                        && PASE A SOCIOECONOMICOS
@ 06, 2 say '   (3) Ns/Nc' GET P4 RANGE 1,3    && PASE A SOCIOECONOMICOS
READ

IF P4=1
@ 10, 2 say '¿A qué hora?'
@ 12, 2 say ' ENTREVISTADOR:'
@ 13, 2 say '  REGISTRE EL NOMBRE, LA HORA Y EL DIA PARA VOLVER A LLAMAR'
@ 16, 2 say ' Nombre de la persona:      ' get pnombre pict '@!'
@ 18, 2 say ' Hora: (formato de 24 Horas)' get phora range 9,22
@ 19, 2 say ' Minuto:                    ' get pmin  range 0,59
@ 20, 2 say ' Día:                       ' get pdia  range 1,31
READ
else
repl phora with 0,pmin with 0,pdia with 0
ENDIF

else
repl phora with 0,pmin with 0,pdia with 0
repl p4 with 0
endif



**** PASE AL FINAL DEL CUESTIONARIO ****
IF P3=1.or.P2_1=1.or.P2_1=3

do mascara
@ 02, 2 say 'ENTREVISTADOR: INICIE EL CUESTIONARIO HASTA QUE ESTE HABLANDO'
@ 03, 2 say '               CON LA PERSONA QUE TIENE EL CREDITO'
@ 05, 2 say '5.-Tal vez usted ya estaba enterado que el lunes pasado 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

do mascara
@ 02, 2 say '5.2-¿Me podría decir en que consiste el programa de apoyo inmediato' 
@ 03, 2 say '    a deudores de la Banca?'
@ 05, 2 say '    (1) Disminuirán las tasas de interés'
@ 06, 2 say '    (2) Habrá una tregua judicial'
@ 07, 2 say '    (3) Se podrán reestructurar los adeudos'
@ 08, 2 say '    (4) Se darán apoyos especiales para el campo'
@ 09, 2 SAY '    (5) Otro: REGISTRAR EN PAPEL'
@ 10, 2 SAY '    (6) Ns/Nc' GET P5_2 RANGE 1,6
read
ELSE
REPL P5_1 WITH 0,P5_2 WITH 0
ENDIF


DO 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

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        


**** PIENSA ACUDIR ****

IF P8=1.OR.P8=4
DO MASCARA
@ 02, 2 SAY '8.1-¿Porque no ha ido al Banco?'
@ 04, 2 SAY '    (1) No tengo tiempo'
@ 05, 2 SAY '    (2) Me falta información'
@ 06, 2 SAY '    (3) No voy a pagar'
@ 07, 2 SAY '    (4) Problemas de salud'
@ 08, 2 SAY '    (5) Estoy al corriente de mis pagos'
@ 09, 2 SAY '    (6) No se a donde ir'
@ 10, 2 SAY '    (7) Estuve de viaje'
@ 11, 2 SAY '    (8) Otro'
@ 12, 2 SAY '    (9) Ns/Nc' GET P8_1 RANGE 1,9
READ

@ 15, 2 SAY '8.2-¿Qué necesita usted para acudir al Banco?'
@ 17, 2 SAY '    (1) Información'
@ 18, 2 SAY '    (2) Pensarlo bien'
@ 19, 2 SAY '    (3) Otro (Registrar en papel)'
@ 20, 2 SAY '    (4) Ns/Nc' GET P8_2 RANGE 1,4
read        
ELSE
REPL P8_1 WITH 0,P8_2 WITH 0
ENDIF
                   

**** 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

@ 10, 2 SAY '9.2-Y dígame, ¿qué piensa usted hacer para resolver el problema de'
@ 11, 2 SAY '    su deuda con su banco?'
@ 13, 2 SAY '    (1) Pedira prestamo en el trabajo'
@ 14, 2 SAY '    (2) Juntar dinero'
@ 15, 2 SAY '    (3) Buscar trabajo'
@ 16, 2 SAY '    (4) Seguir pagando'
@ 17, 2 SAY '    (5) Dejar de pagar'
@ 18, 2 SAY '    (6) Otro'
@ 19, 2 SAY '    (7) Ns/Nc' GET P9_2 RANGE 1,7
read

ELSE
REPL P9_1 WITH 0,P9_2 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.-¿Qué le pareció el trato que recibió en su banco?'
@ 04, 2 SAY '    (1) Muy bueno'
@ 05, 2 SAY '    (2) Bueno'
@ 06, 2 SAY '    (3) Regular'
@ 07, 2 SAY '    (4) Malo'
@ 08, 2 SAY '    (5) Muy malo'
@ 09, 2 SAY '    (6) NS/NC' GET P12 RANGE 1,6 
read

DO MASCARA
@ 02, 2 SAY '13.-¿Le dieron alguna explicación especial de lo que significa' 
@ 03, 2 SAY '    el programa (ADE)?'
@ 05, 2 SAY '    (1) Si'
@ 06, 2 SAY '    (2) No'            && PASE A 14
@ 07, 2 SAY '    (3) Ns/Nc' GET P13 RANGE 1,3
read

if p13=1

DO MASCARA
@ 02, 2 SAY '13.1-¿Quedó usted satisfecho o no con la atención y asesoría que le'
@ 03, 2 SAY '     dieron en el banco?'
@ 05, 2 SAY '     (1) Sí'       && pase a 13.2
@ 06, 2 SAY '     (2) En parte'
@ 07, 2 SAY '     (3) No'
@ 08, 2 SAY '     (4) Ns/Nc' get p13_1 range 1,4    && pase a 13.2
read

if p13_1=2.OR.P13_1=3
@ 12, 2 SAY '13.1a-¿Por qué no quedó satisfecho?'
@ 14, 2 SAY '      (1) No se soluciona nada'
@ 15, 2 SAY '      (2) Fue muy breve y yo no entendí'
@ 16, 2 SAY '      (3) La información es diferente a la publicidad'
@ 17, 2 SAY '      (4) Otro'
@ 18, 2 SAY '      (5) Ns/Nc' GET P13_1a RANGE 1,5
read
else
repl p13_1a with 0
endif

DO MASCARA
@ 02, 2 SAY '13.2-Después de esta plática ¿se convenció o no de reestructurar'
@ 03, 2 SAY '     su deuda?'
@ 05, 2 SAY '     (1) No me convenció'
@ 06, 2 SAY '     (2) Sí me convenció'
@ 07, 2 SAY '     (3) Ya estaba convencido'
@ 08, 2 SAY '     (4) Ns/Nc' GET P13_2 RANGE 1,4
read

else
repl p13_1a with 0,p13_1 with 0,p13_2 with 0
endif


DO MASCARA
@ 02, 2 SAY '14.-¿Realizó usted algún trámite para reestructurar su deuda o sólo fue'
@ 03, 2 SAY '    a pedir información?'
@ 05, 2 SAY '    (1) Realice un trámite'
@ 06, 2 SAY '    (2) Sólo pedí información'    && PASE A 14.3
@ 07, 2 SAY '    (3) Ns/Nc' get p14 range 1,3  && PASE A 15
read

if p14=1
@ 10, 2 SAY '14.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
else
repl p14_1 with 0
endif

if p14_1=1
DO MASCARA
@ 02, 2 SAY '14.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 p14_2 with 0
endif


if p14=2.or.p14_1=2.or.p14_1=3
DO MASCARA
@ 02, 2 SAY '14.3-En caso de no llegar a un acuerdo con su banco, ¿qué piensa'
@ 03, 2 SAY '     usted hacer?'
@ 05, 2 SAY '       (1) Pagar'
@ 06, 2 SAY '       (2) Tratar de llegar a un acuerdo'
@ 07, 2 SAY '       (3) Dejar de pagar'
@ 08, 2 SAY '       (4) Otro'
@ 09, 2 SAY '       (5) Ns/Nc' GET P14_3 RANGE 1,5
read
else
repl p14_3 with 0
endif

else
repl p11  with 0,;
     p12  with 0,;
     p13  with 0,;
     p13_1  with 0,;
     p13_1a with 0,;
     p13_2  with 0,;
     p14    with 0,;
     p14_1  with 0,;
     p14_2  with 0,;
     p14_3  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


* --- 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

else
DO MASCARA
@ 10, 2 say '   Muchas gracias, que tenga un buen día'
repl p5   with 0,;
     p5_1 with 0,;
     p5_2 with 0,;
     p6_1 with 0,;
     p6_2 with 0,;
     p6_3 with 0,;
     p7   with 0,;
     p8   with 0,;
     p8_1 with 0,;
     p8_2 with 0,;
     p9_1 with 0,;
     p9_2 with 0,;
     p11  with 0,;
     p12  with 0,;
     p13  with 0,;
     p13_1  with 0,;
     p13_1a with 0,;
     p13_2  with 0,;
     p14    with 0,;
     p14_1  with 0,;
     p14_2  with 0,;
     p14_3  with 0,;
     p15    with 0,;
     p16    with 0,;
     p16_1  with 0,;
     p17    with 0,;
     sex    with 0,;
     edad   with 0,;
     inst   with 0,;
     ocup   with 0,;
     escol  with 0,;
     ingre  with 0
endif


else
DO MASCARA
@ 10, 2 say '   Muchas gracias, que tenga un buen día'
repl p1_1 with 0,;
     p1_2 with 0,;
     p1_3 with 0,;
     p1_4 with 0,;
     p1_5 with 0,;
     p2   with 0,;
     p2_1 with 0,;
     p3   with 0,;
     p4   with 0,;
     phora with 0,;
     pmin with 0,;
     pdia with 0,;
     p5   with 0,;
     p5_1 with 0,;
     p5_2 with 0,;
     p6_1 with 0,;
     p6_2 with 0,;
     p6_3 with 0,;
     p7   with 0,;
     p8   with 0,;
     p8_1 with 0,;
     p8_2 with 0,;
     p9_1 with 0,;
     p9_2 with 0,;
     p11  with 0,;
     p12  with 0,;
     p13  with 0,;
     p13_1  with 0,;
     p13_1a with 0,;
     p13_2  with 0,;
     p14    with 0,;
     p14_1  with 0,;
     p14_2  with 0,;
     p14_3  with 0,;
     p15    with 0,;
     p16    with 0,;
     p16_1  with 0,;
     p17    with 0,;
     sex    with 0,;
     edad   with 0,;
     inst   with 0,;
     ocup   with 0,;
     escol  with 0,;
     ingre  with 0
endif

RETURN