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.