UNSTRING and STRING

       IDENTIFICATION DIVISION.
       PROGRAM-ID.    BALL-O-STRING.
       AUTHOR.        BILL ROGERS.
       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 'ROGERS WILLIAM THOMAS' TO WHOLE-NAME.
           UNSTRING WHOLE-NAME
               DELIMITED BY SPACE
               INTO LAST-NAME FIRST-NAME MIDDLE-NAME.
           DISPLAY 'FIRST NAME:  ' FIRST-NAME.
           DISPLAY 'MIDDLE NAME: ' MIDDLE-NAME.
           DISPLAY 'LAST NAME:   ' LAST-NAME.
           STOP RUN.

       IDENTIFICATION DIVISION.
       PROGRAM-ID.    BALL-O-STRING.
       AUTHOR.        BILL ROGERS.
       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 'WILLIAM' TO FIRST-NAME.
           MOVE 'THOMAS'  TO MIDDLE-NAME.
           MOVE 'ROGERS'  TO LAST-NAME.
           STRING FIRST-NAME  DELIMITED BY SPACE
                  ' '         DELIMITED BY SIZE
                  MIDDLE-NAME DELIMITED BY SPACE
                  ' '         DELIMITED BY SIZE
                  LAST-NAME   DELIMITED BY SPACE
             INTO WHOLE-NAME.
           DISPLAY WHOLE-NAME.
           STOP RUN.

Cobol Home