REPORT  zr_selection.

DATA wa_list TYPE spfli.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS pa_car TYPE spfli-carrid. " Like wa_list-carrid.
SELECT-OPTIONS so_con FOR wa_list-connid.
SELECTION-SCREEN END OF BLOCK b1.

INITIALIZATION.
  pa_car = 'AA'.
  so_con-sign = 'I'.
  so_con-option = 'BT'.
  so_con-low = '0017'.
  so_con-high = '0064'.
  APPEND so_con. "to so_con

AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    IF screen-name = 'PA_CAR'.
     screen-input = 0.
* screen-active = 0.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.

AT SELECTION-SCREEN.
  IF pa_car = 'JL'.
* message e016(pn) with pa_car 'not search'.
    MESSAGE i016(pn) WITH pa_car 'not search'.
    STOP.
  ENDIF.

START-OF-SELECTION.
  WRITE pa_car.