00001                                                                   04/29/04
00002 ***************************************************************   CODEDATE
00003 *         COBOL 2 SYSTEM DATE, TIME, DAY AND DAY-OF-WEEK      *      LV001
00004 ***************************************************************   CODEDATE
00005                                                                   CODEDATE
00006      ACCEPT WS-SYSTEM-DATE FROM DATE.                             CODEDATE
00007      ACCEPT WS-SYSTEM-TIME FROM TIME.                             CODEDATE
00008      ACCEPT WS-SYSTEM-DAY  FROM DAY.                              CODEDATE
00009      ACCEPT WS-SYSTEM-DOW  FROM DAY-OF-WEEK.                      CODEDATE
00010                                                                   CODEDATE