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.