如何在IBM i（AS/400）的COBOL中调用GENUUID过程？

在IBM i环境下，调用系统提供的_GENUUID过程生成UUID时，COBOL的语法和RPG有所不同，直接使用CALL '_GENUUID'报错通常是因为符号解析或绑定问题，以下是可行的解决方法：

方法一：直接调用并绑定正确的服务程序 #

_GENUUID是标准C库中的过程，需要在编译COBOL模块时绑定对应的系统服务程序QSYS/QCRTBND。

示例代码

IDENTIFICATION DIVISION.
PROGRAM-ID. GENUUID-COBOL.
DATA DIVISION.
WORKING-STORAGE SECTION.
* 存储二进制UUID（16字节）
01 UUID-BINARY PIC X(16).
* 用于转换为十六进制字符串展示（可选）
01 UUID-HEX PIC X(32).
01 I PIC 9(2) VALUE 1.
01 J PIC 9(2) VALUE 1.

PROCEDURE DIVISION.
    * 调用_GENUUID，传递16字节的变量存储结果
    CALL '_GENUUID' USING BY REFERENCE UUID-BINARY.

    * 将二进制UUID转换为十六进制字符串（可选步骤）
    PERFORM UNTIL I > 16
        COMPUTE UUID-HEX(J:2) = FUNCTION HEX(UUID-BINARY(I:1))
        ADD 1 TO I
        ADD 2 TO J
    END-PERFORM.

    DISPLAY "Generated UUID (Hex): " UUID-HEX.
    STOP RUN.

编译命令

先编译生成模块：

CRTCOBMOD MODULE(YOUR_LIB/YOUR_PROG) SRCFILE(YOUR_LIB/QCBLSRC) BNDSRVPGM(QSYS/QCRTBND)

再生成程序：

CRTPGM PGM(YOUR_LIB/YOUR_PROG) MODULE(YOUR_LIB/YOUR_PROG)

方法二：使用过程指针调用 #

如果直接调用仍有符号解析问题，可以通过过程指针（PROCEDURE-POINTER）来引用_GENUUID，这种方式更灵活：

示例代码

IDENTIFICATION DIVISION.
PROGRAM-ID. GENUUID-COBOL-PTR.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 UUID-BINARY PIC X(16).
01 UUID-HEX PIC X(32).
* 声明指向_GENUUID的过程指针
01 GENUUID-PTR PROCEDURE-POINTER.
01 I PIC 9(2) VALUE 1.

PROCEDURE DIVISION.
    * 将指针指向_GENUUID外部过程
    SET GENUUID-PTR TO ENTRY '_GENUUID'.
    * 通过指针调用过程
    CALL GENUUID-PTR USING BY REFERENCE UUID-BINARY.

    * 转换为十六进制字符串（同方法一）
    PERFORM VARYING I FROM 1 BY 1 UNTIL I > 16
        COMPUTE UUID-HEX((I*2)-1:2) = FUNCTION HEX(UUID-BINARY(I:1))
    END-PERFORM.

    DISPLAY "Generated UUID (Hex): " UUID-HEX.
    STOP RUN.

编译命令与方法一相同，需绑定QSYS/QCRTBND服务程序。

关键注意点 #

• _GENUUID要求传递一个16字节的二进制变量用于存储生成的UUID，必须使用BY REFERENCE传递（COBOL默认也是BY REFERENCE，但显式声明更清晰）。
• 编译时必须绑定QSYS/QCRTBND，否则编译器无法找到_GENUUID的符号定义。
• COBOL中调用外部C过程时，程序名必须用单引号包裹，确保符号名（_GENUUID）的大小写和下划线被正确识别。

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