DATE-RECORD

Syntax:

SQL [TYPE] [IS] DATE-RECORD

Example:

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.