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