CREATING AN INTERNAL TABLE AND SELECTING 5 ROWS FROM THE TABLE

ZAKPROG18.ABAP

*&---------------------------------------------------------------------*
*&                Create a Ranked List for Highest Sales
*&---------------------------------------------------------------------*
REPORT ZAKPROG18.

tables: sflight.

SELECTION-SCREEN BEGIN OF BLOCK AK WITH FRAME TITLE TEXT-005.
PARAMETERS: V_CARR LIKE SFLIGHT-CARRID.
SELECTION-SCREEN END OF BLOCK AK.




  TYPES: BEGIN  OF TS_SFLIGHT,
 V_CARRID TYPE SFLIGHT-CARRID,
 V_CONNID TYPE SFLIGHT-CONNID,
 V_FLDATE TYPE SFLIGHT-FLDATE,
 V_PAYMENTSUM TYPE SFLIGHT-PAYMENTSUM,
 END OF TS_SFLIGHT.


  DATA: T_SFLIGHT TYPE STANDARD TABLE OF TS_SFLIGHT, WA_SFLIGHT TYPE TS_SFLIGHT,  v_carid1 type sflight-carrid.

  SELECT CARRID CONNID FLDATE PAYMENTSUM FROM SFLIGHT INTO TABLE T_SFLIGHT UP TO 5 ROWS
    WHERE CARRID = V_CARR ORDER BY PAYMENTSUM DESCENDING.


    if sy-subrc <> 0.
      message 'no flights available' type 'A'.
      endif.

  LOOP AT T_SFLIGHT INTO WA_SFLIGHT.

    WRITE: / WA_SFLIGHT-V_CARRID, WA_SFLIGHT-V_CONNID , WA_SFLIGHT-V_FLDATE
            , WA_SFLIGHT-V_PAYMENTSUM.

  ENDLOOP.

* error message 

  AT SELECTION-SCREEN.
select single carrid from scarr into V_carid1 where carrid = V_carr.
  if sy-subrc <> 0.
    MESSAGE 'GIVE VALID INPUT' TYPE 'E'.
    LEAVE SCREEN.
  ENDIF.