00001  01  WS-SYSTEM-DATE-TIME.                                         04/29/04
00002      05  WS-SYSTEM-DATE                  PIC 9(06).               WSDATES
00003      05  WS-SYSTEM-TIME                  PIC 9(08).                  LV001
00004      05  WS-SYSTEM-DAY                   PIC 9(05).               WSDATES
00005      05  WS-SYSTEM-DOW                   PIC 9(01).               WSDATES