Cobol: ¿Cómo separar una cadena compuesta de nombre y dos apellidos?

Para separar un nombre y los apellidos debemos usar la instrucción UNSTRING tal y como se indica a continuación:

IDENTIFICATION DIVISION.
PROGRAM-ID.    SEPARAR-NAME.
AUTHOR.        DESCONOCIDO.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
    01 WHOLE-NAME              PIC X(25).
    01 FIRST-NAME                PIC X(25).
    01 MIDDLE-NAME             PIC X(25).
    01 LAST-NAME                 PIC X(25).
PROCEDURE DIVISION.
MAIN-STREET.
    MOVE 'MARIAN GONZALEZ MARTINEZ' TO WHOLE-NAME.
    UNSTRING WHOLE-NAME
        DELIMITED BY SPACE        INTO FIRST-NAME MIDDLE-NAME LAST-NAME.
    DISPLAY 'FIRST NAME:  ' FIRST-NAME.
    DISPLAY 'MIDDLE NAME: ' MIDDLE-NAME.
    DISPLAY 'LAST NAME:   ' LAST-NAME.
    STOP RUN.