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

Question

如何在COBOL中将长度未知的两个字符串连接在一起？因此，例如：

WORKING-STORAGE.
    FIRST-NAME    PIC X(15) VALUE SPACES.
    LAST-NAME     PIC X(15) VALUE SPACES.
    FULL-NAME     PIC X(31) VALUE SPACES.

如果FIRST-NAME = 'JOHN '和LAST-NAME = 'DOE '，我如何获得：

FULL-NAME = 'JOHN DOE                       '

相对于：

FULL-NAME = 'JOHN            DOE            '

Answer 1

我相信以下内容将给您您想要的东西。

STRING
FIRST-NAME DELIMITED BY " ",
" ",
LAST-NAME DELIMITED BY SIZE
INTO FULL-NAME.