my report program showing runtime error so anybody help me asp.

REPORT  ZPURCHASE_ORDER.

TYPE-POOLS : SLIS.
TABLES:EKPO,"PURCHASE DOCUMENT ITEM
      MKPF,"MAREIAL DOCUMENT HEADER
      LIPS."DELIVERY ITEM.

**************************************END OF TABLES DECLARATION****************************************************
  DATA: BEGIN OF i_alv OCCURS 0,
         WERKS TYPE LIPS-WERKS,
        MATNR TYPE EKPO-MATNR,
        MAKTX  TYPE MAKT-MAKTX,
       VBELN TYPE LIPS-VBELN,
       LFIMG TYPE LIPS-LFIMG,
       MBLNR TYPE MKPF-MBLNR,
       MENGE TYPE MSEG-MENGE,
    END OF i_alv.

    DATA: it_ekpo TYPE STANDARD TABLE OF ekpo,
          wa_ekpo TYPE ekpo.
    DATA: it_MKPF TYPE STANDARD TABLE OF  MKPF,
      wa_MKPF TYPE MKPF.
 DATA: it_LIPS TYPE STANDARD TABLE OF LIPS ,
      wa_LIPS TYPE LIPS.
 DATA: it_MSEG TYPE STANDARD TABLE OF MSEG,
       WA_MSEG TYPE MSEG.

 DATA: gt_events  type slis_t_event.
DATA: it_ekko TYPE TABLE OF ekko WITH HEADER LINE.
DATA: wa_ekko like LINE OF it_ekko.

DATA:  BEGIN OF it_data OCCURS 1,
        xblnr TYPE xblnr,
      END OF it_data.

DATA: wa_data LIKE LINE OF it_data.
*ALV DATA DECLARATIONS
data: fieldcatalog type slis_t_fieldcat_alv with header line,
      gd_tb_group type slis_t_sp_group_alv,
      gd_tb_layout type slis_layout_alv ,
      gd_repid like sy-repid.

SELECT-OPTIONS:  S_BUDAT FOR MKPF-BUDAT,
                 S_WERKS FOR LIPS-WERKS.

*************************************************************
*FORM GET_DATA
*************************************************************
          "get_data

*START-OF-SELECTION.
START-OF-SELECTION.
PERFORM get_data.
PERFORM build_fieldcatalog.
PERFORM build_layout.
PERFORM display_alv_report.

*&-------------------------------------------------------*
*&Form get_data
*&--------------------------------------------------------*
FORM get_data.
* Take all Purchase Data

 SELECT ebeln aedat FROM ekko INTO CORRESPONDING FIELDS OF TABLE it_ekko
                               WHERE aedat IN s_budat.
   SELECT ebeln matnr txz01 menge  FROM ekpo INTO CORRESPONDING FIELDS OF TABLE it_ekpo FOR ALL ENTRIES IN it_ekpo
                               WHERE ebeln = it_ekpo-ebeln.
  SELECT VBELN MATNR LFIMG  FROM lips INTO CORRESPONDING FIELDS OF TABLE it_lips FOR ALL ENTRIES IN it_ekko
                               WHERE VGBEL = it_ekko-ebeln.

LOOP AT it_ekko INTO wa_ekko.

  wa_data-xblnr = wa_ekko-ebeln.
  APPEND wa_data to it_data.
  CLEAR wa_data.
ENDLOOP.

  SELECT MBLNR FROM MKPF INTO CORRESPONDING FIELDS OF TABLE it_MKPF FOR ALL ENTRIES IN it_data
                               WHERE xblnr = it_data-xblnr.

  SELECT MBLNR MATNR MENGE FROM MSEG INTO CORRESPONDING FIELDS OF TABLE it_MSEG FOR ALL ENTRIES IN it_mkpf
                                 WHERE MBLNR = it_mkpf-MBLNR.

   IF sy-subrc = 0.

   ENDIF.

ENDFORM.                         "get_data

*&-----------------------------------------------------------*
*&    Form build_catalog
*&-----------------------------------------------------------*
*     Build field catalog for alv report
*&-----------------------------------------------------------*
Form build_fieldcatalog.
  Fieldcatalog-fieldname = 'werks'. "Store
  Fieldcatalog-seltext_m = 'Store'.
   Fieldcatalog-col_pos = '1'.
  append Fieldcatalog to Fieldcatalog.
  clear Fieldcatalog.

  Fieldcatalog-fieldname = 'MATNR'.  "article
  Fieldcatalog-seltext_m = 'Article'.
  Fieldcatalog-col_pos = '2'.
  append Fieldcatalog to Fieldcatalog.
  clear Fieldcatalog.

  Fieldcatalog-fieldname = 'MAKTX'.  "article description
  Fieldcatalog-seltext_m = 'Article Description'.
  Fieldcatalog-col_pos = '2'.
  append Fieldcatalog to Fieldcatalog.
  clear Fieldcatalog.

  Fieldcatalog-fieldname = 'VBELN'. "Outbound delivery
  Fieldcatalog-seltext_m = 'OBD No.'.
  Fieldcatalog-col_pos = '3'.
  append Fieldcatalog to Fieldcatalog.
  clear Fieldcatalog.

  Fieldcatalog-fieldname = 'LFIMG'. "outbound deliveryquantity
  Fieldcatalog-seltext_m = 'OBD Quantity'.
  Fieldcatalog-col_pos = '3'.
  append Fieldcatalog to Fieldcatalog.
  clear Fieldcatalog.

  Fieldcatalog-fieldname = 'MBLNR'.  "goods receipt note
  Fieldcatalog-seltext_m = 'GRN No.'.
  Fieldcatalog-col_pos = '3'.
  append Fieldcatalog to Fieldcatalog.
  clear Fieldcatalog.
ENDFORM.           "build fieldcatalog
*&------------------------------------------------------*
*&Build layout
*&-------------------------------------------------------*
*       Build layout for ALV grid report
*----------------------------------------------------------------------*
form build_layout.
  GD_TB_layout-no_input          = 'X'.
  GD_TB_layout-colwidth_optimize = 'X'.
  GD_TB_layout-totals_text       = 'Totals'(201).

*  gd_layout-totals_only        = 'X'.
*  gd_layout-f2code            = 'DISP'.  "Sets fcode for when double
*                                         "click(press f2)
*  gd_layout-zebra             = 'X'.
*  gd_layout-group_change_edit = 'X'.
*  gd_layout-header_text       = 'helllllo'.
endform.                    " BUILD_LAYOUT

*&---------------------------------------------------------------------*
*&      Form  DISPLAY_ALV_REPORT
*&---------------------------------------------------------------------*
*       Display report using ALV grid
*----------------------------------------------------------------------*
form display_alv_report.
  gd_repid = sy-repid.
  call function 'REUSE_ALV_GRID_DISPLAY'
       exporting
            i_callback_program      = gd_repid
*            i_callback_top_of_page   = 'TOP-OF-PAGE'  "see FORM
*            i_callback_user_command = 'USER_COMMAND'
*            i_grid_title           = outtext
            is_layout               = GD_TB_layout
            it_fieldcat             = fieldcatalog[]
*            it_special_groups       = gd_tabgroup
*            IT_EVENTS                = GT_XEVENTS
            i_save                  = 'X'
*            is_variant              = z_template

       tables
            t_outtab                = IT_EKPO
       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.
    STOP.
  endif.
endform.                    " DISPLAY_ALV_REP