在COBOL中串联未知长度的字符串

在 COBOL 中，串联未知长度的字符串可以通过使用 INSPECT 语句来实现。INSPECT 语句允许您检查字符串中的特定字符并对其进行操作。

以下是一个简单的示例，说明如何在 COBOL 中使用 INSPECT 语句来串联未知长度的字符串：

IDENTIFICATION DIVISION.
PROGRAM-ID. CONCAT-STRINGS.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 STRING1 PIC X(10) VALUE "Hello, ".
01 STRING2 PIC X(10) VALUE "world!".
01 RESULT PIC X(20).
PROCEDURE DIVISION.
    MOVE STRING1 TO RESULT
    INSPECT RESULT TALLYING STRING-LENGTH FOR CHARACTERS
    MOVE STRING2 TO RESULT (STRING-LENGTH + 1:)
    DISPLAY RESULT
    STOP RUN.

在这个示例中，我们首先定义了两个字符串 STRING1 和 STRING2，并将它们初始化为 "Hello, " 和 "world!"。然后，我们定义了一个 RESULT 字符串，用于存储串联后的结果。

在 PROCEDURE DIVISION 中，我们首先将 STRING1 的内容移动到 RESULT 中。然后，我们使用 INSPECT 语句来计算 RESULT 中的字符数，并将其存储在 STRING-LENGTH 变量中。最后，我们将 STRING2 的内容移动到 RESULT 中，从 STRING-LENGTH + 1 的位置开始。

这个示例演示了如何在 COBOL 中串联未知长度的字符串。请注意，这只是一个简单的示例，实际应用中可能需要更复杂的逻辑来处理不同的情况。