Creating Dump in Hierarchical seq report

Here in this code, I am able to get data from data base but it is creating short dump with this text : field symbol not yet been assignged.

TYPE-POOLS : SLIS.

DATA : IT_EKKO LIKE TABLE OF EKKO,
       WA_EKKO LIKE LINE OF IT_EKKO,
       IT_EKPO LIKE TABLE OF EKPO,
       WA_EKPO LIKE LINE OF IT_EKPO,
       IT_EVENTS TYPE SLIS_T_EVENT, " EVENTS TABLE
       WA_EVENTS TYPE SLIS_ALV_EVENT,
       IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
       LIST_LAYOUT TYPE SLIS_LAYOUT_ALV,
       GS_KEYINFO TYPE SLIS_KEYINFO_ALV.
*** START OF SELECTION ***
START-OF-SELECTION.

PERFORM READ_DATA.

PERFORM FILL_KEY_INFO.

PERFORM FILL_FIELDCATALOG USING 'IT_EKKO' 'EKKO'.

PERFORM FILL_FIELDCATALOG USING 'IT_EKPO' 'EKPO'.

PERFORM DISPLAY_HEIRSEQ_ALV.

*----------------------------------------------------------------------*
FORM READ_DATA .
  SELECT * FROM EKKO INTO TABLE IT_EKKO UP TO 100 ROWS.

  IF NOT IT_EKKO IS INITIAL.
    SELECT * INTO TABLE IT_EKPO FROM EKPO FOR ALL ENTRIES IN IT_EKKO
          WHERE EBELN = IT_EKKO-EBELN.
  ENDIF.
ENDFORM.                    " READ_DATA

*&---------------------------------------------------------------------*

FORM FILL_KEY_INFO .
*** DEFINE KEY FIELDS
CLEAR GS_KEYINFO.
  GS_KEYINFO-HEADER01 = 'EBELN'.
  GS_KEYINFO-ITEM01   = 'EBELN'.
  GS_KEYINFO-HEADER02 = 'SPACE'.
  GS_KEYINFO-ITEM02   = 'EBELP'.
ENDFORM.                    " FILL_KEY_INFO

*&---------------------------------------------------------------------*

*----------------------------------------------------------------------*
FORM FILL_FIELDCATALOG  USING    FP_ITAB TYPE C
                                 FP_TAB TYPE C.
  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
   EXPORTING
     I_PROGRAM_NAME               = SY-CPROG
     I_INTERNAL_TABNAME           = FP_ITAB
     I_STRUCTURE_NAME             = FP_TAB
*     I_CLIENT_NEVER_DISPLAY       = 'X'
*     I_INCLNAME                   =
*     I_BYPASSING_BUFFER           =
*     I_BUFFER_ACTIVE              =
    CHANGING
      CT_FIELDCAT                  = IT_FIELDCAT
*   EXCEPTIONS
*     INCONSISTENT_INTERFACE       = 1
*     PROGRAM_ERROR                = 2
*     OTHERS                       = 3
            .
  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.                    " FILL_FIELDCATALOG

*&---------------------------------------------------------------------*

FORM DISPLAY_HEIRSEQ_ALV .
  CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
    EXPORTING
     I_CALLBACK_PROGRAM             = SY-CPROG
     IT_FIELDCAT                    = IT_FIELDCAT
      I_TABNAME_HEADER               = 'IT_EKKO'
      I_TABNAME_ITEM                 = 'IT_EKPO'
      IS_KEYINFO                     = GS_KEYINFO
 
   TABLES
      T_OUTTAB_HEADER                = IT_EKKO
      T_OUTTAB_ITEM                  = IT_EKPO

Edited by: jyotsna dm on Sep 10, 2009 3:50 AM