SQL [TYPE] [IS] DATE-RECORD
01 hv-name SQL TYPE IS DATE-RECORD.
generates
01 hv-name. 03 hv-name-year PIC S9(4) COMP-5. 03 hv-name-month PIC 9(4) COMP-5. 03 hv-name-day PIC 9(4) COMP-5.