*&---------------------------------------------------------------------*
*& Report  ZHEL1_TAB
*&
*&---------------------------------------------------------------------*
*& @Author : Hassan El-mzabi
*& exercise : 01
*& @Goal : internship
*&---------------------------------------------------------------------*

INCLUDE zhel1_tab_top                           .    " global Data

* INCLUDE ZHEL1_TAB_O01                           .  " PBO-Modules
* INCLUDE ZHEL1_TAB_I01                           .  " PAI-Modules
* INCLUDE ZHEL1_TAB_F01                           .  " FORM-Routines

PARAMETERS :  PVBELN TYPE VBELN, psernr TYPE SERNR.


"Internal Table
DATA :
      Z_INT_TB_ZHEL1 TYPE STANDARD TABLE OF ZHEL1.

*&---------------------------------------------------------------------*
* ALV Declarations
*----------------------------------------------------------------------*
* Types Pools
TYPE-POOLS:
   slis.

* Types
TYPES:
   t_fieldcat         TYPE slis_fieldcat_alv,
   t_events           TYPE slis_alv_event,
   t_layout           TYPE slis_layout_alv.

* Workareas
DATA:
   w_fieldcat         TYPE t_fieldcat,
   w_events           TYPE t_events,
   w_layout           TYPE t_layout.

* Internal Tables
DATA:
   i_fieldcat         TYPE STANDARD TABLE OF t_fieldcat,
   i_events           TYPE STANDARD TABLE OF t_events.

START-OF-SELECTION.
  PERFORM get_data.
END-OF-SELECTION.

PERFORM build_fieldcatlog.
PERFORM build_events.
PERFORM build_layout.
PERFORM list_display.


*&---------------------------------------------------------------------*
*&      Form  get_data
*&---------------------------------------------------------------------*
FORM get_data .
  SELECT MANDT
         VBELN
         SERNR
         ZCAR2
         ZBOOLEAN
    FROM ZHEL1
        INTO TABLE Z_INT_TB_ZHEL1
    WHERE VBELN = pvbeln and sernr = psernr.
ENDFORM.                    " get_data


FORM build_fieldcatlog .

  CLEAR:w_fieldcat,i_fieldcat[].

  PERFORM build_fcatalog USING:
           'MANDT'     'I_T001'   'MANDT',
           'VBELN'     'I_T001'   'VBELN',
           'SERNR'     'I_T001'   'SERNR',
           'ZCAR2'     'I_T001'   'ZCAR2',
           'ZBOOLEAN'  'I_T001'   'ZBOOLEAN'.
ENDFORM.

FORM build_fcatalog USING l_field l_tab l_text.

  w_fieldcat-fieldname      = l_field.
  w_fieldcat-tabname        = l_tab.
  w_fieldcat-seltext_m      = l_text.

  APPEND w_fieldcat TO i_fieldcat.
  CLEAR w_fieldcat.

ENDFORM.


FORM build_events.
  CLEAR : w_events, i_events[].

  w_events-name = 'TOP_OF_PAGE'."Event Name
  w_events-form = 'TOP_OF_PAGE'."Callback event subroutine

  APPEND w_events TO i_events.
  CLEAR  w_events.

ENDFORM.


FORM build_layout .

  w_layout-colwidth_optimize = 'X'.
  w_layout-zebra             = 'X'.

ENDFORM.


FORM list_display .
  DATA: l_program TYPE sy-repid.

  l_program = sy-repid.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program = l_program
      is_layout          = w_layout
      it_fieldcat        = i_fieldcat
      it_events          = i_events
    TABLES
      t_outtab           = Z_INT_TB_ZHEL1
    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.


FORM top_of_page.
  DATA :
   li_header TYPE slis_t_listheader,
   w_header  LIKE LINE OF li_header.
  DATA:
        l_date TYPE char10.
  WRITE sy-datum TO l_date.
  w_header-typ  = 'H'.
  CONCATENATE sy-repid ':' 'From Date' l_date INTO w_header-info SEPARATED BY space.
  APPEND w_header TO li_header.
  CLEAR w_header.

  w_header-typ  = 'S'.
  w_header-info = sy-title.
  APPEND w_header TO li_header.
  CLEAR w_header.

  w_header-typ  = 'A'.
  w_header-info = sy-uname.
  APPEND w_header TO li_header.
  CLEAR w_header.

  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = li_header.

ENDFORM.