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).
Note that non-ascii characters in the above source code will be escaped (such as \x9f).