11 lines
810 B
COBOL
11 lines
810 B
COBOL
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
|