#######################################################################
# SISTEMA   : DOCUMENTACION DE SISTEMA
# PROGRAMA  : DSPRGB000.4GL
# OBJETIVO  : Documentar Los Programas de cada Sistema
# AUTOR     : Tadeo A. Ferreras F.
# FECHA     : JUNIO 7, 1995
########################################################################
DATABASE rayovac
GLOBALS
  DEFINE crear CHAR(2000),
         crear1 CHAR(1000)
  DEFINE dstb01 RECORD LIKE dstb00001.*
  DEFINE dstb03 RECORD LIKE dstb00003.*
  DEFINE dstb04 RECORD LIKE dstb00004.*
  DEFINE reg_tab RECORD LIKE dstb00005.*
  DEFINE descripcion1 CHAR(30) 
  DEFINE dstb05 RECORD 
         tabla          LIKE dstb00005.tabla,
         descripcion    LIKE dstb00005.descripcion,
         num_emp1       LIKE dstb00005.num_emp1,
         fecha_creacion LIKE dstb00005.fecha_creacion,
         numero_act     LIKE dstb00005.numero_act    
  END RECORD,
      impresor SMALLINT

  DEFINE act1 ARRAY[600] OF RECORD
         tabla       CHAR(9),
         descripcion CHAR(40)
  END RECORD

  DEFINE act2 ARRAY[3000] OF RECORD
         programa    CHAR(9),
         descripcion CHAR(60)
  END RECORD

  DEFINE act5 ARRAY[600] OF RECORD
         cod_sistema     CHAR(9),
         desc_sistema    CHAR(40),
         numero          INTEGER
  END RECORD

  DEFINE arreglo ARRAY[600] OF RECORD
         programa CHAR(9),
         desc_pr  CHAR(60),
         opcion   integer
  END RECORD

  DEFINE arr_tabla1 ARRAY[600] OF RECORD
         campo          CHAR(16),
         descrip_campo1 CHAR(50),
         descrip_campo2 CHAR(50),
         descrip_campo3 CHAR(50),
         tipo           CHAR(8),
         longitud       CHAR(16)
  END RECORD

  DEFINE campo_t ARRAY[6] OF RECORD
         tipo_c   CHAR(8)
  END RECORD

  DEFINE campo_l ARRAY[16] OF RECORD
         tipo_l   CHAR(16)
  END RECORD

  DEFINE reg_imp RECORD
    programa           LIKE dstb00001.programa,           
    cod_sistema        LIKE dstb00001.cod_sistema,
    num_emp            LIKE dstb00001.num_emp,
    no_solicitud       LIKE dstb00001.no_solicitud,
    fecha_creacion     LIKE dstb00001.fecha_creacion,  
    fecha_modificacion LIKE dstb00001.fecha_modificacion, 
    descripcion        LIKE dstb00001.descripcion, 
    objetivo1          LIKE dstb00001.objetivo1, 
    objetivo2          LIKE dstb00001.objetivo2, 
    numero_act         LIKE dstb00001.numero_act,
    status_t           LIKE dstb00001.status_t, 
    us_crea            LIKE dstb00001.us_crea, 
    fech_crea          LIKE dstb00001.fech_crea, 
    us_mod             LIKE dstb00001.us_mod, 
    fech_mod           LIKE dstb00001.fech_mod,
    linea_no           LIKE dstb00002.linea_no,
    entradas           LIKE dstb00002.entradas,
    proceso            LIKE dstb00002.proceso,
    salida             LIKE dstb00002.salida
END RECORD

DEFINE reg_imp1 RECORD
  cod_sistema   LIKE dstb00003.cod_sistema,
  menu1         CHAR(9),
  programa      CHAR(9),
  desc_sistema  LIKE dstb00003.desc_sistema,
  opcion        LIKE dstb00004.opcion
END RECORD
DEFINE reg_imp6 RECORD
  cod_sistema   CHAR(2),
  programa      LIKE dstb00006.programa,
  descripcion_p CHAR(60),
  tabla         LIKE dstb00006.tabla,
  descripcion_t CHAR(60)
END RECORD
DEFINE opt,impresion,verdad,identifica,existe,status_reg,opcion1 CHAR(1),
       opcion,mes_control,tab_1 CHAR(2),
       c_ano,a_ano CHAR(4),
       descrip1,descrip2,descrip3,descrip4 CHAR(30),
       nombre_tipo,nombre_emp,nom_cli,desc_menu  CHAR(60),
       descrip5 CHAR(65), 
       descrip6 CHAR(45),
       nombre CHAR(40),
       nombre1,apellido1 CHAR(15),
       desc_p,valor_fac,pagada,monto,pendiente,valor1 DECIMAL(12,2), 
       k,tipo_papel,scr_l,bandera,otrab,mes_calc,dia,numero,p,curr1,curr,
       fila1,fila,maximo,idx,idx1,idx2,idx3,numero_msg,j,m INTEGER,
       p_fechas,comp_fech,comp_fech1,fecha_c DATE,    
       tipo_1 CHAR(8),
       longitud_1 CHAR(16),
       descrip_campo6 CHAR(150),
       selec1,selec2,selec3,selec4,selec,criterio CHAR(1000)

DEFINE arr_ent ARRAY[600] OF CHAR(60)
DEFINE arr_pro ARRAY[600] OF CHAR(60)
DEFINE arr_sal ARRAY[600] OF CHAR(60)
DEFINE arr_tab ARRAY[200] OF CHAR(9)
DEFINE linea_no ARRAY[600] OF INTEGER 
END GLOBALS