First, to get the current date and time (Y2K compliant), the function name is current-date (this covers BOTH date and time), first you need to seperate it into different parts if you want to perform operations with them, for example if you wish to compare the current year to a number in storage. In your working storage section you want to define the following:
Take in mind, that the time is listed in Zulu time (24 hour format) so you will have to do some operations to convert it to the 12 hour format.
In the procedure division, just do:
MOVE FUNCTION CURRENT-DATE TO DATE-IN.
Since your DATE-IN is seperated into its different (and properly sized) sections in the Working Storage section, then you simply use the specific identifier you wish to conduct operations on, for example: