C#调用含跨程序调用的COBOL DLL时遇错误码173加载失败求助

我之前也踩过Micro Focus COBOL跨DLL调用的坑，Windows和Unix环境下的运行时逻辑差异确实容易让人困惑。结合你的情况，咱们一步步拆解问题：

核心原因：Windows下COBOL运行时≠Unix的dlopen逻辑 #

在Unix上，dlopen加载的库会被COBOL运行时自动识别为可调用的程序源，但Windows的LoadLibrary只是把DLL加载到进程空间，Micro Focus COBOL运行时并不会自动扫描已加载的DLL来查找被CALL的程序。它有自己的独立搜索路径和机制，错误码173就是明确提示：运行时在它的搜索范围内找不到ITSME或P2这个程序单元。

具体解决方案 #

1. 配置COBOL运行时的搜索路径（最直接） #

Micro Focus COBOL运行时会按优先级从以下位置查找被调用程序：

• 进程的当前工作目录（你以为的同一目录可能不是运行时的工作目录？可以在代码里先打印确认：C#用Environment.CurrentDirectory，C++用GetCurrentDirectory）
• 环境变量COBPATH指定的路径
• Windows系统的PATH环境变量

你需要在初始化COBOL运行时前，把DLL所在目录加入COBPATH：

• C#代码示例：

// 在调用任何COBOL方法前执行
Environment.SetEnvironmentVariable("COBPATH", AppDomain.CurrentDomain.BaseDirectory);

• C++代码示例：

// 在cobinit前执行
SetEnvironmentVariable(TEXT("COBPATH"), TEXT("你的DLL所在绝对路径"));

2. 手动注册已加载的DLL到COBOL运行时 #

Micro Focus提供了cobregister函数（位于cblrtsm.dll），可以把已加载的DLL里的COBOL程序手动注册到运行时，让运行时能直接找到它们。修改你的C++测试代码如下：

#include "stdafx.h"
#include "stdio.h"
#include "windows.h"
#include "cobtypes.h"

typedef int(__stdcall *f_cobinit)();
typedef cobrtncode_t(__stdcall *f_cobcall)(const cobchar_t *callname, int argcnt, cobchar_t **argvec);
typedef int(__stdcall *f_cobregister)(HINSTANCE hModule); // 新增函数指针

int main() {
    // 先设置基础路径
    SetEnvironmentVariable(TEXT("COBPATH"), TEXT("."));
    
    HINSTANCE dll1 = LoadLibrary("CobolDlls.dll");
    HINSTANCE dll2 = LoadLibrary("CobolDlls2.dll");
    HINSTANCE dllCbl = LoadLibrary("cblrtsm.dll");

    // 注册DLL到COBOL运行时
    f_cobregister registerDll = (f_cobregister)GetProcAddress(dllCbl, "cobregister");
    if (registerDll) {
        printf("Register CobolDlls.dll: %d\n", registerDll(dll1));
        printf("Register CobolDlls2.dll: %d\n", registerDll(dll2));
    }

    printf("cobinit : ");
    f_cobinit init = (f_cobinit)GetProcAddress(dllCbl, "cobinit");
    printf("%d\n", init());

    f_cobcall hi = (f_cobcall)GetProcAddress(dllCbl, "cobcall");
    cobrtncode_t c = hi((cobchar_t*)"P2", 0, NULL);
    printf("cobcall result: %d\n", c);

    getchar();
    return 0;
}

C#里也可以通过DllImport导入cobregister，在LoadLibrary获取句柄后调用注册。

3. 检查COBOL编译选项 #

确保你的COBOL程序编译时配置正确：

• 必须指定DLL选项生成动态链接库
• 被CALL的程序program-id和CALL语句里的名称完全一致（Windows大小写不敏感，但统一名称更稳妥）
• 旧版本编译器可能需要加EXPORTALL选项，显式导出所有程序单元

4. 确认运行时版本匹配 #

确保你使用的cblrtsm.dll和编译COBOL DLL的Micro Focus编译器版本完全一致，版本不匹配也会导致奇怪的查找失败问题。

额外排查小技巧 #

• 用Micro Focus自带的cobdump工具检查DLL里的程序单元：

cobdump -t CobolDlls.dll

这个命令会列出DLL里所有可调用的COBOL程序名称，确认P2/ITSME确实存在。

• 查看Windows事件查看器的应用日志，COBOL运行时可能会记录更详细的路径尝试信息，帮你定位问题。

内容的提问来源于stack exchange，提问作者Yoann