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