套接字和 COBOL

Question

我在一家医院找到了一份工作，该医院仍然使用 COBOL 进行所有组织工作，整个数据库（现在 20 TB）（这是一个自制软件，猜猜看，COBOL）充满了自过去 45 年以来每位患者的数据（或大约）年。

这就是我的故事。现在我的问题是：

目前，所有套接字（据我所知）都是由 COBOL 程序将数据写入文件来实现的。然后，这些文件由 C++ 程序（这是 20 世纪 80 年代末添加的附加模块）读取，并使用发送到数据库的 C++ 套接字。

现在这个解决方案已经停止工作，因为他们正在将数据库从 COBOL 移动到 COBOL，是的 - 他们没有使用 MySQL 等 - 他们实现了一个新的数据库 - 再次在 COBOL 中。我问在我之前在那里工作的那个人（他现在大约 70 岁）为什么有人会这样做，他告诉我他非常擅长 COBOL，以至于他不想用任何其他语言编写它。

到目前为止，我的问题是：

• 如何在 COBOL 中实现套接字连接？我需要创建一个指向外部 COBOL 数据库的接口，例如，192.168.1.23:283。

Answer 1

您需要提供有关操作系统和编译器的更多信息。

如果您使用的是具有支持语言环境的编译器的 IBM z/OS，则只需从 z/OS 通信服务调用 EZASOCK 函数即可。这些调用在其参考文献中有详细记录，并且有很好的 Cobol 示例。

其他平台会有其他选择。

在大多数情况下，您可以“调用”用您需要的任何语言编写的外部模块，但可以是 DLL 或共享库或其他任何语言。

您能提供有关您的环境的更多详细信息吗？

为什么不直接从 Cobol 程序写入数据库呢？

Answer 2

IBM 大型机有两个可用于 COBOL 的套接字 API。
一种用于 CICS 程序（其中有特殊的线程安全和环境注意事项），另一种用于普通 Batch 或 IMS 程序。

完整的 TCP/IP 功能已实现，并且足够可靠，可以按照 MVA 标准处理信用卡协议（我知道，因为我已经做到了）。

Answer 3

大多数 COBOL 编译器将允许您链接和调用对象模块或 DLL。正如卡蒂所说，我知道我可以提供帮助，但需要更多信息。我之前已经从 Windows 到 DEC 完成过此操作，所以我知道它可以完成。

Answer 4

请记住，Google 是您的朋友。

答案在很大程度上取决于您的执行环境。

IBM 确实声称拥有 套接字 API 可从 COBOL 调用，作为 z/OS 的 CICS 的一部分。

Micro Focus 似乎有一些东西。

Answer 5

COBOL 不支持套接字（从技术上讲，某些 COBOL 环境具有各种非标准 COBOL 套接字库）。

相反，您必须用 C 编写任何功能，然后从 Cobol 调用它。

如果您使用的是 Linux 系统，例如 GNU Cobol 3，则说明如下：

COBOL-C-Python TCP 通信指南

该项目演示了使用 COBOL 和 C 组合实现的简单 TCP 服务器。 COBOL 主程序将端口号传递给 C 函数 (start_server)，该函数设置侦听所提供端口的基本 TCP 服务器。一个单独的 Python 脚本充当客户端，将消息发送到该服务器。

Ubuntu 22.04 安装说明

先决条件

1. 安装 COBOL 编译器：
   OpenCOBOL（也称为 GnuCOBOL）是一个免费的 COBOL 编译器。安装：

   sudo apt update
   sudo apt 安装 gnucobol3
   

2. 安装 GCC：
   GCC 是一种流行的 C 编译器，我们将使用它来编译项目的 C 部分。

   sudo apt install build-essential
   

3. 安装Python：
   您还需要使用 Python 作为项目的客户端部分。安装 Python 3 和 pip：

   sudo apt install python3 python3-pip
   

项目文件

1. COBOL 文件 (TCPServer.cob)：

    识别部门。
       程序 ID。 TCP 服务器。
       数据部门。
       工作存储部分。
       01 服务器端口 PIC 9(5) COMP 值 8080。
   
       程序部门。
           DISPLAY “即将调用 C 函数。”
           使用服务器端口调用“start_server”。
           停止运行。
   

2. C 文件 (server.c)：

   #include ;
   #include 
   #include ;
   #include ;
   #include ;
   
   无效start_server（int * port_ptr）{
       无符号 char* 字节 = (无符号 char*)port_ptr;
       printf("字节数：%02x %02x %02x %02x\n", 字节[0], 字节[1], 字节[2], 字节[3]);
       const int 端口 = (字节[0] << 24) | （字节[1] << 16）| (字节[2] << 8) |字节[3]；
       printf("正在端口 %d\n 上运行 TCP 服务器", port);
       fflush（标准输出）；
       // ... [其余代码]
   }
   

3. Python 客户端 (client.py)：

   导入套接字
   
   def send_message_to_server(主机、端口、消息):
       与socket.socket（socket.AF_INET，socket.SOCK_STREAM）作为s：
           s.connect((主机，端口))
           s.sendall(消息.encode())
   
   如果 __name__ == "__main__":
       主机=“127.0.0.1”
       端口=8080
       MESSAGE =“来自 Python 的问候！”
       发送消息到服务器（主机、端口、消息）
   

4. 编译脚本 (compile.sh):

   gcc -c server.c
   cobc -x TCPServer.cob 服务器.o -lc
   

步骤：

1. 创建项目文件：
   使用 nano 等文本编辑器在目录 ~/cobol_tcp 中创建上面详细介绍的每个文件。

2. 编译代码：
   首先，使编译脚本可执行，然后运行它。

   chmod +xcompile.sh
   ./编译.sh
   

3. 运行 TCP 服务器：

   ./TCPServer
   

4. 运行 Python 客户端：
   在单独的终端中，导航到包含 client.py 的目录并运行：

   python3 client.py
   

如果一切设置正确，服务器（COBOL+C 代码）将显示从 Python 客户端收到的消息。

工作原理

1. COBOL 程序初始化端口值 (8080) 并调用传递此端口的 C 函数 (start_server)。
2. C 函数 (start_server) 设置 TCP 服务器并等待传入​​连接。
3. Python 脚本连接到服务器并发送消息。
4. C 函数接收消息，显示它，然后程序结束。

就是这样！该项目展示了 COBOL、C 和 Python 在基本客户端-服务器通信设置中的互操作性。