在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語句將非空格部分復制到另一個變量中。在這個例子中，我們假設輸入字符串的起始位置是從第一個非空格字符開始的，并且輸入字符串的長度已知。如果輸入字符串的起始位置不是從第一個非空格字符開始的，或者輸入字符串的長度不是固定的，那么你需要相應地修改代碼。
