OT - ODBC de Cobol

1,025 views
Skip to first unread message

Miguel Canchas

unread,
Jan 25, 2012, 10:04:17 AM1/25/12
to publice...@googlegroups.com

Sres. Estoy buscando el odbc para cobol creo que es el RMC85 o algo por ahí….Necesito accesar a su información y mostrar reportes, esto lo hare con FoxyPreview .

 

Cualquier ayuda e información es bienvenida, ya que nunca trabaje con Cobol….

 

 

Gracias

 

MK

Juan Urraburu

unread,
Jan 25, 2012, 10:42:37 AM1/25/12
to Comunidad de Visual Foxpro en Español
Estimado Miguel,

Si necesitas acceder via ODBC a archivos RM/COBOL, el producto es
Relativity. Ambos productos son de Micro Focus. Relativity se licencia
por un lado el Relativity Designer para crear los catálogos, para lo
que necesitas algun programa fuente RM/COBOL y las definiciones de los
archivos que quieres acceder, y luego el Relativity DataManager o
DataServer ya sea que lo vayas a correr local o cliente servidor.

Saludos,

Juan Urraburu
ProRM

On Jan 25, 1:04 pm, "Miguel Canchas" <mcanc...@ximesa.com> wrote:
> Sres. Estoy buscando el odbc para cobol creo que es el RMC85 o algo por ahí....Necesito accesar a su información y mostrar reportes, esto lo hare con FoxyPreview .
>
> Cualquier ayuda e información es bienvenida, ya que nunca trabaje con Cobol....
>
> Gracias
>
> MK

Miguel Canchas

unread,
Jan 25, 2012, 10:56:12 AM1/25/12
to publice...@googlegroups.com
Gracias buscare por ese lado, estaba buscando el ACUODBC....no se que tal será.

MK

-----Mensaje original-----
De: publice...@googlegroups.com [mailto:publice...@googlegroups.com] En nombre de Juan Urraburu
Enviado el: miércoles, 25 de enero de 2012 10:43 a.m.
Para: Comunidad de Visual Foxpro en Español
Asunto: [vfp] Re: OT - ODBC de Cobol

Juan Urraburu

unread,
Jan 25, 2012, 10:56:39 AM1/25/12
to Comunidad de Visual Foxpro en Español
Miguel,

AcuODBC es para Acucobol, no sirve para RM/COBOL. Depende el COBOL que
uses, el driver o herramienta que debes aplicar.

Acucobol -> AcuODBC o AcuXDBC
RM/COBOL o Micro Focus Cobol -> Relativity

Saludos,

Juan Urraburu
ProRM

Miguel Canchas

unread,
Jan 25, 2012, 10:59:31 AM1/25/12
to publice...@googlegroups.com
Ok, entendido....

MK

-----Mensaje original-----
De: publice...@googlegroups.com [mailto:publice...@googlegroups.com] En nombre de Juan Urraburu

Enviado el: miércoles, 25 de enero de 2012 10:57 a.m.

Miguel Canchas

unread,
Jan 25, 2012, 12:15:53 PM1/25/12
to publice...@googlegroups.com
O me parece o estoy mal... no logro ubicar el bendito Relativiy.....

Por donde andará??


MK

-----Mensaje original-----
De: publice...@googlegroups.com [mailto:publice...@googlegroups.com] En nombre de Miguel Canchas
Enviado el: miércoles, 25 de enero de 2012 11:00 a.m.
Para: publice...@googlegroups.com
Asunto: RE: [vfp] Re: OT - ODBC de Cobol

Samuel SM-H

unread,
Jan 25, 2012, 12:17:23 PM1/25/12
to publice...@googlegroups.com
jaja seguro es de paga!!!!!, buscalo en TARINGA.com
jejejeje

Juan Urraburu

unread,
Jan 25, 2012, 12:23:55 PM1/25/12
to Comunidad de Visual Foxpro en Español
Aqui hay información del producto,

http://www.microfocus.com/downloads/relativity-152334.aspx

http://www.prorm.com/prorm_siteweb/pages/cobol/relativity.php

Relativity se obtiene a través de distribuidores de Micro Focus.

Saludos,

Juan Urraburu
ProRM

Irlandes 1960

unread,
Jan 25, 2012, 6:13:52 PM1/25/12
to publice...@googlegroups.com
Si no recuerdo mal (y son recuerdos de fines de los 80) en RM Cobol 85 (el ultimo que use) no tenes los diseños de los registros en el archivo en si, sino definidos dentro de los programas.
O sea, no es solo el tema de acceder al archivo, y poder abrirlo, sino saber como hacer para interpretarlo.
Es como si abrieras un TXT con un renglón por registro, con todas letras y números consecutivos, muy difícil de interpretar si no tenes la "plantilla" del diseño del registro.
Claro que puede ser que en una versión posterior esto pueda haber cambiado.
Suerte con la arqueología.

Fernando Reyes

unread,
Jan 26, 2012, 10:36:31 AM1/26/12
to BLOG FOX
Buenos Dias, yo programo en COBOL MICROFOCUS desde hace años, si necesitas ayuda con la interface en COBOL explicame que necesitas en concreto.

Saludos

Ing. Fernando Reyes

> Date: Wed, 25 Jan 2012 09:23:55 -0800
> Subject: [vfp] Re: OT - ODBC de Cobol
> From: juan.u...@gmail.com
> To: publice...@googlegroups.com

Miguel Canchas

unread,
Jan 26, 2012, 11:58:20 AM1/26/12
to publice...@googlegroups.com

Gracias Fernando.

 

Lo que necesito es accesar a las tablas de cobol y extraer información para unos reportes.

 

No se como hacerlo, nunca trabaje con cobol, crei que era sencillo ubicar un odbc y ver la info.. veo que no es asi…

 

 

MK

Alberto Trujillo

unread,
Apr 9, 2016, 1:54:20 AM4/9/16
to Comunidad de Visual Foxpro en Español, lufe...@hotmail.com
Señor fernando no se si aun se encuentre disponible, solo necesito saber como traer del catalogo que crea relativity a java o a algun gestor de base de datos, le agradeceria, mi correo es Alberto-T...@hotmail.com

francisco prieto

unread,
Apr 9, 2016, 6:18:38 AM4/9/16
to Comunidad de Visual Foxpro en Español, lufe...@hotmail.com
Alberto,

Estos post son viejos pero quizas te arrojen un poco de Luz... Todos están en Universal Thread en el foro Visual Foxpro

https://www.universalthread.com/Default.aspx

Para ver los mensajes tengo entendido que te tenes que registrar y una vez que ingresas con tu usuario sobre el margen superior izquierdo de la pantalla en el campo Message ID pones cada uno de los números que te paso a continuación.

Eso te va a llevar al mensaje que inicio el hilo. Al final del mensaje vas a ver una barra de herramientas con un botón que dice MAP. Presionalo y veras todos los mensajes de ese hilo para poder analizar cada una de las respuestas.

A continuación te hago un pequeño resumen, pero es bueno que vos lo analices.

El Message ID 833769 pregunta precisamente del driver ODBC y aunque leyendolo hay algunos datos no da cuenta precisamente de la pregunta. Ahora bien esa persona que pregunto es conocida mía y ya le envie un mail para saber como lo resolvió... Eso si si te fijas la pregunta la hizo en 2003 y quizás en la actualidad haya otras herramientas para resolverlo.

El Message ID 762419 habla de como transformar un computacional de Cobol a VFP. Tiene código
de VFP para probar y jugar un poco.

El Message ID 502801 habla de la conversión de archivos dat a VFP y recuerda algo muy importante
RMCobol es una variación de VSAM, de modo que quizás encontrando un driver de Vsam se pueda solucionar el inconveniente.
Fijate que precisamente en este ultimo link hace referencia al archivo snaoledb.dll y este archivo según el siguiente link es parte de Host Integration Server 2000 SDK

https://msdn.microsoft.com/en-us/library/ee252113%28v=bts.10%29.aspx

Nuevamente esta información es muy antigua, así que habrá que buscar el sdk mas reciente y de donde puede ser bajado

Saludos,

Pancho
Córdoba
Argentina

Luis la Romana

unread,
Apr 11, 2016, 11:37:17 PM4/11/16
to Comunidad de Visual Foxpro en Español, mcan...@ximesa.com
La info en Cobol es secuencial, nada de tablas, así que lo más cercano es crear un TXT desde RMCobol para exportar la info y luego darle append desde VFP.
Aqui un ejemplo que puse hace 13 años en NNTP de esa época.

---------------

Esta rutina se hizo para RMCobol-85 y se ejecutaba asi:
runcobol excli

Como es evidente debes conocer la estructura del archivo de información.
-------------------
   IDENTIFICATION DIVISION.
         PROGRAM-ID.       EXCLI
         AUTHOR.     JOSEPE
         DATE-WRITTEN.    ENE/95.
        *
        *     listado DE CLIENTES.
        *
         ENVIRONMENT DIVISION.
         CONFIGURATION SECTION.
         SOURCE-COMPUTER. TI-300.
         OBJECT-COMPUTER. TI-300.
         INPUT-OUTPUT SECTION.
         FILE-CONTROL.
             SELECT PRECLI
                    ASSIGN TO RANDOM, "PRECLI"
                    ORGANIZATION IS INDEXED
                    ACCESS MODE  IS DYNAMIC
                    RECORD KEY   IS CLI-KEY
             ALTERNATE RECORD KEY IS CLI-KEY1 WITH DUPLICATES.
             SELECT PREMAE1 ASSIGN TO RANDOM, "EXCLI.TXT"
                    ORGANIZATION IS LINE SEQUENTIAL.
         DATA DIVISION.
         FILE SECTION.
         COPY "PRECLI.FID".
         FD  PREMAE1
             LABEL RECORDS ARE STANDARD.
         01  REG-PREMAE1.
             03 CLI1-KEY1.
                05 CLI1-CLIENTE1     PIC X(02).
                05 CLI1-CLIENTE      PIC X(04).
             03 CLI1-NOMBRE          PIC X(25).
             03 CLI1-APELLIDO        PIC X(25).
             03 CLI1-DIRECCION       PIC X(55).
             03 CLI1-CIUDAD          PIC X(4).
             03 CLI1-TEL-CASA        PIC X(10).
             03 CLI1-CIP             PIC X(12).
             03 CLI1-EXTENDIDA       PIC X(15).
             03 CLI1-FCH-EXT.
              05 CLI1-FCH-EXTD       PIC X(02).
              05 CLI1-FCH-EXTF1      PIC X.
              05 CLI1-FCH-EXTM       PIC X(02).
              05 CLI1-FCH-EXTF2      PIC X.
              05 CLI1-FCH-EXTA       PIC X(02).
             03 CLI1-FIRMA-SE-LEE    PIC X(15).
             03 CLI1-EST-CIVIL       PIC X(01).
             03 CLI1-EDAD            PIC X(02).
             03 CLI1-FCH-NAC.
              05 CLI1-FCH-NACD       PIC X(02).
              05 CLI1-FCH-NACF1      PIC X.
              05 CLI1-FCH-NACM       PIC X(02).
              05 CLI1-FCH-NACF2      PIC X.
              05 CLI1-FCH-NACA       PIC X(02).
             03 CLI1-FCH-REG.
              05 CLI1-FCH-REGD       PIC X(02).
              05 CLI1-FCH-REGF1      PIC X.
              05 CLI1-FCH-REGM       PIC X(02).
              05 CLI1-FCH-REGF2      PIC X.
              05 CLI1-FCH-REGA       PIC X(02).
             03 CLI1-PROFESION       PIC X(15).
             03 CLI1-REGISTRO        PIC X(08).
             03 CLI1-SEXO            PIC X(01).
             03 CLI1-TRABAJO         PIC X(45).
             03 CLI1-DIR-TRA         PIC X(55).
             03 CLI1-CIU-TRA         PIC X(04).
             03 CLI1-TEL-TRA         PIC X(10).
             03 CLI1-SAL-TRA.
              05 CLI1-SAL-TRAE       PIC X(10).
              05 CLI1-SAL-TRAF       PIC X.
              05 CLI1-SAL-TRAD       PIC X(02).
             03 CLI1-SAL-ING.
              05 CLI1-SAL-INGE       PIC X(10).
              05 CLI1-SAL-INGF       PIC X.
              05 CLI1-SAL-INGD       PIC X(2).
             03 CLI1-LUG-COBRO       PIC X(1).

        *
         WORKING-STORAGE SECTION.
         01  VARIABLES.
             03 X     PIC 99.
             03 FECHA PIC 9(6).
             03 FECHAR REDEFINES FECHA.
                05 DIA PIC 99.
                05 MES PIC 99.
                05 ANO PIC 99.
             03 VALOR PIC 9(9)V99.
             03 VALORR REDEFINES VALOR.
                05 VAE PIC 9(9).
                05 VAD PIC 99.
             03 MTO-9 PIC 9(9)V99.
             03 PAGADO PIC 9(9)V99.
             03 MTO-0  PIC 9999.
         PROCEDURE DIVISION.
         MAIN SECTION.
         1.  OPEN INPUT PRECLI OUTPUT PREMAE1.
         2.  READ PRECLI NEXT RECORD AT END GO 9.
             MOVE LOW-VALUES  TO REG-PREMAE1.
             PERFORM WR-PRECLI.
             WRITE REG-PREMAE1.
             DISPLAY CLI-KEY.
             GO TO 2.
         9.  CLOSE PREMAE1 PRECLI.
             STOP RUN.
         WR-PRECLI SECTION.
         1.  MOVE CLI-KEY        TO CLI1-KEY1.
             MOVE CLI-NOMBRE     TO CLI1-NOMBRE.
             MOVE CLI-APELL      TO CLI1-APELLIDO.
             MOVE CLI-DIRECCION  TO CLI1-DIRECCION.
             MOVE CLI-CIUDAD     TO CLI1-CIUDAD.
             MOVE CLI-TELEFONO   TO CLI1-TEL-CASA.
             MOVE CLI-CEDULA     TO CLI1-CIP.
             MOVE CLI-EXTEND     TO CLI1-EXTENDIDA.
             MOVE CLI-FCH-CED TO FECHA.
             MOVE DIA TO CLI1-FCH-EXTD.
             MOVE MES TO CLI1-FCH-EXTM.
             MOVE ANO TO CLI1-FCH-EXTA.
             MOVE CLI-SE-LEE TO CLI1-FIRMA-SE-LEE.
             MOVE CLI-EST-CIV    TO CLI1-EST-CIVIL.
             MOVE CLI-EDAD       TO CLI1-EDAD.
             MOVE CLI-FCH-NAC TO FECHA.
             MOVE DIA TO CLI1-FCH-NACD.
             MOVE MES TO CLI1-FCH-NACM.
             MOVE ANO TO CLI1-FCH-NACA.
             MOVE CLI-FCH-REG TO FECHA.
             MOVE DIA TO CLI1-FCH-REGD.
             MOVE MES TO CLI1-FCH-REGM.
             MOVE ANO TO CLI1-FCH-REGA.
             MOVE CLI-PROFESION  TO CLI1-PROFESION.
             MOVE CLI-REGISTRO TO CLI1-REGISTRO.
             MOVE CLI-SEXO TO CLI1-SEXO.
             MOVE CLI-TRA-LUG    TO CLI1-TRABAJO.
             MOVE CLI-TRA-DIRECC TO CLI1-DIR-TRA .
             MOVE CLI-TRA-CIUDAD TO CLI1-CIU-TRA.
             MOVE CLI-TRA-TEL    TO CLI1-TEL-TRA.
             MOVE CLI-TRA-SAL TO VALOR.
             MOVE VAE TO CLI1-SAL-TRAE.
             MOVE VAD TO CLI1-SAL-TRAD.
             MOVE CLI-TRA-INGR TO VALOR.
             MOVE VAE TO CLI1-SAL-INGE.
             MOVE VAD TO CLI1-SAL-INGD.
             MOVE CLI-LUG-COBRO TO CLI1-LUG-COBRO.

         9.  EXIT.

integral

unread,
Apr 12, 2016, 2:32:10 PM4/12/16
to Comunidad de Visual Foxpro en Español, mcan...@ximesa.com

Estimado amigo MIGUEL :

Estudie COBOL halla por el año 1988 y en verdad fue el primer lenguaje de programación que aprendí.

Para el caso lo que se necesita es convertir el archivo DAT a TXT y de alli pasarlo a DBF

Hace años utilizaba una pequeño código que hacia eso y en aquella oportunidad lo trabajo con DBASE III PLUS

Recordar después de mucho tiempo el COBOL y ver un pequeño programa me trae muchos recuerdos...

Bueno sin mas preambulos te muestro una idea mas o menos de como resolverle aunque despues de algunos años quizas ya encontraste la solucion

APPEND FROM c:\10_attlog.dat DELIMITED WITH CHAR TAB        && Importar el Archivo Dat a mi tabla creada
BROWSE LAST     

Salludos

INTEGRAL

Miguel Canchas

unread,
Apr 12, 2016, 3:15:51 PM4/12/16
to integral, Comunidad de Visual Foxpro en Español

Gracias de todas maneras. Perdí el contrato porque no podía pasar la información en su momento. Y ellos no querían pagar (dizque) mucho.. hasta ahora siguen con el mismo sistema…

 

Si hay alguna otra cosa de seguro que te molestaré-.----

 

MK

Reply all
Reply to author
Forward
0 new messages