6 lines
402 B
COBOL
6 lines
402 B
COBOL
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
|