Cobol + Python

**Fito** · 19.09.2026 13:19

Hola Amigos:

Hay alguna menera de trabajar con PowerCobol y Python que no sea correr por linea de comando y leer un resultado en un txt?

Algo mas tipo funcion u ocx.

Saludos

Fito

Jorgeanna · 25.01.2026 23:59

Quick Start to Server side COM and Python

ayuda para generar un servidor com para utiliza como interface en powercobol

**Fito** · 19.09.2026 13:19

Hola Jorge:

Gracias, me voy a poner a ver eso, a ver si entiendo algo...

Saludos...

Fito..

Jorgeanna · 25.01.2026 23:59

Por si ayuda en algo, te paso un script, que llamado de powercobol, devuelve el resultado de una operacion aritmetica utilizando ROUND_HALF_EVEN para el resultado, y otra que llama y ejecuta un link web, nada que extraordinario pero que te facilitara ver la mecanica de llamadas y respuestas via COM, tenia mas funciones que entregaban diferentes resultados, pero para mejor analisis las exclui y veas que no es dificil interacturar desde powercobol.

Código PYTHON:

import win32com.client as wc
import win32com.server.register
import time
import sys
from decimal import *
import os
import winreg
import pythoncom
 
class MODULOSCOM:
    _public_methods_ = ['Calculo', 'Navegador']
    _reg_progid_ = "MODULOS.COM"
    _reg_clsid_ = "{80317A85-F824-45CD-82AC-3B3546C359EE}"
    _reg_desc_ = "Servidor COM Python Para PowerVISUAL"
 
    def Navegador(self, Texto):
        import webbrowser
        webbrowser.open(Texto)
        return True
 
    def Calculo(self, NumeroA, NumeroB, Operador, CantidadDecimales=2):
        if type(NumeroA) != Decimal:
            try:
                NumeroA = Decimal(str(NumeroA))
            except:
                return 0
        if type(NumeroB) != Decimal:
            try:
                NumeroB = Decimal(str(NumeroB))
            except:
                return 0
 
        if Operador == '+':
            Operacion = NumeroA + NumeroB
        elif Operador == '-':
            Operacion = NumeroA - NumeroB
        elif Operador == '*':
            Operacion = NumeroA * NumeroB
        elif Operador == '/':
            try:
                Operacion = Decimal(str(NumeroA)) / Decimal(NumeroB)
            except:
                return 0
 
        ResultadoPrevio = Decimal(str(Operacion))
        Resultado = ResultadoPrevio.quantize(Decimal('1') / Decimal('10') ** Decimal(str(CantidadDecimales)),
                                             rounding=ROUND_HALF_EVEN)
 
        return Resultado
 
def remove_registry_entry(clsid):
    try:
        reg_key = winreg.OpenKey(winreg.HKEY_CLASSES_ROOT, f"CLSID\\{clsid}", 0, winreg.KEY_SET_VALUE)
        winreg.DeleteKey(reg_key, "")
        print(f"Clave de registro de {clsid} eliminada.")
        winreg.CloseKey(reg_key)
    except Exception as e:
        print(f"Error al eliminar la clave de registro: {e}")
 
def check_registry_clsid(clsid):
    try:
        reg_key = winreg.OpenKey(winreg.HKEY_CLASSES_ROOT, f"CLSID\\{clsid}")
        winreg.CloseKey(reg_key)
        return True
    except FileNotFoundError:
        return False
 
if __name__ == "__main__":
    if len(sys.argv) > 1 and sys.argv[1].lower() == "register":
        # Registra el servidor COM
        win32com.server.register.UseCommandLine(MODULOSCOM)
        print("Servidor COM registrado.")
    elif len(sys.argv) > 1 and sys.argv[1].lower() == "unregister":
        try:
            print("Desregistrando el servidor COM...")
 
            # Intentamos desregistrar usando UseCommandLine
            win32com.server.register.UseCommandLine(MODULOSCOM, unregister=True)
            print("Desregistro usando UseCommandLine completado.")
 
            # Ahora eliminamos manualmente la clave del registro
            remove_registry_entry(MODULOSCOM._reg_clsid_)
 
            # Verificamos si la clave ha sido eliminada
            if not check_registry_clsid(MODULOSCOM._reg_clsid_):
                print("Servidor COM desregistrado correctamente.")
            else:
                print("El servidor COM sigue registrado.")
 
            # Liberar las instancias COM si están en memoria
            pythoncom.CoUninitialize()
            print("Instancias COM liberadas.")
 
        except Exception as e:
            print(f"Error al desregistrar el servidor COM: {e}")
    else:
        print("Usar 'register' o 'unregister' como argumento.")

desde POWERCOBOL

Código COBOL:

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01 Objeto      pic x(14) value "MODULOS.COM".
 01 ModulosCom      object reference COM.
 01 NumeroA     Pic X(15).
 01 NumeroB     Pic X(15).
 01 Operador        Pic X.
 01 Resultado       Pic X(15).
 PROCEDURE       DIVISION.
     invoke COM "CREATE-OBJECT" using Objeto returning ModulosCom. *> creo el objeto
     
     move "Text" OF CmText3 to NumeroA
     move "Text" OF CmText5 to NumeroB
     move "Text" OF CmText4 to Operador
     invoke ModulosCom "Calculo" using NumeroA NumeroB Operador returning Resultado
     
     move Resultado to "Caption" OF CmStatic6
     move Resultado to "Text" OF pasartexto
*    INVOKE pow-self "DisplayMessage" USING  resultado
     
     set ModulosCom to null

LLAMADO AL NAVEGADOR VIA COM

Código COBOL:

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01 Objeto      pic x(14) value "MODULOS.COM".
 01 ModulosCom      object reference COM.
 01 cuit                  pic x(11).
 01 Resultado       Pic X(15).
 01 Texto                 pic x(100).
 PROCEDURE       DIVISION.
     invoke COM "CREATE-OBJECT" using Objeto returning ModulosCom. *> creo el objeto
     move spaces to texto
     move "Text" OF dire to texto
      invoke ModulosCom "Navegador" using texto returning Resultado
     
     set ModulosCom to null

Espero que te sea util la información, no hay mucho en la web que nos pueda ayudar.
Suerte.

Kuk · 19.09.2026 20:11

Comentario de Moderador

@Jorgeanna, usa los botones de resalto de sintaxis

Muy interesante tu aportación.

Según entiendo, hay que ejecutar primero el código Python que llama al Registro de Windows para agregar la referencia a las funciones definidas en el mismo.
Luego vía COM, PowerCOBOL puede acceder a estas funciones puesto que existen declaradas en el Registro de Windows.
¿Es así?

Jorgeanna · 25.01.2026 23:59

Citación del post de Kuk

❞

Muy interesante tu aportación.

Según entiendo, hay que ejecutar primero el código Python que llama al Registro de Windows para agregar la referencia a las funciones definidas en el mismo.
Luego vía COM, PowerCOBOL puede acceder a estas funciones puesto que existen declaradas en el Registro de Windows.
¿Es así?

Es correcto el analisis. Desde Cobol es muy simple pasa datos y la funcion en python la ejecuta y devuelve los resultados.
Todo lo que se te ocurra que puedas llegar a utilizar a traves de un script python se puede ejecutar desde nuestro lenguaje y ademas si lo convertimos a exe o dll, se registra una vez cuando se instala la app y luego solo solo se llama desde nuestra app.
Actua como interface entre ambos lenguajes y nos exime de utilizar archivos de texto para comunicar entre ambos lenguajes.
Lo tengo implementado en diversas necesidades para cubrir algunas funciones que no puedo hacer en cobol y es genial ya que esto amplia las posibilidades de no quedarnos estancados en el tiempo.
Como siempre digo, la imaginacion es el limite!!!
saludos cordiales

**Eslopes** · 20.09.2026 09:15

Adjunto un video del código que creé para que GNU Cobol ejecute Python, pasando datos de un informe Cobol al LLM y permitiendo hacer preguntas sobre el contenido.

El video (

vBulletin [media]

) muestra el código en funcionamiento. Todavía estoy evaluando el rendimiento de LLaMa 3 ejecutándose localmente. Mi equipo es un MacBook Pro M3, así que el rendimiento en una estación Windows típica (8 núcleos, 8 GB de RAM) probablemente será deficiente.

Otra posibilidad real es usar un servicio en la nube como Amazon Bedrock. De esta forma, tendríamos acceso a decenas de Foundation Models (FM), con un rendimiento enorme y aptos para producción. El punto es que, usando solo prompt engineering básico, es posible lograr cosas extraordinarias. En el caso del ejemplo del video, estoy pasando un informe generado por un programa COBOL y el LLM interpreta los datos y genera respuestas sobre los mismos, por ejemplo:
(Esta vez cambié el prompt para forzar las respuestas en español.)

Código:

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

How can I help you?
Muéstre los 10 clientes más grandes, listando nombre y ventas hasta la fecha actual.

¡Claro! Aquí te presento los 10 mayores clientes según el informe:

1. **CORAL2INDIA FINANCE** con ventas de **57,481.45**
2. **TATA CONSUMER CO.** con ventas de **57,481.45**
3. **CORAL1INDIA FINANCE.** con ventas de **47,481.45**
4. **SENTIALS LOCAL PVT** con ventas de **37,481.45**
5. **ZINTEC PRVIATE LTD** con ventas de **27,481.45**
6. **TATA COFFEE PRIVATE.** con ventas de **27,483.45**
7. **INFO MANGEMENT CO.** con ventas de **17,481.45**
8. **COAL INDIA PVT LTD** con ventas de **17,481.45**
9. **GENERAL SERVICES CO.** con ventas de **11,444.00**
10. **DAUPHIN DEPOSIT BANK** con ventas de **14,099.00**

Espero que esto te ayude. ¡Si necesitas algo más, no dudes en preguntar!
---------------------------------------------------------------------------------------------

¡Las posibilidades son infinitas!]

fastpho · 21.08.2026 18:08

✅ *Interpolaridad de Python con PowerCobol*
ℹEjemplo de geolocalizacion usando la api de Nominatim
para procesar enviando direccion para obtener los datos
y genera un archivo .csv

Gracias a @@Jorgeanna,

Código COBOL:

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01 ObjetoGenerico   pic x(21) value "LocPyCOM.elsCOMObject".
 01 URLCom           object reference COM.
 01 TextoDireccion   pic x(100).
 01 ResultadoUrl     pic x(100).
 
 01 Numero           pic s9(9) comp-5.
 
 
 *>Geolocalizacion
 01 ResultadoGeol    pic x(100).
 01 valorEstado      pic x(5).
 01 valorLatitud.
     03 v-Lat        pic x(15).
 01 valorLongitud.
     03 v-Lon        pic x(15).
     
 01 Tiempo           pic s9(9) comp-5.
 01 Url              pic x(512).
 01 url-maps         pic x(34) value "https://www.google.com/maps/place/".
 01 returnvalue      pic s9(9) comp-5.
 01 lang             pic x(3) value "esp".
 PROCEDURE       DIVISION.
     *> Objeto Creo
     invoke COM "CREATE-OBJECT" using ObjetoGenerico returning URLCom. *> creo el objeto     
     
     if URLCom = NULL
              display "ERROR: No se pudo crear objeto URLCom COM"
              exit program
     else 
              display "OK: se pudo crear objeto URLCom COM"     
     end-if.
     
     *> Set Atributo numero cliente
     move 530 to Numero.
 
     invoke URLCom "setValue" using Numero returning ResultadoUrl. *>Metodo.
*     display ResultadoUrl.
     
*    *> Get Atributo numero cliente
     move zeros to Numero.
     invoke URLCom "getValue" returning Numero.
     display "Retorno getValue:" , Numero.
     
     
     *> Metodo Geola
     move "Text" OF CmText-DIREC to TextoDireccion.
     move spaces                 to ResultadoGeol.
     invoke URLCom "CrearLocalizacion" using TextoDireccion returning ResultadoGeol. *>Metodo.
     display "ResultadoGeol:" , ResultadoGeol.
     unstring ResultadoGeol delimited by "|" into valorEstado valorLatitud  valorLongitud
     end-unstring.
 
*    CALL "Sleep"        WITH STDCALL USING  BY VALUE Tiempo.     
 
     display "Estado:" , valorEstado.
     display "LAtitud:" , v-Lat.
     display "LOngitud:" , v-Lon.
     
*muestro valores
     move valorLatitud  to "Text" OF CmText-Latitud.
     
     move valorLongitud to "Text" OF CmText-Longitud.
     
     move valorEstado   to "Text" OF CmText-ESTADO.
 
 
*Muestra Maps
 
     string  
         url-maps   delimited by spaces 
         
         valorLatitud delimited by spaces
         
         ","           delimited by spaces 
         valorLongitud delimited by spaces
         
         into Url
     end-string.
     display Url.
     MOVE Url TO "Text" OF CmText-URL.
 
 
*Rutina OrdoWebView       
*    INVOKE OrdoWebView1 "About".
     MOVE POW-TRUE TO "Anchor" OF OrdoWebView1.
     MOVE "https://www.google.com/" TO "HomeURL" OF OrdoWebView1.
     MOVE Url TO "HomeURL" OF OrdoWebView1.
    
     *> Metodo url
     move spaces                 to ResultadoUrl.
     move Url                    to TextoDireccion.
     invoke URLCom "url" using TextoDireccion returning ResultadoUrl. *>Metodo.
 
     
     MOVE 2 to "SearchEngine" OF OrdoWebView1. *>Google.
     INVOKE OrdoWebView1 "Init" USING Lang.
     move 0 to "MousePointer" OF pow-self.  
     
 
*final.
     set URLCom to NULL.

Código PYTHON:

#Fecha 08-09-2025
#Programa:elsisloc.py
#para ejectuar ambiente desarrollo : python elsisloc.py --register o python elsisloc.py --unregister 
 
 
# Método 1: Eliminar claves del registro manualmente
#reg delete "HKEY_CLASSES_ROOT\LocPyCOM.elsCOMObject" /f
#reg delete "HKEY_CLASSES_ROOT\LocPyCOM.elsCOMObject.1" /f
#reg delete "HKEY_CLASSES_ROOT\CLSID\{fc6bf508-392e-45e9-bd6e-44943fcb216f}" /f
 
import pythoncom
import win32com.server.register
from win32com.server.exception import COMException
import ctypes 
import csv 
import os 
import sys
import time
from geopy.geocoders import Nominatim
 
# Configuración
user_agent = "mi_aplicacion_geolocalizacion_v1"
timeout = 10
max_retries = 3
retry_delay = 1
 
# Archivo de salida - usar ruta absoluta para evitar problemas con .exe
if getattr(sys, 'frozen', False):
    # Si estamos en un ejecutable PyInstaller
    base_path = os.path.dirname(sys.executable)
else:
    # Si estamos ejecutando desde Python
    base_path = os.path.dirname(os.path.abspath(__file__))
output_file = os.path.join(base_path, "coordenadas.csv")
 
# Geolocalizador (mover a función para evitar problemas de inicialización)
def get_geolocator():
    return Nominatim(user_agent=user_agent, timeout=timeout)
 
class Controller:
   
   _public_methods_ = ['setValue', 'getValue','url','CrearLocalizacion'] 
   _reg_progid_ = "LocPyCOM.elsCOMObject"
   _reg_verprogid_ = "LocPyCOM.elsCOMObject.1"
   _reg_desc_ = "Python Test COM Servicio"
   _reg_class_spec_ = "elsisloc.Controller"   
   _reg_clsid_ = "{fc6bf508-392e-45e9-bd6e-44943fcb216f}"
 
   def __init__(self):
      """Constructor de la clase"""
      print("Servidor COM correctamente")
      self.value = 1
      # Inicializar el archivo CSV
      self.inicializar_archivo_csv()
 
 
   def inicializar_archivo_csv(self):
        """Inicializa el archivo CSV si no existe"""
        try:
            if not os.path.exists(output_file):
                with open(output_file, "w", newline="", encoding='utf-8') as csvfile:
                    writer = csv.writer(csvfile)
                    writer.writerow(["Cliente" , "Dirección", "Latitud", "Longitud", "Estado","Timestamp"])
        except Exception as e:
            print(f"Error al inicializar CSV: {str(e)}")
 
   def CrearLocalizacion(self, direccion):
        """
        Procesa una sola dirección y la geocodifica
        Args:
            direccion (str): La dirección a geocodificar
        Returns:
            str: Resultado del proceso o mensaje de error
        """
        try:
            # Validar que se proporcione la dirección
            if not direccion or direccion.strip() == "":
                return "ERROR: La dirección no puede estar vacía"
            
            direccion = direccion.strip()
            print(f"Procesando dirección: {direccion}")
            
            latitud, longitud = self.geocodificar(direccion)
            
            if latitud and longitud:
                resultado = f"Dirección: {direccion}, Latitud: {latitud}, Longitud: {longitud}"
                print(resultado)
                self.guardar_resultado(direccion, latitud, longitud, "OK")
                return f"OK|{latitud}|{longitud}"
            else:
                error_msg = f"Error al geocodificar la dirección: {direccion}"
                print(error_msg)
                self.guardar_resultado(direccion, "", "", "ERROR")
                return f"ERROR|No se pudo geocodificar la dirección"
            
        except Exception as e:
            error_msg = f"ERROR: {str(e)}"
            print(error_msg)
            return error_msg            
   def geocodificar(self, direccion):
        """
        Geocodifica una dirección con reintentos
        """
        geolocator = get_geolocator()
        
        for attempt in range(max_retries):
            try:
                print(f"Intento {attempt + 1} para: {direccion}")
                location = geolocator.geocode(direccion)
                
                if location:
                    return location.latitude, location.longitude
                else:
                    print(f"No se encontraron resultados para: {direccion}")
                    return None, None
                    
            except Exception as e:
                print(f"Error en intento {attempt + 1}: {str(e)}")
                if attempt < max_retries - 1:
                    time.sleep(retry_delay * (attempt + 1))  # Aumentar delay progresivamente
                else:
                    print(f"Falló después de {max_retries} intentos")
                    return None, None
 
   def guardar_resultado(self, direccion, latitud, longitud, estado):
        """
        Guarda el resultado en el archivo CSV
        """
        try:
            with open(output_file, "a", newline="", encoding='utf-8') as csvfile:
                writer = csv.writer(csvfile)
                timestamp = time.strftime("%Y-%m-%d %H:%M:%S")
                nrocliente = self.value 
                writer.writerow([nrocliente,direccion, latitud, longitud, estado, timestamp])
        except Exception as e:
            print(f"Error al guardar en CSV: {str(e)}")
 
   def setValue(self, new_value):
      """
      Set Numero del cliente
      """
      try:
         self.value = new_value
         return
      except Exception as e:
         raise COMException(f"Error en el valor enviado: {str(e)}")
 
   def getValue(self):
      """
      Get Numero del cliente
      """
      try:
         return self.value if self.value is not None else "Value not set"
      except Exception as e:
         raise COMException(f"Error al obtener valor: {str(e)}")
      
   def url(self, Texto):
      try:
         import webbrowser
         webbrowser.open(Texto)
         return Texto
      
      except Exception as e:
         raise COMException(f"Error navegador: {str(e)}")      
 
def show_message(message, title="Informacion"):
   ctypes.windll.user32.MessageBoxW(0, message, title, 0x40)
 
def DllRegisterServer(silent=False):
   try:
      pythoncom.CoInitialize()
      win32com.server.register.UseCommandLine(Controller)
      message = "Objeto registrado exitosamente."
   except Exception as e:
      message = f"Error al registrar el objeto: {e}"
   finally:
      pythoncom.CoUninitialize()
   if not silent:
      show_message(message, "Objeto registrado")
 
def DllUnregisterServer(silent=False):
   try:
      pythoncom.CoInitialize()
      win32com.server.register.UnregisterServer(
         Controller._reg_clsid_,
         Controller._reg_progid_
      )
      message = "Objeto anulado exitosamente."
   except Exception as e:
      message = f"Error al anular el registro del objeto: {e}"
   finally:
      pythoncom.CoUninitialize()
   if not silent:
      show_message(message, "Objeto no registrado")
 
if __name__ == '__main__':
   import sys
   silent = False
   if len(sys.argv) > 1:
      if len(sys.argv) > 2:   
         if sys.argv[2] == '--silent':
            silent = True
      if sys.argv[1] == '--register':
         DllRegisterServer(silent)
      elif sys.argv[1] == '--unregister':
         DllUnregisterServer(silent)
      elif "/Automate" in sys.argv:
         import win32com.server.localserver
         win32com.server.localserver.serve([Controller._reg_clsid_])
   else:
         show_message("Use:\nelsisloc.exe --register\nelsisloc.exe --unregister\n--silent: Silent mode", "Ayuda")

Saludos ...

Jorgeanna · 25.01.2026 23:59

Muy bueno, felicitaciones por implementar algo que en el futuro le encontraras multiples uso.

Ajusta el siguiente setup.py a tus necesidades, descarga python 2.7 e instala py2exe, deberas correr: python setup.py py2exe
esto te generara una carpeta dist y en ella vas a encontrar su script xxxx.exe y xxx.dll, te recomiendo por rapidez trabajar con los dll y llamar al mismo como cualquier otra llamada a un objeto com.
Te digo descargues y pruebes con python 2.7 porque el setup.py que te paso esta para py2exe y se complica bastante, por lo menos a mi, ejecutarlo en veriones de la 3.11 en adelante.

Con perseverancia y trabajo todo se logra, adelante!!!.

script: setup.ini
Se puede convertir el ejemplo que puse anteriormente y utilizarlo desde powercobol

Código:

# Created on 02/2021
# @author: fastpho

from distutils.core import setup
import py2exe
import sys 
sys.argv.append('py2exe')
sys.path.append('C:\\WINDOWS\\WinSxS\\x86_microsoft.vc90.crt_1fc8b3b9a1e18e3b_9.0.30729.4148_none_5090ab56bcba71c2')

#Fuente: https://www.iteramos.com/pregunta/27...-un-ejecutable

setup(
    # Nombre de la Clase
    name = "MODULOSCOM", 
    # nombre del script
    com_server = ["ModulosCOM"],
)

fastpho · 21.08.2026 18:08

Hola @Jorgeanna , el problema que tuve no fue con python en desarrollo
por que me corria perfectamente tengo varias implementaciones que hice
en python , estoy usando la version 3.13 de 64 bits , perdi mucho
tiempo para poder compilarlo a .exe y poder correrlo sin el ide
de python , logre despues de renegar tanto

y perder mucho tiempo
por que no hay mucha informacion , inclusive las ia tampoco fueron
de gran ayuda , finalmente con pyinstaller logra hacerlo funcionar a .exe

Todavia tengo que aprender ...

, pero la idea es seguir estudiando
python , y poder resolver algunos temas que son muy sencillos , con
un par de api's o librerias resolverlo.

Muchas gracias nuevamente por tu aporte

Saludos....

Likes

Likes

Likes

Likes

Likes

Likes

Likes

Likes

Likes

Likes


		Archivo - Cobol Foro		Webdesign by: vbdesigns.de		Contactar con Nosotros - Cobol Foro