在COBOL中，截取字符串的方法有以下幾種：

1. 使用INSPECT語句：可以使用INSPECT語句的TALLYING子句來指定要截取的字符串的起始位置和長度。例如：

01 STRING-VARIABLE PIC X(10).
01 SUBSTRING-VARIABLE PIC X(5).
MOVE 'ABCDEFGHIJ' TO STRING-VARIABLE.
INSPECT STRING-VARIABLE TALLYING FUNCTION LENGTH(STRING-VARIABLE)
BEFORE INITIAL 'F'
AFTER INITIAL 'E'
INTO SUBSTRING-VARIABLE.

在上面的例子中，SUBSTRING-VARIABLE將包含字符串’ABCDE’。

2. 使用STRING函數：可以使用STRING函數的START和LENGTH參數來指定要截取的字符串的起始位置和長度。例如：

01 STRING-VARIABLE PIC X(10).
01 SUBSTRING-VARIABLE PIC X(5).
MOVE 'ABCDEFGHIJ' TO STRING-VARIABLE.
MOVE FUNCTION STRING(STRING-VARIABLE, 6, 5) TO SUBSTRING-VARIABLE.

在上面的例子中，SUBSTRING-VARIABLE將包含字符串’FGHIJ’。

3. 使用UNSTRING語句：可以使用UNSTRING語句來將一個字符串分割成多個子字符串，并將其存儲在不同的變量中。例如：

01 STRING-VARIABLE PIC X(10).
01 SUBSTRING-VARIABLE1 PIC X(5).
01 SUBSTRING-VARIABLE2 PIC X(5).
MOVE 'ABCDEFGHIJ' TO STRING-VARIABLE.
UNSTRING STRING-VARIABLE
DELIMITED BY 'EF'
INTO SUBSTRING-VARIABLE1, SUBSTRING-VARIABLE2.

在上面的例子中，SUBSTRING-VARIABLE1將包含字符串’ABCD’，SUBSTRING-VARIABLE2將包含字符串’GHIJ’。

這些都是COBOL中常用的截取字符串的方法。具體使用哪種方法取決于你的需求和程序的結構。