This example uses the casting operator to retrieve a PERIOD(TIME) Datatype.
01 RETURNFIELD PIC X(40) VALUE SPACES.
01 RETURNIND PIC S9(2) COMP.
EXEC SQL
SELECT PERIODT (CHARACTER(40))
FROM TAB01
INTO :RETURNFIELD :RETURNIND
WHERE ID = 44
END-EXEC.