*   ISRECR
*
***********************************************************************
*
*     RUTINA PARA REVISAR SI HAY PERDIDOS O DUPLICADOS Y BORRAR EL
*     TEMPORAL T990 GENERADO POR OPCION DISCO RECA
*
*     LAS INSTRUCCIONES PARA SU USO SON:
*
*     OPCION DISCO 'nomb' RECA
*     EJECUTA RUTINA RECA-TOTAL-PD
*     instrucciones para desplegar RECA-TOTAL-PD
*
RUTINA PERDIDOS-DUPLICADOS
      OPCION TEMPORAL 990 /LECTURA /ASCII
      LEER TEMPORAL 990 EJECUTA 100 RECA-NOMBRE-COMPLETO $
      RECA-FECHA-ULT-ACT RECA-HORA-ULT-ACT $
      RECA-FECHA-ACT RECA-HORA-ACT RECA-NOMBRE-EXTENDIDO
      LEER TEMPORAL 990 EJECUTA 100 RECA-TOTAL-PERDIDOS $
                                    RECA-TOTAL-DUPLICADOS
      RECA-TOTAL-PD = RECA-TOTAL-PERDIDOS + RECA-TOTAL-DUPLICADOS
      OPCION TEMPORAL 990 /BORRAR
      RETORNO
100   ERROR 'ERROR TEMPORAL 990 MAL FORMADO'
      FIN
