如何使用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语句将非空格部份复制到另外一个变量中。在这个例子中，我们假定输入字符串的起始位置是从第一个非空格字符开始的，并且输入字符串的长度已知。如果输入字符串的起始位置不是从第一个非空格字符开始的，还是输入字符串的长度不是固定的，那末你需要相应地修改代码。