REPORT  Z04_013.

DATA i_selopt LIKE ddshselopt OCCURS 0 WITH HEADER LINE.

DATA v_whereclause TYPE string.

DATA GT_SFLIGHT LIKE SFLIGHT OCCURS 0 WITH HEADER LINE.

i_selopt-shlpname     = 'SFLIGHT'.

i_selopt-shlpfield      = 'CARRID'.

i_selopt-sign          = 'I'.

i_selopt-option        = 'EQ'.

i_selopt-low           = 'DL'.

APPEND  i_selopt.

CALL FUNCTION 'F4_CONV_SELOPT_TO_WHERECLAUSE'

           IMPORTING

                     where_clause = v_whereclause

           TABLES

                     selopt_tab    = i_selopt.

SELECT * FROM SFLIGHT

INTO CORRESPONDING FIELDS OF TABLE GT_SFLIGHT

WHERE (v_whereclause).

LOOP AT GT_SFLIGHT.

WRITE :/ GT_SFLIGHT-CARRID, GT_SFLIGHT-CONNID, GT_SFLIGHT-FLDATE.