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 WORLD Last 4 characters: DLRO 

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