If you define your output record in working-storage, which has between each elementary field,
level-number (05, 07, 10, whatever you need) FILLER PIC X VALUE "|".
Then you code MOVE statements for all your input fields, to your output in W-S. Then you can WRITE the record from W-S.
This sort of thing is good practice for getting the editor to come to your aid. If you invest some time in research, even just using PF1, you can change all the lines in a copy of your input copybook to:
And a copy of your output copybook to:
And then do a huge block move (MM/MM) to a huge block overlay (OO/OO).