The 515-UPDATE-DATE-TIME routine sets WS-DATE-TIME to the current date and time. See the Century Parameter Processing.
Required Input
No required input
Output
|
Field
|
Type and length
|
Definition
|
|
WS-SYSTEM-TIME
|
|
Time and date structure is returned in the
following formats:
|
|
WS-DATE-TIME
|
N 6
|
MMDDYY
|
|
WS-SYSTEM-DATE-YMD
|
N 8
|
YYYYMMDD
|
|
WS-SYSTEM-TIME
|
N 8
|
The time is returned as HHMMSSSS with low-order zero
fill for tenths and hundredths of seconds.
|
Example
* Update the date and clock time.
PERFORM 515-UPDATE-DATE-TIME.
|