SQL [TYPE] [IS] DATE
Use DATE to generate a single working-storage record to contain all date information.
01 hv-name SQL TYPE IS DATE.
generates
01 hv-name PIC X(10).