No puedo extraer datos de una base de datos antigua
 

Estimados compañeros, tengo un problema con la extracción de datos de una base de datos antigua. Su extensión es .fil y creo que es de cobol.

Alguien sabe como puedo acceder a los datos de ese archivo? Si lo abro a través de un block de notas los datos aparecen muy desordenados, sin un patrón que indique cuales son las columnas o las filas (espacios, comas o punto y coma) lo que impide exportarlos en excel o access.

Les dejo el siguiente enlace donde podrán obtener un ejemplo de archivo .fil por si quieren probar.

https://drive.google.com/file/d/0B86...ew?usp=sharing

La información corresponde a libros de una biblioteca.

Espero que puedan ayudarme.

Gracias.

Es posible que lo que ahí tengas sea un archivo de record.

Si es así, Para leerlo debes usar la estructura específica que corresponde al archivo.


En este artículo de Delphi Basics puedes leer la parte de Reading and writing to typed binary files

Mucho mas explicado en este otro artículo

Voy a probar, pero si alguien conoce un método más sencillo, es bienvenida la respuesta XD.

Claro, con este método puedo mostrar los datos como deben estar, el tema es obtenerlos y migrarlos a otra base más moderna. Existe algún gestor de base de datos que pueda interpretarlo con sus columnas y filas?

Así a la rápida con un editor de texto, el largo del registro es de 206 caracteres, terminando con una letra que debe ser algún tipo de estado. Lo demás es ir identificando los campos con su largo correspondiente.

Saludos.

Muy cierto, terminan en C o D (Deleted?). Y parece haber muchos registros en blanco. Pero es un poco confuso cuáles serían los campos. Algunos parecen claros: código, autor, editorial, etc. Pero hay datos que se "atraviesan" en algunas líneas o filas donde algún campo no empieza en la misma columna que en la mayoría de filas.

Ayudaría saber más del contexto de la base. ¿Se sabe cuáles son los campos?

En todo caso, no parece ser un archivo binario. Todos los caracteres lucen como ASCII.

LineComment Saludos

Lo ideal sería tener acceso al código fuente COBOL que procesa ese archivo y obtener la estructura del archivo de la FILE SECTION de la DATA DIVISION.

En general los programas COBOL lo que procesan son archivos de texto plano, no hay gestor de bases de datos (a menos que sea un AS400). Si se tiene el fuente se debe revisar en la FILE SECTION la FD (File description) del archivo.

Si no se tiene el fuente solo queda suponer cual es la estructura del archivo como ya lo han mencionado.

La verdad no encontré el encabezado de la base.

Les dejo el soft completo, yo no pude reproducirlo ya que corría bajo win98.

Estoy por armar una máquina virtual.

Sigo intentando.

https://drive.google.com/drive/folde...k0?usp=sharing

Ese fichero tiene 0 bytes, está vacío.

Vale, ahora veo que en algunos sí hay datos.

¿Vacío? ¿Cuál? El que puso primero no está vacío y tiene muchos registros.

LineComment Saludos

yo veo todo bien...

Por algún motivo no lo descargaba, se quedaba con cero bytes. Después descargó bien.

yo veo todo bien...

Si!. No es un archivo binario. Es solo texto.

Hice el ejercicio y pude pasarlo del archivo a un ClientDataSet pero tuve problemas para cargar todas las líneas.

Básicamente cargué el archivo en un StringList, luego a la línea que carga le voy dando manejo con los posibles tamaños de campos y eso lo voy subiendo al dataset.

Código Delphi [-]
procedure TForm1.SpeedButton1Click(Sender: TObject);
  const
    C_LENREG = 205;
  var
    lStFile : TFileName;
    lSlFile : TStrings;
    lStLineas : TStrings;
    lLinea : String;
begin
  Memo1.Lines.Clear;
  CdsTemp.EmptyDataSet;

  lStFile := StringReplace(ParamStr(0), '.exe', '.fil', [rfIgnoreCase, rfReplaceAll]);
  if not FileExists(lStFile) then
    Exit;

  TSpeedButton(Sender).Down := True;
  FLeer := True;

  lSlFile := TStringList.Create;
  lStLineas := TStringList.Create;
  try
    lSlFile.LoadFromFile(lStFile);
    lSlFile[0] := StringReplace(lSlFile[0], #0, ' ', [rfIgnoreCase, rfReplaceAll]);
    while (Length(lSlFile[0]) > 1) and FLeer do
    begin
      lLinea := Copy(lSlFile[0], 1, C_LENREG);
      lStLineas.Add(lLinea);
      Memo1.Lines.Add(lLinea);

      if CdsTemp.State in [dsEdit, dsInsert] then
        CdsTemp.Cancel;

      CdsTemp.Append;
      CdsTempField01.AsString := Copy(lLinea, 001, 06);
      CdsTempField02.AsString := Copy(lLinea, 007, 58);
      CdsTempField03.AsString := Copy(lLinea, 065, 25);
      CdsTempField04.AsString := Copy(lLinea, 090, 50);
      CdsTempField05.AsString := Copy(lLinea, 140, 18);
      CdsTempField06.AsString := Copy(lLinea, 158, 11);
      CdsTempField07.AsString := Copy(lLinea, 169, 10);
      CdsTempField08.AsString := Copy(lLinea, 179, 06);
      CdsTempField09.AsString := Copy(lLinea, 185, 20);
      CdsTempField10.AsString := Copy(lLinea, 205, 01);
      CdsTemp.Post;

      lSlFile[0] := Copy(lSlFile[0], Length(lLinea) + 1, Length(lSlFile[0]));

      Application.ProcessMessages;
      Sleep(250);
    end;
  finally
    FreeAndNil(lStLineas);
    FreeAndNil(lSlFile);
  end;
end;

Adjunto el fuente del ejercicio. Para usarlo debes modificar el nombre del archivo ".fil" a Project1.fil y colocarlo en el directorio del ejecutable. "Project1.fil"

Otra opción podría ser:
Coloca un TMemo en un form, agregas un boton y copias este código al evento del botón.

Código Delphi [-]
{          02 B1-FECHIN     PIC 9(6).
           02 B1-TITULO     PIC X(58).
           02 B1-AUTOR1     PIC X(25).
           02 B1-AUTOR2     PIC X(25).
           02 B1-AUTOR3     PIC X(25).
           02 B1-EDITOR     PIC X(18).
           02 B1-EDICION.
              03 B1-ANIO    PIC 9(4).
              03 B1-VEZ     PIC 9(2).
           02 B1-ASIGNATURA PIC X(15).
           02 B1-TOPO.
              03 B1-UB      PIC X(3).
              03 B1-EST     PIC X(3).
          02 B1-COLECCION   PIC X(20).
          02 B1-PROCEDENCIA PIC X.

}
procedure TForm1.Button1Click(Sender: TObject);
type
   TDatos=record
      Fecha:array[0..5] of AnsiChar;
      Titulo:array[0..57] of AnsiChar;
      Autor1:array[0..24] of AnsiChar;
      Autor2:array[0..24] of AnsiChar;
      Autor3:array[0..24] of AnsiChar;
      Editor:array[0..17] of AnsiChar;
      EdicionAnio:array[0..3] of AnsiChar;
      EdicionVez:array[0..1] of AnsiChar;
      Asignatura:array[0..14] of AnsiChar;
      TopoUB:array[0..2] of AnsiChar;
      TopoEst:array[0..2] of AnsiChar;
      Coleccion:array[0..19] of AnsiChar;
      Procedencia:AnsiChar;
   end;
var
  F: TFileStream;
  t:TDatos;
begin
     FillChar(t,SizeOf(t),0);

     Memo1.lines.BeginUpdate;

     F := TFileStream.Create('bibli01.fil', fmOpenRead);

     while F.Position < F.Size do
     begin
          F.Read(t, SizeOf(t));
          Memo1.Lines.Add(Format('%s|%s|%s|%s|%s|%s|%s|%s|%s|%s|%s|%s|%s|',
           [t.Fecha,t.Titulo,t.Autor1,t.Autor2,t.Autor3,t.Editor,t.EdicionAnio,t.EdicionVez,
           t.Asignatura,t.TopoUB,t.TopoEst,t.Coleccion,t.Procedencia]));
     end;

     F.Free;
     Memo1.lines.EndUpdate;
end;

Ojala te ayude en algo

Hombre, con cerca de 200 mensajes en los foros... ya sabes lo que tienes que hacer, por favor :)

Son unos capos chicos, llego a casa, pruebo y les cuento!!!

¿Esta es la descripción de la tabla? ¿En qué archivo la encontraste?

LineComment Saludos

Con el método de cloayza se lee muy bien el archivo.

Hace muchos años que no veía programas en Cobol...para mi fué una pesadilla aprender a programar en este lenguaje...Pero fue bueno recordar esos momentos...

A tu pregunta...
Los archivos fuentes son los *.CBL, miré algunos y por coincidencia los nombres de los archivos fuentes son muy parecidos a los archivos de datos...

Así que :
BIBLI001.CBL contiene esto...

Código Delphi [-]
 IDENTIFICATION DIVISION.
       PROGRAM-ID.                 BIBLI001.
       SECURITY.                   ABM DE LIBROS.
      *
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER.            PCI.
       OBJECT-COMPUTER.            PCI.
       SPECIAL-NAMES.
               DECIMAL-POINT IS COMMA.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.

           SELECT BIBLIO ASSIGN TO DISK,
                              "bibli01.fil" 
               ORGANIZATION IS RELATIVE
               ACCESS MODE IS dynamic
               RELATIVE IS B1-CLAVE.
...
DATA DIVISION.
       FILE SECTION.
             COPY "bibli01.cop".
             COPY "bibli02.cop".
             COPY "bibli03.cop".
             COPY "bibli04.cop".
             COPY "bibli07.cop".

El FILE SECTION es donde se hace la descripción de los registros de los archivos...

Bibli01.COP

Código Delphi [-]
 FD BIBLIO
           label record standard.
       01 B1-REG.
           02 B1-FECHIN     PIC 9(6).
           02 B1-TITULO     PIC X(58).
           02 B1-AUTOR1     PIC X(25).
           02 B1-AUTOR2     PIC X(25).
           02 B1-AUTOR3     PIC X(25).
           02 B1-EDITOR     PIC X(18).
           02 B1-EDICION.
              03 B1-ANIO    PIC 9(4).
              03 B1-VEZ     PIC 9(2).
           02 B1-ASIGNATURA PIC X(15).
           02 B1-TOPO.
              03 B1-UB      PIC X(3).
              03 B1-EST     PIC X(3).
          02 B1-COLECCION   PIC X(20).
          02 B1-PROCEDENCIA PIC X.

Y lo demás fué cantar...

Bueeeno, si tú lo dices :D

Gracias por la explicación :)

LineComment Saludos

De cuál versión de delphi es ese proyecto?

Me tiraba un error, pero ya lo solucioné. Estoy viendo como funciona.

Delphi 5 .

Claro, lo abrí en un delphi 7.

Lee re bien el archivo.fil lo que si, me exporta un xml pero no lo puedo lee, me tira un error en excel, en notepad lo leo sin problemas, en breve veo cual puede ser el problema.

Ese XML es el TClientDataSet guardado en XML. No se si Excel lo lea bien.

Para llevarlo a la DB relacional solo debes conectar el ClientDataSet a tu motor de preferencia.