MOVE "FTFLOAT80" TO WS-ETT-PLAN-NAME MOVE WR-TEM-COMPANY TO DB-COMPANY. MOVE WR-TEM-EMPLOYEE TO DB-EMPLOYEE. MOVE WS-ETT-PLAN-NAME TO DB-PLAN-NAME. INITIALIZE DB-SEQ-NBR DB-DATE. MOVE ETTSET1-PLAN-NAME TO WS-DB-BEG-RNG.
MOVE "((ETT-DATE >= ?) AND (ETT-TYPE = ?))" TO FILTER-STRING.
PERFORM 890-CREATE-FILTER. MOVE WS-PRIOR-DATE TO DATETIME-FILTER-VALUE. PERFORM 890-SET-DATETIME-FILTER-VALUE. MOVE "ME" TO ALPHANUM-FILTER-VALUE. PERFORM 890-SET-ALPHANUM-FILTER-VALUE. PERFORM 850-FIND-BEGRNG-ETTSET1.