COBOL400-L Date Index