Importar datos de Cobol a Access - VB-MUNDO

oskym · #1 (**permalink**) 25-08-2005, 01:55:24

Necesitaré proximamente rehacer un viejo sistema basado en Cobol bajo D.O.S. y se me solicita recuperar sus datos.

No recuerdo bien la estructura de datos de Cobol, y no sé siquiera si hay aplicaciones de exportación de datos desde Cobol para importarlos a Access.

Alguien tiene alguna idea de por donde empezar?

Gracias

Saludos

albmartin · #2 (**permalink**) 25-08-2005, 05:49:44

En la empresa donde trabajo recientemente hemos migrado una aplicación de NetExpress (Cobol avanzado) a SQL, lo que hemos hecho han sido crear ficheros planos de texto separados por tabuladores con los campos que necesitabamos para la migración, los ficheros los hemos exportado a Excel para poder formatea un poco los datos que nos interesen (fechas, cadenas, etc...), y una vez que estan bien, con un copiar y pegar los pasamos al ACCESS.

Un saludo.

Alella · #3 (**permalink**) 30-08-2005, 06:40:07

Hola, que tal.

A mi me sucederá lo mismo en breve. ¿Que solución tuvisteis que hacer con los campos comprimidos?

CAMPO PIC 9(8) COMP-3

¿Cómo lo pasasteis a Excel?

Muchas gracias.

albmartin · #4 (**permalink**) 30-08-2005, 07:05:21

La idea es la siguiente para la tabla de cobol que quieras migrar te creas un fichero de texto, y como estas leyendo los datos con cobol y lo que haces es plasmarlo en una variable sin comprimir, te pongo un ejemplo para que lo veas:

Código:

       FD PEDIDOVENTALINEAXLS LABEL RECORD STANDARD RECORDING F.
           01 REGISTROXLS1.
               02 DATOS-SXLS1 PIC X(1500).

       01 REGISTRO-SALIDA1.
           02 IDLINEAPEDIDO                    PIC 9(4).
           02 FILLER                           PIC X VALUE X"09".
           02 EMBALAJE                         PIC Z(6)9,9(6).

este es el campo que esta comprimido dentro de la definición de datos.
           02 PACKAGING-COST-PRD   PIC 9(5)V9(6) COMP-3.

dentro del programa lo que se hace es move el valor del campo comprimido a la varible formateda
       MOVE PACKAGING-COST-PRD TO EMBALAJE

Y luego se escribe en el registro plano los datos.
       WRITE REGISTROXLS1 FROM REGISTRO-SALIDA1 END-WRITE

Espero haberme explicado, un saludo.

Alella · #5 (**permalink**) 30-08-2005, 07:10:16

Hola, que tal.

Gracias por la información. Me la guardo que seguro que me hará mucha falta dentro de poco.

imported_chiaravel · #6 (**permalink**) 30-08-2005, 13:09:10

Mientras tengas el compilador y el RunTime no tendrás problemas en exportarlo a TXT, pero si solo tienes los archivos COBOL.... hummmm ESTAS EN PROBLEMAS !!!

Un Abrazo

guarri1 · #7 (**permalink**) 31-08-2005, 14:33:46

apoyo lo que comenta chiaravel, para poder generar los ficheros de texto plano, vas a necesitar el compilador de cobol, para generar desde un pograma fuente .cbl el .cob que te ayude en el traslado.
Si es que lo tienes yo te puedo facilitar algunos ejemplos, que yo ya he tenido que hacer para crear bases de datos.
saludos