*     ISRECD.SIS
*
************************************************************************
*
*     DEFINICION DE LAS VARIABLES PARA DESPLEGAR EL T990 DESPUES DE USAR
*     LA INSTRUCCION DE OPCION DISCO RECA
*
*     SE DSPLIEGA LA SIGUIENTE INFORMACION:
*
*     AREA 9012
*     NOMBRE EXTENDIDO DEL ARCHIVO
*     NOMBRE COMPLETO DEL ARCHIVO
*     FECHA Y HORA DE ULTIMA Y ACTUAL RECONSTRUCCION
*     TOTAL DE PERDIDOS Y DUPLICADOS
*
*     AREA 9013
*     DATOS DE CADA RX CON LEIDOS, BORRADOS Y PERDIDOS
*
*     AREA 9014
*     DATOS DE CADA LLX CON INSERTADOS Y DUPLICADOS
*
*     AREA 9015
*     DATOS DE VARIABLES TIA CON LEIDOS Y LONGITUDES
*
*     EN LA INSTALACION SE DEBEN DEFINIR LAS SIGUIENTES VARIABLES
*     DE ACUERDO A SUS NECESIDADES:
*
*     RECA-DESPLEGAR-FH   SI/NO   SE DESPLIEGAN LAS FECHAS Y HORAS
*     RECA-DESPLEGAR-RX   SI/NO   SE DESPLIEGA LA INFORMACION DE RX
*     RECA-DESPLEGAR-LLX  SI/NO   SE DESPLIEGA LA INFORMACION DE LLX
*     RECA-DESPLEGAR-TIA  SI/NO   SE DEPLIEGA LA INFORMACION DE TIA
*     RECA-POR-USO-MAXIMO  1-99   % DE USO PARA REVISION
*
**********************************************************************
*
&VALOR RECA-DESPLEGAR-FH     SI
&VALOR RECA-DESPLEGAR-RX     SI
&VALOR RECA-DESPLEGAR-LLX    SI
&VALOR RECA-DESPLEGAR-TIA    SI
&VALOR RECA-POR-USO-MAXIMO   00
AREA
*
*    UN REGISTRO DE DATOS GENERALES
*
RECA-NOMBRE-COMPLETO   *               * R0 S X 60
RECA-FECHA-ULT-ACT     *               * R0 S X 8
RECA-HORA-ULT-ACT      *               * R0 S X 8
RECA-FECHA-ACT         *               * R0 S X 8
RECA-HORA-ACT          *               * R0 S X 8
RECA-NOMBRE-EXTENDIDO  'ARCHIVO:'      * R0 S X 40
*
*     UN REGISTRO CON PERDIDOS Y DUPLICADOS
*
RECA-TOTAL-PERDIDOS    'PERDIDOS:'     * R0 S N2 0 MX 'Z,ZZZ,ZZ9'
RECA-TOTAL-DUPLICADOS  'DUPLICADOS'    * R0 S N2 0 MX 'Z,ZZZ,ZZ9'
*
*     UN REGISTRO CON TOTAL DE RX
*
RECA-TOTAL-RX          *               * R0 S N1 0 MX '99'
*
*      (TOTAL-RX) REGISTROS
*
RECA-RX                'REC.'          * R0 S N1 0 MX '99'
RECA-LEIDOS            '   LEIDOS'     * R0 S N2 0 MX 'Z,ZZZ,ZZ9B'
RECA-BORRADOS          ' BORRADOS'     * R0 S N2 0 MX 'Z,ZZZ,ZZ9B'
RECA-PERDIDOS          ' PERDIDOS'     * R0 S N2 0 MX 'Z,ZZZ,ZZ9B'
RECA-NOMBRE-RX         'NOMBRE'        * R0 S X 40
*
*       UN REGISTRO CON TOTAL DE LLAVES
*
RECA-TOTAL-LLX         *               * R0 S N1 0 MX '99'
*
*       (TOTAL-LLX) REGISTROS
*
RECA-LLX               *               * R0 S N1 0 MX '99'
RECA-RX-LLX            *               * R0 S N1 0
RECA-NIV               *               * R0 S N1 0
RECA-INSERTADOS        'INSERTADOS'    * R0 S N2 0 MX 'Z,ZZZ,ZZ9B'
RECA-DUPLICADOS        'DUPLICADOS'    * R0 S N2 0 MX 'Z,ZZZ,ZZ9B'
*
*       UN REGISTRO CON TOTAL DE TEXTO/IMAGEN/AUDIO
*
RECA-TOTAL-TIA         *               * R0 S N1 0 MX '999'
*
*       (TOTAL-TIA) REGISTROS
*
RECA-TIA               *               * R0 S N1 0 MX '99'
RECA-TIA-NOMBRE        'NOMBRE'        * R0 S X 30
RECA-TIA-LEIDOS        '   LEIDOS'     * R0 S N2 0 MX 'Z,ZZZ,ZZ9B'
RECA-TIA-PERDIDOS      ' PERDIDOS'     * R0 S N2 0 MX 'Z,ZZZ,ZZ9B'
RECA-TIA-LP            ' PROMEDIO'     * R0 S N2 0 MX 'Z,ZZZ,ZZ9B'
RECA-TIA-LM            '   MAXIMO'     * R0 S N2 0 MX 'Z,ZZZ,ZZ9B'
*
*       VARIABLES PARA ISRECP Y ISRECR
*
RECA-ARCHIVO            *              * R0 S X 6
RECA-POR-USO            *              * R0 S N1 0 MX 'ZZ9'
RECA-SE-RECONSTRUYE     *              * R0 S S
RECA-X4                 *              * R0 S X 3
RECA-ENTERADO          'ENTERADO'      * R0 S X 1
RECA-INICIO             *              * R0 S N1 0
RECA-TOTAL-PD           'PERDIDOS Y DUPLICADOS' $
                                       * R0 S N2 0 MX 'Z,ZZZ,ZZ9'
