getting runtime error

[Former Member]

hi all

i am getting runtime error in this report can any one help me out.

Include prg is attached down.

REPORT ZVBLOCKED.

INCLUDE ZVBLOCKEDTOP.

REPID = SY-REPID.

PERFORM GET_DATA.

PERFORM APPEND_FIELD.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'

EXPORTING

I_CALLBACK_PROGRAM = REPID.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'

EXPORTING

IS_LAYOUT = LAYOUT

IT_FIELDCAT = F_VBAK

I_TABNAME = 'IT_VBAK'

IT_EVENTS = F_EVENTS

TABLES

T_OUTTAB = IT_VBAK.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'

EXPORTING

IS_LAYOUT = LAYOUT

IT_FIELDCAT = F_EKKO

I_TABNAME = 'IT_EKKO'

IT_EVENTS = F_EVENTS

TABLES

T_OUTTAB = IT_EKKO.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'.

FORM GET_DATA.

SELECT VBELN NETWR FROM VBAK INTO TABLE IT_VBAK WHERE KUNNR IN S_KUNNR.

SELECT EBELN AEDAT FROM EKKO INTO TABLE IT_EKKO WHERE LIFNR IN S_LIFNR.

ENDFORM.

FORM APPEND_FIELD.

FCAT-FIELDNAME = 'VBELN'.

FCAT-TABNAME = 'VBAK'.

FCAT-REF_FIELDNAME = 'VBELN'.

FCAT-REF_TABNAME = 'VBAK'.

APPEND FCAT TO F_VBAK.

FCAT-FIELDNAME = 'NETWR'.

FCAT-TABNAME = 'VBAK'.

FCAT-REF_FIELDNAME = 'NETWR'.

FCAT-REF_TABNAME = 'VBAK'.

APPEND FCAT TO F_VBAK.

FCAT-FIELDNAME = 'EBELN'.

FCAT-TABNAME = 'EKKO'.

FCAT-REF_FIELDNAME = 'EBELN'.

FCAT-REF_TABNAME = 'EKKO'.

APPEND FCAT TO F_EKKO.

FCAT-FIELDNAME = 'AEDAT'.

FCAT-TABNAME = 'EKKO'.

FCAT-REF_FIELDNAME = 'AEDAT'.

FCAT-REF_TABNAME = 'EKKO'.

APPEND FCAT TO F_EKKO.

ENDFORM.

This is include prg.

TABLES: LFA1,EKKO,KNA1,VBAK.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME.

SELECT-OPTIONS: S_LIFNR FOR LFA1-LIFNR,

S_KUNNR FOR KNA1-KUNNR.

SELECTION-SCREEN END OF BLOCK B1.

TYPES: BEGIN OF TY_VBAK,

VBELN TYPE VBAK-VBELN,

NETWR TYPE VBAK-NETWR,

END OF TY_VBAK.

DATA: WA_VBAK TYPE TY_VBAK,

IT_VBAK TYPE TABLE OF TY_VBAK.

TYPES: BEGIN OF TY_EKKO,

EBELN TYPE EKKO-EBELN,

AEDAT TYPE EKKO-AEDAT,

END OF TY_EKKO.

DATA: WA_EKKO TYPE TY_EKKO,

IT_EKKO TYPE TABLE OF TY_EKKO.

TYPE-POOLS: SLIS.

DATA: REPID LIKE SY-REPID,

FCAT TYPE SLIS_FIELDCAT_ALV,

F_LFA1 TYPE SLIS_T_FIELDCAT_ALV,

F_VBAK TYPE SLIS_T_FIELDCAT_ALV,

F_EKKO TYPE SLIS_T_FIELDCAT_ALV,

LAYOUT TYPE SLIS_LAYOUT_ALV,

F_EVENTS TYPE SLIS_T_FIELDCAT_ALV.

[Former Member]

From review One big mistake is

f_events TYPE slis_t_fieldcat_alv.

Events defined wrongly..

Define the events correctly and then call...alv

[Former Member]

Check the below code, its working fine.

*&---------------------------------------------------------------------*
*& Report  YSAT_TEST3
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  YSAT_TEST3.
type-pools: slis.

TABLES: LFA1,EKKO,KNA1,VBAK.
data: lv_event  type slis_alv_event, " add this
      lt_event type slis_t_event.       " add this

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME.

SELECT-OPTIONS: S_LIFNR FOR LFA1-LIFNR,
S_KUNNR FOR KNA1-KUNNR.

SELECTION-SCREEN END OF BLOCK B1.

TYPES: BEGIN OF TY_VBAK,
VBELN TYPE VBAK-VBELN,
NETWR TYPE VBAK-NETWR,
END OF TY_VBAK.

DATA: WA_VBAK TYPE TY_VBAK,
IT_VBAK TYPE TABLE OF TY_VBAK.

TYPES: BEGIN OF TY_EKKO,
EBELN TYPE EKKO-EBELN,
AEDAT TYPE EKKO-AEDAT,
END OF TY_EKKO.

DATA: WA_EKKO TYPE TY_EKKO,
IT_EKKO TYPE TABLE OF TY_EKKO.

TYPE-POOLS: SLIS.

DATA: REPID LIKE SY-REPID,
FCAT TYPE SLIS_FIELDCAT_ALV,
F_LFA1 TYPE SLIS_T_FIELDCAT_ALV,
F_VBAK TYPE SLIS_T_FIELDCAT_ALV,
F_EKKO TYPE SLIS_T_FIELDCAT_ALV,
LAYOUT TYPE SLIS_LAYOUT_ALV,
F_EVENTS TYPE SLIS_T_FIELDCAT_ALV.




REPID = SY-REPID.
perform it_events.   " add this
PERFORM GET_DATA.
PERFORM APPEND_FIELD.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'
EXPORTING
I_CALLBACK_PROGRAM = REPID.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
IS_LAYOUT = LAYOUT
IT_FIELDCAT = F_VBAK
I_TABNAME = 'IT_VBAK'
IT_EVENTS = lt_event        " add this
TABLES
T_OUTTAB = IT_VBAK.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
IS_LAYOUT = LAYOUT
IT_FIELDCAT = F_EKKO
I_TABNAME = 'IT_EKKO'
IT_EVENTS = lt_event      " add this
TABLES
T_OUTTAB = IT_EKKO.


CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'.
FORM GET_DATA.
SELECT VBELN NETWR FROM VBAK INTO TABLE IT_VBAK WHERE KUNNR IN S_KUNNR.
SELECT EBELN AEDAT FROM EKKO INTO TABLE IT_EKKO WHERE LIFNR IN S_LIFNR.
ENDFORM.

FORM APPEND_FIELD.
FCAT-FIELDNAME = 'VBELN'.
FCAT-TABNAME = 'VBAK'.
FCAT-REF_FIELDNAME = 'VBELN'.
FCAT-REF_TABNAME = 'VBAK'.
APPEND FCAT TO F_VBAK.

FCAT-FIELDNAME = 'NETWR'.
FCAT-TABNAME = 'VBAK'.
FCAT-REF_FIELDNAME = 'NETWR'.
FCAT-REF_TABNAME = 'VBAK'.
APPEND FCAT TO F_VBAK.

FCAT-FIELDNAME = 'EBELN'.
FCAT-TABNAME = 'EKKO'.
FCAT-REF_FIELDNAME = 'EBELN'.
FCAT-REF_TABNAME = 'EKKO'.
APPEND FCAT TO F_EKKO.

FCAT-FIELDNAME = 'AEDAT'.
FCAT-TABNAME = 'EKKO'.
FCAT-REF_FIELDNAME = 'AEDAT'.
FCAT-REF_TABNAME = 'EKKO'.
APPEND FCAT TO F_EKKO.
ENDFORM.
*&---------------------------------------------------------------------*
*&      Form  IT_EVENTS
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM IT_EVENTS .                         " add this
  refresh lt_event.
  clear lv_event.
  lv_event-name = slis_ev_top_of_list.
  lv_event-form = 'LIST_HEADER'.
  append lv_event to lt_event.
  clear lv_event.
  lv_event-name = slis_ev_top_of_page.
  lv_event-form = 'VERIFIC_HEADER'.
  append lv_event to lt_event.
ENDFORM.                    " IT_EVENTS

Thanks

Satyasuresh Donepudi

Edited by: Satya suresh Donepudi on Apr 29, 2009 9:04 AM