125 lines
4.1 KiB
Plaintext
125 lines
4.1 KiB
Plaintext
#######################################################################
|
|
# 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
|