>>200追記
REDEFINES句の例としてはSystem.DateTimeは不適切だったかも

01 DATE-STRING PIC X(6).
01 DATE REDEFINES DATE-STRING.
05　YY PIC 9(2).
05　MM PIC 9(2).
05　DD PIC 9(2).

のようなことをやりたい？
これもプロパティによる実装が良いと思う。