alv_interface

*&---------------------------------------------------------------------*
*& Report  Z_ALV_INTERFACE_CHECK                                       *
*&                                                                     *
*&---------------------------------------------------------------------*
*&                                                                     *
*&                                                                     *
*&---------------------------------------------------------------------*

REPORT  z_alv_interface_check                   .
***************************************************************
* Type pool declaration for ALV
***************************************************************
TYPE-POOLS: slis.
***************************************************************
* Table
***************************************************************
TABLES: sbook.
***************************************************************
* Type declaration for SBOOK table
***************************************************************
TYPES: BEGIN OF ty_sbook,
        carrid TYPE s_carr_id, " Airline Code
        connid TYPE s_conn_id, " Flight Connection Number
        fldate TYPE s_date,    " Flight date
        bookid TYPE s_book_id, " Booking number
        customid TYPE s_customer," Customer Number
       END OF ty_sbook.
*****************************************************************
* Table declaration for SBOOK table
*****************************************************************
DATA:  i_sbook TYPE STANDARD TABLE OF ty_sbook INITIAL SIZE 0,

****************************************************************
* Table declaration for field catalog
****************************************************************
       i_fcata TYPE slis_t_fieldcat_alv.
****************************************************************
* Workarea declaration for field catalog table
****************************************************************
DATA:  w_fcata TYPE slis_fieldcat_alv.
****************************************************************
* Selection screen
**************************************************************
SELECT-OPTIONS: s_carrid FOR sbook-carrid.
***************************************************************
* Start-of-selection event
****************************************************************

*Fetch data from sbook table
PERFORM fetch_data.
* Populate field catalog
PERFORM populate_catalog.
* Display data in ALV
PERFORM display_alv.
*&--------------------------------------------------------------
*&      Form  fetch_data
*&-------------------------------------------------------------
FORM fetch_data .
  SELECT  carrid       " Airline Code
           connid       " Flight Connection Number
           fldate       " Flight date
           bookid       " Booking number
           customid " Customer Number
   FROM sbook
   INTO TABLE i_sbook
   WHERE carrid IN s_carrid.
  IF sy-subrc = 0.
    SORT i_sbook BY carrid.
  ENDIF.
ENDFORM.                    "fetch_data
*&-------------------------------------------------------------*
*&      Form  populate_catalog
*&--------------------------------------------------------------
FORM populate_catalog .
  w_fcata-fieldname = 'CARRID'.
  w_fcata-tabname  = 'I_SBOOK'.
  w_fcata-seltext_m = 'Airline Code'(001).
  w_fcata-ddictxt = 'M'.
  APPEND w_fcata TO i_fcata.  w_fcata-fieldname = 'CONNID'.
  w_fcata-tabname  = 'I_SBOOK'.
  w_fcata-seltext_m = 'Flight Connection Number'(002).
  w_fcata-ddictxt = 'M'.
  APPEND w_fcata TO i_fcata.
* Wrong field name FIDATE  w_fcata-fieldname = 'FIDATE'.
  w_fcata-tabname  = 'I_SBOOK'.
  w_fcata-seltext_m = 'Flight date'(003).
  w_fcata-ddictxt = 'M'.
  APPEND w_fcata TO i_fcata.
* Wrong field name BOOKLD  w_fcata-fieldname = 'BOOKLD'.
  w_fcata-tabname  = 'I_SBOOK'.
  w_fcata-seltext_m = 'Booking number'(004).
  w_fcata-ddictxt = 'M'.
  APPEND w_fcata TO i_fcata.  w_fcata-fieldname = 'CUSTOMID'.
  w_fcata-tabname  = 'I_SBOOK'.
  w_fcata-seltext_m = 'Customer Number'(005).
  w_fcata-ddictxt = 'M'.
  APPEND w_fcata TO i_fcata.
ENDFORM.                    " populate_catalog
*&----------------------------------------------------------
*&      Form  display_alv
*&-----------------------------------------------------------
FORM display_alv .
  DATA: l_repid TYPE sy-repid.l_repid = sy-repid.
* Interface check parameter, we have to pass ‘X’ as value in
  CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    EXPORTING
      i_interface_check  = 'X'
      i_callback_program = l_repid
      it_fieldcat        = i_fcata
    TABLES
      t_outtab           = i_sbook
    EXCEPTIONS
      program_error      = 1
      OTHERS             = 2.
  IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
ENDFORM.                    " display_alv