在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位的方法之一。在實際開發過程中，你可以根據具體需求使用不同的方法。
