* PSDCFX
      PROGRAMA 'REVISA ARCHIVOS' /COLOR NEGRO BLANCO $
                                /AREAS-COMUNES DIR
      DOCUMENTACION 3 0
*D
*D    ESTE PROGRAMA REVISA LOS ARCHIVOS DE AYUDAS Y EJECUTA LA OPCION
*D    SOLO SE EJECUTA LA PRIMERA VEZ
*D
*
*D    RECONSTRUIR LOS ARCHIVOS DE AYUDAA, AYUDAV Y AYUDAP CON
*D    LA LOGICA DE LAS RUTINAS DE *ISRECD*
*D
      SI DIR-PER-TEM <> ' ' OPCION DISCO AYUDAA DISCO DIR-PER-TEM
      MOVER 'AYUDAA' A RECA-ARCHIVO
      OPCION DISCO AYUDAA EXCLUSIVO RECA-POR-USO
      EJECUTA RUTINA PREGUNTAR-RECONSTRUCCION
      SI RECA-SE-RECONSTRUYE = 'NO' EJECUTA 15
      OPCION DISCO AYUDAA RECA
      EJECUTA RUTINA DESPLEGAR-ESTADISTICAS-RECA
*
15    SI DIR-PER-TEM <> ' ' OPCION DISCO AYUDAP DISCO DIR-PER-TEM
      MOVER 'AYUDAP' A RECA-ARCHIVO
      OPCION DISCO AYUDAP EXCLUSIVO RECA-POR-USO
      EJECUTA RUTINA PREGUNTAR-RECONSTRUCCION
      SI RECA-SE-RECONSTRUYE = 'NO' EJECUTA 17
      OPCION DISCO AYUDAP RECA
      EJECUTA RUTINA DESPLEGAR-ESTADISTICAS-RECA
*
17    SI DIR-PER-TEM <> ' ' OPCION DISCO AYUDAV DISCO DIR-PER-TEM
      MOVER 'AYUDAV' A RECA-ARCHIVO
      OPCION DISCO AYUDAV EXCLUSIVO RECA-POR-USO
      EJECUTA RUTINA PREGUNTAR-RECONSTRUCCION
      SI RECA-SE-RECONSTRUYE = 'NO' EJECUTA 19
      OPCION DISCO AYUDAV RECA
      EJECUTA RUTINA DESPLEGAR-ESTADISTICAS-RECA
*
19    FIN SIG-PROG-RECA
*
*     INCLUIR RUTINAS PARA OPCION DISCO RECA
*
&I    RECP
