Código COBOL:
WORKING STORAGE.
01 Nombres Pic x(25).
01 Paterno Pic x(15).
01 Materno Pic x(15).
01 NOMBRE PIC X(50).
PROCEDURE DIVISION.
MOVE SPACES TO NOMBRE.
STRING NOMBRES DELIMITED BY " "
" " DELIMITED BY SPACE
PATERNO DELIMITED BY " "
" " DELIMITED BY SPACE
MATERNO DELIMITED BY " "
INTO NOMBRE
END-STRING.
MOVE NOMBRE TO IMPRESION.
OJO SOLO EN LOS NOMBRES APELLIDOS DELIMTED BY " " PON DOS O TRES ESPACIOS PARA LOS NOMBRES COMPUESTOS O APELLIDOS EJEMPLO "DEL CARPIO" " DE LAS CASAS".