REPORT Z15_007                                                     .
TABLES : sflight, sscrfields.
SELECTION-SCREEN BEGIN OF LINE.
        SELECTION-SCREEN COMMENT  1(10) text-001 FOR FIELD p_1.
        PARAMETERS : p_1 LIKE  sflight-carrid.

        SELECTION-SCREEN POSITION POS_LOW.
        PARAMETERS : p_2 LIKE   sflight-connid.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN SKIP 2.
SELECTION-SCREEN ULINE.
SELECTION-SCREEN ULINE /1(10).
SELECTION-SCREEN ULINE pos_low(10).
SELECTION-SCREEN ULINE pos_high(10).

SELECTION-SCREEN PUSHBUTTON /pos_low(10) text-002 USER-COMMAND psh.

SELECTION-SCREEN BEGIN OF BLOCK block WITH FRAME TITLE text-003.
PARAMETERS : p_3 TYPE c.
SELECT-OPTIONS : s_1 FOR sflight-carrid.
SELECTION-SCREEN END OF BLOCK block.

SELECTION-SCREEN BEGIN OF BLOCK block2 WITH FRAME TITLE text-004
NO INTERVALS.
PARAMETERS : p_4 TYPE c.
SELECT-OPTIONS : s_2 FOR sflight-carrid.
SELECTION-SCREEN END OF BLOCK block2.
SELECTION-SCREEN FUNCTION KEY 1.

INITIALIZATION.
        MOVE 'Func key 1' TO sscrfields-functxt_01.

AT SELECTION-SCREEN.
                IF sscrfields-ucomm = 'FC01'.

                ENDIF.