If you provide more information, we can be better help.
In your 12 byte field, is the "split" always 2/8/2? If yes the following moves will work for you
MOVE code(1:2) TO THE-FIRST-PART
MOVE code(3:8) TO THE-SECOND-PART
MOVE code(11:2) TO THE-THIRD-PART.
Those fields would be pic xx, x(8), and xx respectivedly.
If your requirement has more elaborate rules, post the rules here and we will be able to offer suggestions.
Hope this helps,