Cobol Foro

Cobol Foro (https://www.cobolforo.es/index.php)
-   PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)
-   -   [Duda] Como insertar un programa C en POWER COBOL 9 (https://www.cobolforo.es/showthread.php?t=605)

FabioYeyo 17 de abril de 2017 22:59
Como insertar un programa C en POWER COBOL 9
 
Amigos.

No se como insertar un programa C en POWER COBOL 9.

Saludos

Kuk 17 de abril de 2017 23:58
FabioYeyo, no se puede hacer lo que dices porque PowerCOBOL es un compilador de COBOL y no de C. En este caso lo que tienes que haces es compilar tu programa C en un entorno de C (sea Dev C++, Visual C++, C++ Builder o cualquier otro) y linkearlo en una DLL exportando la función que necesitas. Luego desde PowerCOBOL llamar dicha función.

Si no sabes cómo compilar el programa C y crear la DLL correspondiente, haz una pregunta en este sub-foro: C/C++ - COBOL Foro

Para llamar tu función C cuando crees la DLL, debes hacerlo de la siguiente manera: [Aporte] CALL de cualquier DLL sin *.LIB ni "LoadLibrary" - COBOL Foro

FabioYeyo 19 de abril de 2017 17:24
Kuk.

Estoy de acuerdo contigo en que POWER COBOL es un compilador de Cobol y no de C lo que pasa es que no me supe explicar bien mi problema es que hice un .obj de el pograma C y cuando inserte el .obj en PowerCobol me da error pense que podia solucionarlo de esta forma.

Gracias

Kuk 19 de abril de 2017 17:46
FabioYeyo, en teoría se puede añadir archivos objeto en un proyecto de PowerCOBOL. Haz un pantallazo del error que te da y ponlo aquí.

FabioYeyo 19 de abril de 2017 18:15
Kuk.

El error que me da es el siguiente.
DES.obj : fatal error LNK1123:failure during conversion to COFF: file invalid o corrupt

Gracias.

---------- Post añadido : 16:15 ---------- Post anterior : 16:14 ----------

Kuk.

El error lo da en el momento fe hacer el link.
gracias.

Kuk 19 de abril de 2017 18:23
1 Archivos Adjunto(s)
FabioYeyo, parece ser problema del LINK incremental.

Intenta haciendo click con el botón derecho en el módulo donde incluyes el OBJ (sea EXE o DLL) y en la pestaña LINK le pones la opción del pantallazo que te pongo.

FabioYeyo 19 de abril de 2017 18:29
1 Archivos Adjunto(s)
Kuk.

Sigue dando el mismo error.

Gracias.

Aqui te envio el programa fuente en C y el obj tengo temor de que algo este mal no soy especialista en lenguaje C

Roberto.

Kuk 19 de abril de 2017 18:53
FabioYeyo, a mi tampoco me funciona con tu OBJ...

Oye, nunca he visto esta sintaxis:

Código CPP:
  1. /**********************************************************************/
  2. /*       pos(s,c) donne la premiere occurence du caractere c          */
  3. /*                dans la chaine de caracteres s                      */
  4. /**********************************************************************/
  5.  
  6. UCHAR pos(s,c)
  7. UCHAR s[];
  8. UCHAR c;
  9. {
  10.   UCHAR i;
  11.  
  12.   i=0;
  13.   while ((s[i] != c) && (s[i] != '\0') && (i<255))
  14.   {
  15.     i++;
  16.   }
  17.   return(i);
  18. }

O sea, declarando una función con 2 parámetros sin indicar su tipo, y luego justo debajo declarar dichos campos... De hecho, a mi ni me compila sin modificarlo en:

Código CPP:
  1. /**********************************************************************/
  2. /*       pos(s,c) donne la premiere occurence du caractere c          */
  3. /*                dans la chaine de caracteres s                      */
  4. /**********************************************************************/
  5.  
  6. UCHAR pos(UCHAR s[], UCHAR c)
  7. {
  8.   UCHAR i;
  9.  
  10.   i=0;
  11.   while ((s[i] != c) && (s[i] != '\0') && (i<255))
  12.   {
  13.     i++;
  14.   }
  15.   return(i);
  16. }

¿Con qué compilador lo has compilado (y obtenido el OBJ)?

FabioYeyo 19 de abril de 2017 21:21
Kuk.

El obj fue compilado con C standard pero en Unix Trust 64 lo que pasa es que yo lo estoy utilizando con Micro Focus Cobol/2 que es una version bastante vieja de Cobol y que solo funciona sobre DOS con esta version de cobol hago el LINK y funciona perfectamente solo que ahora queria mejorar la interface con el ususario utiliazando POWER COBOL 9 pues no sabes la batalla que tengo contra el resto de mis colegas soy el unico que programa en Cobol claro ellos son mucho mas jovenes pero les he demostrado que el POWER COBOL es una buena herramienta de programacion.

Kuk 19 de abril de 2017 21:25
FabioYeyo, en este caso el formato puede diferir, a no ser que la compilación se haya hecho con un compilador cross-platform, pero teniendo en cuenta la antigüedad (y además siendo UNIX y no Linux) estoy seguro que no es el caso. Además, siendo compiladores antiguos, puede que estemos hablando incluso de un objeto de 16 bits.

Lo que te aconsejo en este caso es, sea intentar recompilarlo en un entorno de Windows (haciendo las modificaciones necesarias para que compile) e intentar linkear el nuevo OBJ, sea crear una DLL en Windows exportando la función necesaria y llamarla así.

Y es verdad, los jovenes (a los cuales pertenezco yo también aún, pero no es mi caso) consideran a COBOL como algo anticuado, pero no saben nada de él y es por eso, se basan en rumores y frases "célebres" como la de Dijkstra:

Cita:
The use of COBOL cripples the mind; its teaching should, therefore, be regarded as a criminal offense.
:D :D :D

Edsger W. Dijkstra - Wikiquote

Kuk 20 de abril de 2017 10:08
1 Archivos Adjunto(s)
FabioYeyo, toma te he creado la DLL para Windows.

Para poder llamarla desde PowerCOBOL tienes hacer como se dice aquí: [Aporte] CALL de cualquier DLL sin *.LIB ni "LoadLibrary" - COBOL Foro

La sintaxis de llamada a esta función será:

Código COBOL:
  1.  WORKING-STORAGE SECTION.
  2.  01  WS-FunctA      PIC X(250).
  3.  01  WS-Format      PIC X(250).
  4.  01  WS-PlainText   PIC X(250).
  5.  01  WS-Key         PIC X(250).
  6.  01  WS-CipherText  PIC X(250).
  7.  01  RESP           PIC S9(9) COMP-5.
  8.  
  9.  01  DES            PIC X(3) VALUE "DES".
  10.  PROCEDURE DIVISION.
  11.      
  12.      CALL DES WITH STDCALL USING WS-FunctA
  13.                                  WS-Format
  14.                                  WS-PlainText
  15.                                  WS-Key
  16.                                  WS-CipherText
  17.                            RETURNING RESP


La franja horaria es GMT +2. Ahora son las 16:21.

Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.