topic Re: alv problem in Application Development and Automation Discussions

alv problem

Former Member — Thu, 30 Aug 2007 06:42:11 GMT

hi experts.

m trying to fetch data by using alv..when i try to execute it it gives a short dump..

m sending u the code plz tell me y is it so..n make changes whereever required

REPORT ZMM_R_PO .

TABLES: EKKO,EKPO.

TYPE-POOLS SLIS.

DATA: BEGIN OF I_EKKO OCCURS 0,

EBELN TYPE EKKO-EBELN,

BUKRS TYPE EKKO-BUKRS,

BSART TYPE EKKO-BSART,

LIFNR TYPE EKKO-LIFNR,

SPRAS TYPE EKKO-SPRAS,

ZTERM TYPE EKKO-ZTERM,

END OF I_EKKO.

DATA: BEGIN OF I_EKPO OCCURS 0,

TEBELN TYPE EKPO-EBELN,

EBELP TYPE EKPO-EBELP,

WERKS TYPE EKPO-WERKS,

MATNR TYPE EKPO-MATNR,

MATKL TYPE EKPO-MATKL,

END OF I_EKPO.

DATA:I_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,

I_FIELDCAT1 TYPE SLIS_FIELDCAT_ALV,

V_REPID LIKE SY-REPID,

I_KEYINFO TYPE SLIS_KEYINFO_ALV.

SELECT-OPTIONS S_EBELN FOR EKKO-EBELN.

INITIALIZATION.

V_REPID = SY-REPID.

S_EBELN-LOW = '4500006371'.

S_EBELN-HIGH = '4500012164'.

S_EBELN-SIGN = 'I'.

S_EBELN-OPTION = 'EQ'.

APPEND S_EBELN.

START-OF-SELECTION.

PERFORM GET_DATA.

PERFORM BUILD_FIELDCAT.

PERFORM GET_FIELD.

PERFORM GET_KEY.

PERFORM DISPLAY.

PERFORM KEY_MODIFY.

END-OF-SELECTION.

&----

*& Form GET_DATA

&----

text

----

FORM GET_DATA.

SELECT EBELN BUKRS BSART LIFNR SPRAS ZTERM FROM EKKO INTO CORRESPONDING FIELDS OF TABLE I_EKKO

WHERE EBELN IN S_EBELN.

SELECT EBELN EBELP WERKS MATNR MATKL FROM EKPO INTO CORRESPONDING FIELDS OF TABLE I_EKPO WHERE EBELN IN S_EBELN.

ENDFORM. "GET_DATA

DATA:I_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,

I_FIELDCAT1 TYPE SLIS_FIELDCAT_ALV,

V_REPID LIKE SY-REPID,

I_KEYINFO TYPE SLIS_KEYINFO_ALV.

SELECT-OPTIONS S_EBELN FOR EKKO-EBELN.

INITIALIZATION.

V_REPID = SY-REPID.

S_EBELN-LOW = '4500006371'.

S_EBELN-HIGH = '4500012164'.

S_EBELN-SIGN = 'I'.

S_EBELN-OPTION = 'EQ'.

APPEND S_EBELN.

START-OF-SELECTION.

PERFORM GET_DATA.

PERFORM BUILD_FIELDCAT.

PERFORM GET_FIELD.

PERFORM GET_KEY.

PERFORM DISPLAY.

PERFORM KEY_MODIFY.

END-OF-SELECTION.

&----

*& Form GET_DATA

&----

text

----

FORM GET_DATA.

SELECT EBELN BUKRS BSART LIFNR SPRAS ZTERM FROM EKKO INTO CORRESPONDING FIELDS OF TABLE I_EKKO

WHERE EBELN IN S_EBELN.

SELECT EBELN EBELP WERKS MATNR MATKL FROM EKPO INTO CORRESPONDING FIELDS OF TABLE I_EKPO WHERE EBELN IN S_EBELN.

ENDFORM. "GET_DATA

FORM GET_FIELD.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

I_PROGRAM_NAME = V_REPID

I_INTERNAL_TABNAME = 'I_EKKO'

I_STRUCTURE_NAME =
I_CLIENT_NEVER_DISPLAY = 'X'

I_INCLNAME = V_REPID

I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =

CHANGING

CT_FIELDCAT = I_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.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

I_PROGRAM_NAME = V_REPID

I_INTERNAL_TABNAME = 'I_EKPO'

I_STRUCTURE_NAME =
I_CLIENT_NEVER_DISPLAY = 'X'

I_INCLNAME = V_REPID

I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =

CHANGING

CT_FIELDCAT = I_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. "GET_FIELD

&----

*& Form GET_KEY

&----

text

----

FORM GET_KEY.

I_KEYINFO-HEADER01 = 'EBELN'.

I_KEYINFO-ITEM01 = 'TEBELN'.

ENDFORM. "GET_KEY

&----

*& Form DISPLAY

&----

text

----

FORM DISPLAY.

CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'

EXPORTING

I_INTERFACE_CHECK = ' '

I_CALLBACK_PROGRAM = V_REPID

I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
IS_LAYOUT =

IT_FIELDCAT = I_FIELDCAT[]

IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =

I_TABNAME_HEADER = 'I_EKKO'

I_TABNAME_ITEM = 'I_EKPO'

I_STRUCTURE_NAME_HEADER =
I_STRUCTURE_NAME_ITEM =

IS_KEYINFO = I_KEYINFO

IS_PRINT =
IS_REPREP_ID =
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =

TABLES

T_OUTTAB_HEADER = I_EKKO

T_OUTTAB_ITEM = I_EKPO

EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2

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. "DISPLAY

*FORM KEY_MODIFY.

*LOOP AT I_FIELDCAT.

*CASE I_FIELDCAT-FIELDNAME.

*WHEN 'TEBELN'.

*IF I_FIELDCAT-TABNAME = 'I_EKPO'.

*I_FIELDCAT-NO_OUT = 'X'.

*I_FIELDCAT-KEY = SPACE.

*ENDIF.

*ENDCASE.

*MODIFY I_FIELDCAT INDEX SY-TABIX.

*ENDLOOP.

regards,

raman

Re: alv problem

Former Member — Thu, 30 Aug 2007 06:47:18 GMT

Hi prakash

it will be helpful for us if you send the short dump report

Thanks

vivekanand

Re: alv problem

Former Member — Thu, 30 Aug 2007 06:57:01 GMT

m sending u short dump...

The ABAP source code lines are longer than the width of the internal

What happened?

Error in ABAP application program.

The current ABAP program "SAPLSKBH" had to be terminated because one of th

statements could not be executed.

This is probably due to an error in the ABAP program.

What can you do?

Print out the error message (using the "Print" function)

and make a note of the actions and input that caused the

error.

To resolve the problem, contact your SAP system administrator.

You can use transaction ST22 (ABAP Dump Analysis) to view and administer

termination messages, especially those beyond their normal deletion

date.

Error analysis

The ABAP source code lines are longer than the width of the internal

What happened?

Error in ABAP application program.

The current ABAP program "SAPLSKBH" had to be terminated because one of th

statements could not be executed.

This is probably due to an error in the ABAP program.

What can you do?

Print out the error message (using the "Print" function)

and make a note of the actions and input that caused the

error.

To resolve the problem, contact your SAP system administrator.

You can use transaction ST22 (ABAP Dump Analysis) to view and administer

termination messages, especially those beyond their normal deletion

date.

Error analysis

The ABAP source code lines are longer than the width of the internal

What happened?

Error in ABAP application program.

The current ABAP program "SAPLSKBH" had to be terminated because one of th

statements could not be executed.

This is probably due to an error in the ABAP program.

What can you do?

Print out the error message (using the "Print" function)

and make a note of the actions and input that caused the

error.

To resolve the problem, contact your SAP system administrator.

You can use transaction ST22 (ABAP Dump Analysis) to view and administer

termination messages, especially those beyond their normal deletion

date.

Error analysis

The ABAP source code lines are longer than the width of the internal

What happened?

Error in ABAP application program.

The current ABAP program "SAPLSKBH" had to be terminated because one of th

statements could not be executed.

This is probably due to an error in the ABAP program.

What can you do?

Print out the error message (using the "Print" function)

and make a note of the actions and input that caused the

error.

To resolve the problem, contact your SAP system administrator.

You can use transaction ST22 (ABAP Dump Analysis) to view and administer

termination messages, especially those beyond their normal deletion

date.

Error analysis

The ABAP source code lines are longer than the width of the internal

What happened?

Error in ABAP application program.

The current ABAP program "SAPLSKBH" had to be terminated because one of th

statements could not be executed.

This is probably due to an error in the ABAP program.

What can you do?

Print out the error message (using the "Print" function)

and make a note of the actions and input that caused the

error.

To resolve the problem, contact your SAP system administrator.

You can use transaction ST22 (ABAP Dump Analysis) to view and administer

termination messages, especially those beyond their normal deletion

date.

Error analysis

The ABAP source code lines are longer than the width of the internal

What happened?

Error in ABAP application program.

The current ABAP program "SAPLSKBH" had to be terminated because one of th

statements could not be executed.

This is probably due to an error in the ABAP program.

What can you do?

Print out the error message (using the "Print" function)

and make a note of the actions and input that caused the

error.

To resolve the problem, contact your SAP system administrator.

You can use transaction ST22 (ABAP Dump Analysis) to view and administer

termination messages, especially those beyond their normal deletion

date.

Error analysis

The ABAP source code lines are longer than the width of the internal

What happened?

Error in ABAP application program.

The current ABAP program "SAPLSKBH" had to be terminated because one of th

statements could not be executed.

This is probably due to an error in the ABAP program.

What can you do?

Print out the error message (using the "Print" function)

and make a note of the actions and input that caused the

error.

To resolve the problem, contact your SAP system administrator.

You can use transaction ST22 (ABAP Dump Analysis) to view and administer

termination messages, especially those beyond their normal deletion

date.

Error analysis

The ABAP source code lines are longer than the width of the internal

What happened?

Error in ABAP application program.

The current ABAP program "SAPLSKBH" had to be terminated because one of th

statements could not be executed.

This is probably due to an error in the ABAP program.

What can you do?

Print out the error message (using the "Print" function)

and make a note of the actions and input that caused the

error.

To resolve the problem, contact your SAP system administrator.

You can use transaction ST22 (ABAP Dump Analysis) to view and administer

termination messages, especially those beyond their normal deletion

date.

Error analysis

Re: alv problem

Former Member — Thu, 30 Aug 2007 06:58:44 GMT

Hi,

the problem may be because of the long lines of coding.

cut them in to smaller line(such that each should have less than 72 chars even in comments also).

here some repetitions are there in ur code check it...

here i am giving my example similar to this compare ur program with this.

REPORT ZBHALV_GRID.

TABLES:LFA1,EKKO.

SELECT-OPTIONS:LIFNR FOR LFA1-LIFNR.

DATA:BEGIN OF ITAB OCCURS 0,

LIFNR LIKE LFA1-LIFNR,

NAME1 LIKE LFA1-NAME1,

LAND1 LIKE LFA1-LAND1,

ORT01 LIKE LFA1-ORT01,

REGIO LIKE LFA1-REGIO,

SORTL LIKE LFA1-SORTL,

END OF ITAB.

*DATA:BEGIN OF JTAB OCCURS 0,

LIFNR LIKE EKKO-LIFNR,
EBELN LIKE EKKO-EBELN,
BUKRS LIKE EKKO-BUKRS,
BSTYP LIKE EKKO-BSTYP,
BSART LIKE EKKO-BSART,

*END OF JTAB.

DATA:JTAB LIKE EKKO OCCURS 0 WITH HEADER LINE.

SELECT * FROM LFA1 INTO CORRESPONDING FIELDS OF TABLE ITAB WHERE LIFNR

IN LIFNR.

SELECT * FROM EKKO INTO CORRESPONDING FIELDS OF TABLE JTAB WHERE LIFNR

IN LIFNR.

TYPE-POOLS:SLIS.

DATA:FCAT TYPE SLIS_T_FIELDCAT_ALV.

DATA:KINFO TYPE SLIS_KEYINFO_ALV.

DATA:LAYOUT TYPE SLIS_LAYOUT_ALV.

DATA:EVE TYPE SLIS_T_EVENT WITH HEADER LINE.

DATA:HEAD TYPE SLIS_T_LISTHEADER WITH HEADER LINE.

LAYOUT-ZEBRA = 'X'.

LAYOUT-COLWIDTH_OPTIMIZE = 'X'.

LAYOUT-WINDOW_TITLEBAR = 'VENDORS AND PURCHASE DOCCUMENTS DETAILS'.

KINFO-HEADER01 = 'LIFNR'.

KINFO-ITEM01 = 'LIFNR'.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

I_LIST_TYPE = 0

IMPORTING

ET_EVENTS = EVE[]

EXCEPTIONS

LIST_TYPE_WRONG = 1

OTHERS = 2

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

READ TABLE EVE WITH KEY NAME = 'TOP_OF_PAGE'.

EVE-FORM = 'TOPOFPAGE'.

MODIFY EVE TRANSPORTING FORM WHERE NAME = 'TOP_OF_PAGE'.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

I_PROGRAM_NAME = SY-REPID

I_INTERNAL_TABNAME = 'ITAB'

I_STRUCTURE_NAME =
I_CLIENT_NEVER_DISPLAY = 'X'

I_INCLNAME = SY-REPID

I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =

CHANGING

CT_FIELDCAT = FCAT

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.

CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'

EXPORTING

I_INTERFACE_CHECK = ' '

I_CALLBACK_PROGRAM = SY-REPID

I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '

IS_LAYOUT = LAYOUT

IT_FIELDCAT = FCAT

IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_SCREEN_START_COLUMN = 5
I_SCREEN_START_LINE = 5
I_SCREEN_END_COLUMN = 120
I_SCREEN_END_LINE = 25
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =

IT_EVENTS = EVE[]

IT_EVENT_EXIT =

I_TABNAME_HEADER = 'ITAB'

I_TABNAME_ITEM = 'JTAB'

I_STRUCTURE_NAME_HEADER = 'LFA1'

I_STRUCTURE_NAME_ITEM = 'EKKO'

IS_KEYINFO = KINFO

IS_PRINT =
IS_REPREP_ID =
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =

TABLES

T_OUTTAB_HEADER = ITAB[]

T_OUTTAB_ITEM = JTAB[]

EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

FORM TOPOFPAGE.

REFRESH HEAD.

HEAD-TYP = 'H'.

HEAD-INFO = 'VENDORS & PURCHASE DOCC. DETAILS'.

APPEND HEAD.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = HEAD[]

I_LOGO = ' '
I_END_OF_LIST_GRID =

ENDFORM.

<b>rewards if helpful</b>

rgds,

bharat.

Re: alv problem

Former Member — Thu, 30 Aug 2007 07:32:29 GMT

Hi prakash

problem is solved. iHave done some small changes in your coding and got the result .kindly copy and and paste it and use .

TABLES: EKKO,EKPO.

TYPE-POOLS SLIS.

DATA: BEGIN OF I_EKKO OCCURS 0,

EBELN TYPE EKKO-EBELN,

BUKRS TYPE EKKO-BUKRS,

BSART TYPE EKKO-BSART,

LIFNR TYPE EKKO-LIFNR,

SPRAS TYPE EKKO-SPRAS,

ZTERM TYPE EKKO-ZTERM,

END OF I_EKKO.

DATA: BEGIN OF I_EKPO OCCURS 0,

TEBELN TYPE EKPO-EBELN,

EBELP TYPE EKPO-EBELP,

WERKS TYPE EKPO-WERKS,

MATNR TYPE EKPO-MATNR,

MATKL TYPE EKPO-MATKL,

END OF I_EKPO.

DATA:I_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,

I_FIELDCAT1 TYPE SLIS_FIELDCAT_ALV,

V_REPID LIKE SY-REPID,

I_KEYINFO TYPE SLIS_KEYINFO_ALV.

SELECT-OPTIONS S_EBELN FOR EKKO-EBELN.

INITIALIZATION.

V_REPID = SY-REPID.

S_EBELN-LOW = '4500006371'.

S_EBELN-HIGH = '4500012164'.

S_EBELN-SIGN = 'I'.

S_EBELN-OPTION = 'EQ'.

APPEND S_EBELN.

START-OF-SELECTION.

PERFORM GET_DATA.

PERFORM BUILD_FIELDCAT.

PERFORM GET_FIELD.

PERFORM GET_KEY.

PERFORM DISPLAY.

PERFORM KEY_MODIFY.

END-OF-SELECTION.

&----

*& Form GET_DATA

&----

text

----

FORM GET_DATA.

SELECT EBELN BUKRS BSART LIFNR SPRAS ZTERM FROM EKKO INTO CORRESPONDING FIELDS OF TABLE I_EKKO

WHERE EBELN IN S_EBELN.

SELECT EBELN EBELP WERKS MATNR MATKL FROM EKPO INTO CORRESPONDING FIELDS OF TABLE I_EKPO WHERE EBELN IN S_EBELN.

ENDFORM. "GET_DATA

FORM GET_FIELD.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

I_PROGRAM_NAME = sy-repid

*I_INTERNAL_TABNAME = 'I_EKKO'

I_STRUCTURE_NAME = 'EKKO'

I_CLIENT_NEVER_DISPLAY = 'X'

*I_INCLNAME = V_REPID

I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =

CHANGING

CT_FIELDCAT = I_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.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

I_PROGRAM_NAME = sy-repid

*I_INTERNAL_TABNAME = 'I_EKPO'

I_STRUCTURE_NAME = 'EKPO'

I_CLIENT_NEVER_DISPLAY = 'X'

*I_INCLNAME = V_REPID

I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =

CHANGING

CT_FIELDCAT = I_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. "GET_FIELD

&----

*& Form GET_KEY

&----

text

----

FORM GET_KEY.

I_KEYINFO-HEADER01 = 'EBELN'.

I_KEYINFO-ITEM01 = 'TEBELN'.

ENDFORM. "GET_KEY

&----

*& Form DISPLAY

&----

text

----

FORM DISPLAY.

CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'

EXPORTING

I_INTERFACE_CHECK = ' '

I_CALLBACK_PROGRAM = V_REPID

I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
IS_LAYOUT =

IT_FIELDCAT = I_FIELDCAT[]

IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =

I_TABNAME_HEADER = 'I_EKKO'

I_TABNAME_ITEM = 'I_EKPO'

I_STRUCTURE_NAME_HEADER =
I_STRUCTURE_NAME_ITEM =

IS_KEYINFO = I_KEYINFO

IS_PRINT =
IS_REPREP_ID =
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =

TABLES

T_OUTTAB_HEADER = I_EKKO

T_OUTTAB_ITEM = I_EKPO

EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2

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. "DISPLAY

REWARD ME GOOD POINTS FOR THIS.I DESERVE IT. PROBLEM IS SOLVED. ENJOY.

post it for mre doubts and close the treat if fulfilled.