Using REDEFINES, the answer is that it is indeed feasible to do so. It is essential for us to bear in mind that redefining does nothing more than guarantee that fields begin in the same spot. 01 WS-TOP PIC X(100)
01 WS-TOP-DOUBLE REDEFINES WS-TOP PIC X(200)