01 FDF-RECORDSIZEPIC X(2).'0256'(h) 01 WORK-RECORDSIZE. 02 WORK-RSIZ1PIC X(5). 02 WORK-RSIZ2REDEFINES WORK-RSIZ1 USAGE COMP-1. MOVE FDF-RECORDSIZE TO WORK-RSIZ2.
01 H-TABLE PIC X(16) VALUE ""000102030D0EOF"". 01 H-TBLREDEFINES H-TABLE PIC X(1) OCCURS 16 TIMES. 01 D-TABLE PIC X(32) VALUE "000102030D0E0F". 01 D-TBLREDEFINES D-TABLE PIC X(2) OCCURS 16 TIMES.