怎么使用cobol中的inspect去空格

在COBOL中，可以使用INSPECT语句来去除字符串中的空格。以下是一个示例：

IDENTIFICATION DIVISION.
PROGRAM-ID. REMOVE-SPACES.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 INPUT-STRING PIC X(20) VALUE ' HELLO WORLD '.
01 OUTPUT-STRING PIC X(20).

PROCEDURE DIVISION.
MAIN-PROGRAM.
DISPLAY 'Before removing spaces: ' INPUT-STRING.

INSPECT INPUT-STRING TALLYING WS-COUNTER FOR LEADING SPACES
BEFORE INITIAL 'H'.
INSPECT INPUT-STRING TALLYING WS-COUNTER FOR TRAILING SPACES
AFTER INITIAL 'D'.
MOVE INPUT-STRING(WS-COUNTER:LENGTH OF INPUT-STRING-WS-COUNTER)
TO OUTPUT-STRING.

DISPLAY 'After removing spaces: ' OUTPUT-STRING.

STOP RUN.

在上面的示例中，我们使用了INSPECT语句来计算字符串中前导和尾随空格的数量，并使用MOVE语句将非空格部分复制到另一个变量中。在这个例子中，我们假设输入字符串的起始位置是从第一个非空格字符开始的，并且输入字符串的长度已知。如果输入字符串的起始位置不是从第一个非空格字符开始的，或者输入字符串的长度不是固定的，那么你需要相应地修改代码。