MODULE read_table_control_lo INPUT.

  MODIFY itab FROM zz00_spfli INDEX tbc_lo-current_line.

ENDMODULE.

MODULE read_table_control_r INPUT.

  SELECT SINGLE * FROM scarr INTO wa_scarr WHERE carrid = zz00_scarr-carrid.
  wa_scarr-carrname = zz00_scarr-carrname.
  MODIFY scarr FROM wa_scarr.

ENDMODULE.

MODULE read_table_control_lu INPUT.

ENDMODULE.

MODULE user_command_0400 INPUT.

  IF ok_code = 'SELECT' .
    REFRESH itab_out.
    LOOP AT itab INTO zz00_spfli.
      IF zz00_spfli-selection = 'X'.
        wa_out_flug-carrid = zz00_spfli-carrid.
        wa_out_flug-connid = zz00_spfli-connid.
        wa_out_flug-cityfrom = zz00_spfli-cityfrom.
        wa_out_flug-cityto = zz00_spfli-cityto.
        APPEND wa_out_flug TO itab_out.
      ENDIF.
    ENDLOOP.
  ENDIF.

  IF ok_code = 'BACK'.
    REFRESH itab_out.
    LEAVE TO SCREEN 100.
  ENDIF.

ENDMODULE.