*&---------------------------------------------------------------------*
*& Report ZTM_BC_400_11_SUBROUTINE
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZTM_BC_400_11_SUBROUTINE.

TYPES: BEGIN OF ty_flight,
         carrid     TYPE s_carr_id,
         connid     TYPE s_conn_id,
         fldate     TYPE s_date,
         seatsmax   TYPE s_seatsmax,
         seatsocc   TYPE s_seatsocc,
         percentage TYPE p DECIMALS 0,
       END OF ty_flight.

DATA: lt_flight TYPE STANDARD TABLE OF ty_flight,
      lv_workarea LIKE LINE OF lt_flight.

PARAMETERS p_carrid TYPE s_carr_id.

SELECT * FROM sflight
  INTO CORRESPONDING FIELDS OF lv_workarea
  WHERE carrid = p_carrid.

  lv_workarea-percentage = lv_workarea-seatsocc / lv_workarea-seatsmax * 100.

  INSERT lv_workarea INTO TABLE lt_flight.

ENDSELECT.

IF sy-subrc = 0.

  SORT lt_flight BY percentage.
  PERFORM write_list USING lt_flight.

ELSE.

  WRITE: 'Не найден аэропорт', p_carrid.

ENDIF.

FORM write_list USING iv_flight TYPE STANDARD TABLE OF ty_flight.
  DATA lv_workarea LIKE LINE OF iv_flight.
  LOOP AT iv_flight INTO lv_workarea.
    WRITE: / lv_workarea-carrid,
             lv_workarea-connid,
             lv_workarea-fldate,
             lv_workarea-seatsmax,
             lv_workarea-seatsocc,
             lv_workarea-percentage, '%'.
  ENDLOOP.
ENDFORM.