ID DIVISION.PROGRAM-ID.Q.DATA DIVISION.WORKING-STORAGE SECTION.
01 A PIC X(309) VALUE"""ID DIVISION.PROGRAM-ID.Q.DATA DIVISION.WORKING-STORAGE SECTION.01 A PIC X(309) VALUE01 B PIC X(334).PROCEDURE DIVISION.DISPLAY A(2:63).MOVE A(65:21) TO B.MOVE A(1:1) TO B(22:).MOVE A(1:1) TO B(23:).MOVE A TO B(24:).MOVE A(1:1) TO B(333:).MOVE A(13:1) TO B(334:).DISPLAY B.DISPLAY A(86:16).DISPLAY A(102:208).".
01 B PIC X(334).
PROCEDURE DIVISION.DISPLAY A(2:63).MOVE A(65:21) TO B.MOVE A(1:1) TO B(22:).MOVE A(1:1) TO B(23:).MOVE A TO B(24:).MOVE A(1:1) TO B(333:).MOVE A(13:1) TO B(334:).DISPLAY B.DISPLAY A(86:16).DISPLAY A(102:208).