CURRENT-DATE

CURRENT-DATE

The CURRENT-DATE function returns the current date and time.

Syntax 1

function current-date ()

Syntax 2

$current-date ()

Result

The function returns a number that is the current date and time in the format YYYYMMDDHHNNSSCC.

Examples

Example - Set a timestamp field to the current date and time.

working-storage section.

01 w-date-time.

03 w-date.

05 w-year pic 9(4).

05 w-month pic 9(2).

05 w-day pic 9(2).

03 w-time.

05 w-hour pic 9(2).

05 w-min pic 9(2).

05 w-sec pic 9(2).

05 w-cent pic 9(2).

...

procedure division.

...

move function current-date() to w-date-time.