DELETE MEASURE_REC;
REDEFINE RECORD MEASURE_REC USING
01 MEASURE_REC.
    05 DATE_TIME PIC IS X(23).
    05 DATE_PARTS REDEFINES DATE_TIME.
       10 DD PIC IS XX.
       10 FILLER PIC IS X.
       10 MMM PIC IS XXX.
       10 FILLER PIC IS X.
       10 YYYY PIC IS XXXX.
       10 FILLER PIC IS X.
       10 HH PIC IS XX.
       10 FILLER PIC IS X.
       10 MM PIC IS XX.
       10 FILLER PIC IS X.
       10 SS PIC IS XX.
       10 FILLER PIC IS X.
       10 CC PIC IS XX.
    05 FILLER PIC IS X.
    05 DEVICE PIC IS X(5).
    05 VAL PIC IS X(9).
;