COBOL 字符串操作：如何删除特定子字符串

在 COBOL 编程中，如果您想要从一个字符串中去除特定的子字符串，可以使用字符串操作和条件判断来实现。下面是一个示例代码，演示了如何在 COBOL 中实现字符串去除：

IDENTIFICATION DIVISION.
PROGRAM-ID. STRING-MANIPULATION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 ORIGINAL-STRING PIC X(100) VALUE 'Hello, World! This is a test.'. 
01 TARGET-STRING PIC X(100) VALUE 'is a '. 
01 RESULT-STRING PIC X(100).
PROCEDURE DIVISION.
MAIN-LOGIC.
    MOVE ORIGINAL-STRING TO RESULT-STRING.
    STRING TARGET-STRING DELIMITED BY SPACE
           INTO RESULT-STRING
    END-STRING.
    DISPLAY 'Original String: ' ORIGINAL-STRING.
    DISPLAY 'Target String: ' TARGET-STRING.
    DISPLAY 'Result String: ' RESULT-STRING.
STOP RUN.

在上述代码中，ORIGINAL-STRING 是原始字符串，TARGET-STRING 是要去除的目标子字符串，RESULT-STRING 是最终结果字符串。通过使用 STRING 语句，并将 TARGET-STRING 作为分隔符，将 TARGET-STRING 从 ORIGINAL-STRING 中去除，并将结果存储到 RESULT-STRING 中。最后，通过 DISPLAY 语句打印出原始字符串、目标字符串和结果字符串。

请根据您的实际需求修改示例代码中的字符串变量名和长度等参数来适应您的具体情况。