Current Date Function In Cobol