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.
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.