cobol怎么截取字符串后4位

在COBOL中，你可以使用FUNCTION函数来截取字符串的后4位。下面是一个例子：

IDENTIFICATION DIVISION.PROGRAM-ID. STRING-PROCESSING.DATA DIVISION.WORKING-STORAGE SECTION.01 INPUT-STRING       PIC X(10) VALUE 'HELLO WORLD'.01 OUTPUT-STRING      PIC X(4).PROCEDURE DIVISION.MOVE FUNCTION REVERSE(INPUT-STRING) TO OUTPUT-STRING.DISPLAY 'Original String: ' INPUT-STRING.DISPLAY 'Last 4 characters: ' OUTPUT-STRING.STOP RUN.

在上面的示例中，我们使用REVERSE函数将输入字符串反转，然后将反转后的字符串的前4个字符赋值给OUTPUT-STRING。最后，我们将原始字符串和截取后的字符串进行显示。

输出结果将是：

Original String: HELLO WORLDLast 4 characters: DLRO

请注意，这只是一种截取后4位的方法之一。在实际开发过程中，你可以根据具体需求使用不同的方法。