MP Batchs, copybooks, jcls, Procs
This commit is contained in:
10
Copybook/CODEDATE.cpy
Normal file
10
Copybook/CODEDATE.cpy
Normal file
@ -0,0 +1,10 @@
|
||||
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
|
||||
Reference in New Issue
Block a user