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