BADI LE_SHP_DELIVERY_PROC

Hi,

I want to use BADI "LE_SHP_DELIVERY_PROC" in that method "CHANGE_DELIVERY_ITEM"..

But i m getting error "You are trying to access a component with a 'ZERO' object reference"

Can you please help?

My code :-

DATA: gi_badi_delivery TYPE REF TO if_ex_le_shp_delivery_proc.

DATA : gs_lips        TYPE lips,

        gs_lipsd       TYPE lipsd,

        gs_likp        TYPE likp,

        gs_likpd       TYPE likpd,

        gs_v50agl_cust TYPE v50agl_cust.

DATA:    BEGIN OF gt_xlikp OCCURS 10.

         INCLUDE STRUCTURE likpvb.

DATA:    END OF gt_xlikp.

DATA:    BEGIN OF gt_xlips OCCURS 15.

         INCLUDE STRUCTURE lipsvb.

DATA:    END OF gt_xlips.

SELECT * FROM likp INTO TABLE gt_xlikp

   WHERE vbeln = i_vbeln.

   IF gt_xlikp[] IS NOT INITIAL.

     SELECT * FROM lips INTO TABLE gt_xlips

     FOR ALL ENTRIES IN gt_xlikp

     WHERE vbeln = gt_xlikp-vbeln.

     READ TABLE gt_xlips INTO gs_lips WITH KEY vbeln = i_vbeln.

     IF sy-subrc = 0.

       gs_lips-faksp = i_faksp.

       CALL METHOD gi_badi_delivery->change_delivery_item

         EXPORTING

           if_flag_new_item = space

           if_trtyp         = 'V'

           if_tcode         = 'VL02N'

           it_xlikp         = gt_xlikp[]

           it_xlips         = gt_xlips[]

         CHANGING

           cs_lips          = gs_lips

           cs_likp          = gs_likp.

     ENDIF.

   ENDIF.