       IDENTIFICATION DIVISION.
       PROGRAM-ID. Str035.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 A PIC X(5) VALUE "A035".
       01 B PIC X(5) VALUE "B035".
       01 O PIC X(12).
       PROCEDURE DIVISION.
           STRING A DELIMITED BY SIZE INTO O END-STRING.
           DISPLAY O.
           STOP RUN.
