在COBOL中，截取字符串的方法有以下几种：
使用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’。
使用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’。
使用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-VARIABLEDELIMITED BY 'EF'INTO SUBSTRING-VARIABLE1, SUBSTRING-VARIABLE2.在上面的例子中，SUBSTRING-VARIABLE1将包含字符串’ABCD’，SUBSTRING-VARIABLE2将包含字符串’GHIJ’。
这些都是COBOL中常用的截取字符串的方法。具体使用哪种方法取决于你的需求和程序的结构。
