Skip to Content
0
Former Member
Apr 29, 2009 at 12:27 PM

getting runtime error

16 Views

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.