Skip to Content
0
Former Member
Sep 17, 2007 at 09:35 AM

how to solve the dump eror

29 Views

hi

when i execute this report it execute perfectly. o/p is come perfect.

But when i double click by mistake on this o/p it give me the dump error .

i don't know why this is happen. i am not been able to solve this problem.

can anyone solve this problem and send modified coding to me.

thanks in advance.

Dinesh

 

*************

&----


*& Report ZBIL

*&

&----


*&

*&

&----


REPORT ZBIL NO STANDARD PAGE HEADING.

TABLES: VBRK,

VBRP,

KNA1,

VBAK,

LIKP,

J_1IEXCHDR,

MARM.

TYPE-POOLS:SLIS.

TYPES: BEGIN OF IT_FINAL,

KUNAG LIKE VBRK-KUNAG,

KDGRP LIKE VBRK-KDGRP,

VBELN LIKE VBRK-VBELN,

FKSTO LIKE VBRK-FKSTO,

FKDAT LIKE VBRK-FKDAT,

  • stceg like vbrk-stceg,

STCEG(20) TYPE C,

REGIO LIKE VBRK-REGIO,

RFBSK LIKE VBRK-RFBSK,

AUBEL LIKE VBRP-AUBEL,

WERKS LIKE VBRP-WERKS,

VGBEL LIKE VBRP-VGBEL,

MATNR LIKE VBRP-MATNR,

VRKME LIKE VBRP-VRKME,

FKIMG LIKE VBRP-FKIMG,

NETWR LIKE VBRP-NETWR, "netwr_fp,

MWSBP LIKE VBRP-MWSBP,

KZWI4 LIKE VBRP-KZWI4,

VSTEL LIKE VBRP-VSTEL,

FKIMG1 TYPE FKIMG,

NAME1 LIKE KNA1-NAME1,

ORT01 LIKE KNA1-ORT01,

PSTLZ LIKE KNA1-PSTLZ,

EKONT LIKE KNA1-EKONT,

KUNNR LIKE KNA1-KUNNR,

STRAS(35) TYPE C,

AUDAT LIKE VBAK-AUDAT,

WADAT_IST LIKE LIKP-WADAT_IST,

EXNUM(10) TYPE C,

RDOC LIKE J_1IEXCHDR-RDOC,

UMREZ LIKE MARM-UMREZ,

MEINH LIKE MARM-MEINH,

UMREN LIKE MARM-UMREN,

END OF IT_FINAL.

TYPES: BEGIN OF IT_VBRK,

KUNAG LIKE VBRK-KUNAG,

KDGRP LIKE VBRK-KDGRP,

VBELN LIKE VBRK-VBELN,

FKSTO LIKE VBRK-FKSTO,

FKDAT LIKE VBRK-FKDAT,

  • stceg like vbrk-stceg,

STCEG(20) TYPE C,

REGIO LIKE VBRK-REGIO,

RFBSK LIKE VBRK-RFBSK,

END OF IT_VBRK.

TYPES: BEGIN OF IT_VBRP,

WERKS LIKE VBRP-WERKS,

VGBEL LIKE VBRP-VGBEL,

MATNR LIKE VBRP-MATNR,

VRKME LIKE VBRP-VRKME,

FKIMG LIKE VBRP-FKIMG,

NETWR LIKE VBRP-NETWR, "like vbrp-netwr,

MWSBP LIKE VBRP-MWSBP, "like vbrp-mwsbp,

KZWI4 LIKE VBRP-MWSBP, " like vbrp-kzwi4,

AUBEL LIKE VBRP-AUBEL,

VBELN LIKE VBRP-VBELN,

VSTEL LIKE VBRP-VSTEL,

END OF IT_VBRP.

TYPES:BEGIN OF IT_KNA1,

NAME1 LIKE KNA1-NAME1,

ORT01 LIKE KNA1-ORT01,

PSTLZ LIKE KNA1-PSTLZ,

EKONT LIKE KNA1-EKONT,

KUNNR LIKE KNA1-KUNNR,

STRAS(35) TYPE C,

END OF IT_KNA1.

TYPES: BEGIN OF IT_VBAK,

VBELN LIKE VBAK-VBELN,

AUDAT LIKE VBAK-AUDAT,

KUNNR LIKE VBAK-KUNNR,

END OF IT_VBAK.

TYPES: BEGIN OF IT_LIKP,

WADAT_IST LIKE LIKP-WADAT_IST,

KUNAG LIKE LIKP-KUNAG,

VBELN LIKE LIKP-VBELN,

END OF IT_LIKP.

TYPES: BEGIN OF IT_J_1IEXCHDR,

EXNUM(10) TYPE C,

KUNAG LIKE J_1IEXCHDR-KUNAG,

WERKS LIKE J_1IEXCHDR-WERKS,

RDOC LIKE J_1IEXCHDR-RDOC,

END OF IT_J_1IEXCHDR.

TYPES: BEGIN OF IT_MARM,

MATNR LIKE MARM-MATNR,

UMREZ LIKE MARM-UMREZ,

MEINH LIKE MARM-MEINH,

UMREN LIKE MARM-UMREN,

END OF IT_MARM.

*************************************************

*INTERNAL TABLE DECLARATION

DATA: I_FINAL TYPE STANDARD TABLE OF IT_FINAL,

I_VBRP TYPE STANDARD TABLE OF IT_VBRP,

I_VBRK TYPE STANDARD TABLE OF IT_VBRK,

I_KNA1 TYPE STANDARD TABLE OF IT_KNA1,

I_VBAK TYPE STANDARD TABLE OF IT_VBAK,

I_LIKP TYPE STANDARD TABLE OF IT_LIKP,

I_J_1IEXCHDR TYPE STANDARD TABLE OF IT_J_1IEXCHDR,

I_MARM TYPE STANDARD TABLE OF IT_MARM.

*************************************************

*DECLARATION FOR THE WORK AREA

DATA: WA_FINAL TYPE IT_FINAL,

WA_VBRP TYPE IT_VBRP,

WA_VBRK TYPE IT_VBRK,

WA_KNA1 TYPE IT_KNA1,

WA_VBAK TYPE IT_VBAK,

WA_LIKP TYPE IT_LIKP,

WA_J_1IEXCHDR TYPE IT_J_1IEXCHDR,

WA_MARM TYPE IT_MARM.

**************************************************

  • * DECLARATION FOR THE FIELD CATALOG.

DATA: FIELDCATALOG TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,

WA_FIELDCATALOG TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,

GD_LAYOUT TYPE SLIS_LAYOUT_ALV.

DATA IT_SORT1 TYPE SLIS_T_SORTINFO_ALV WITH HEADER LINE.

DATA HEADING1 TYPE SLIS_T_LISTHEADER WITH HEADER LINE.

DATA GD_REPID LIKE SY-REPID.

*********************************************************

*DECLARATION FOR THE SELECTION SCREEN

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

SELECT-OPTIONS: CUST FOR VBRK-KUNAG,

CUST_GRP FOR VBRK-KDGRP,

MAT_NO FOR VBRP-MATNR,

PLANT FOR VBRP-WERKS OBLIGATORY,

SHIP_PT FOR VBRP-VSTEL,

BILL_DOC FOR VBRK-VBELN,

SAL_OFF FOR VBRP-VKBUR,

BILL_TYP FOR VBRK-FKART,

DATE FOR VBRK-FKDAT.

  • PARAMETERS:REGIO LIKE VBRK-REGIO DEFAULT '13' OBLIGATORY.

SELECTION-SCREEN :END OF BLOCK B1.

********************************************************************************

*DECLARATION FOR THE SUBROUTIN FOR BASIC LIST.

PERFORM F_GET_I_VBRK_DATA.

PERFORM F_GET_I_VBRP_DATA.

PERFORM F_GET_I_KNA1_DATA.

PERFORM F_GET_I_VBAK_DATA.

PERFORM F_GET_I_LIKP_DATA.

PERFORM F_GET_I_J_1IEXCHDR_DATA.

PERFORM F_GET_I_MARM_DATA.

PERFORM F_GET_I_FINAL_DATA.

PERFORM DATA_BUILD.

PERFORM DATA_CALL.

FORM F_GET_I_VBRK_DATA.

SELECT KUNAG KDGRP VBELN FKSTO FKDAT STCEG REGIO RFBSK REGIO

FROM VBRK

INTO CORRESPONDING FIELDS OF TABLE I_VBRK

WHERE FKDAT IN DATE

AND KUNAG IN CUST

AND KDGRP IN CUST_GRP

AND VBELN IN BILL_DOC

AND FKART IN BILL_TYP.

*AND REGIO LIKE REGIO.

ENDFORM.

FORM F_GET_I_VBRP_DATA.

SELECT WERKS VGBEL MATNR VRKME FKIMG NETWR MWSBP KZWI4 VBELN AUBEL VSTEL

FROM VBRP

INTO CORRESPONDING FIELDS OF TABLE I_VBRP FOR ALL ENTRIES IN I_VBRK

WHERE VBELN = I_VBRK-VBELN

AND VKBUR IN SAL_OFF

AND MATNR IN MAT_NO

AND VSTEL IN SHIP_PT

AND WERKS IN PLANT .

ENDFORM.

FORM F_GET_I_KNA1_DATA.

SELECT NAME1 ORT01 PSTLZ EKONT KUNNR STRAS

FROM KNA1

INTO CORRESPONDING FIELDS OF TABLE I_KNA1

FOR ALL ENTRIES IN I_VBRK

WHERE KUNNR = I_VBRK-KUNAG.

ENDFORM.

FORM F_GET_I_VBAK_DATA.

SELECT VBELN AUDAT KUNNR

FROM VBAK

INTO CORRESPONDING FIELDS OF TABLE I_VBAK

FOR ALL ENTRIES IN I_VBRP

WHERE VBELN = I_VBRP-AUBEL.

*for all entries in i_vbrk

*where kunnr = i_vbrk-kunag .

ENDFORM.

FORM F_GET_I_LIKP_DATA.

SELECT WADAT_IST KUNAG VBELN

FROM LIKP

INTO CORRESPONDING FIELDS OF TABLE I_LIKP

FOR ALL ENTRIES IN I_VBRP

WHERE VBELN = I_VBRP-VGBEL.

*for all entries in i_vbrk

*where kunag = i_vbrk-kunag.

ENDFORM.

FORM F_GET_I_J_1IEXCHDR_DATA.

SELECT EXNUM WERKS KUNAG RDOC

FROM J_1IEXCHDR

INTO CORRESPONDING FIELDS OF TABLE I_J_1IEXCHDR

FOR ALL ENTRIES IN I_VBRK

WHERE RDOC = I_VBRK-VBELN .

ENDFORM.

FORM F_GET_I_MARM_DATA.

SELECT MATNR UMREZ UMREN MEINH

FROM MARM

INTO CORRESPONDING FIELDS OF TABLE I_MARM

FOR ALL ENTRIES IN I_VBRP

WHERE MEINH = 'EA' AND MATNR = I_VBRP-MATNR.

ENDFORM.

*for all entries in i_vbrp

*where werks = i_vbrp-werks .

*where kunag = i_vbrk-kunag .

FORM F_GET_I_FINAL_DATA.

LOOP AT I_VBRP INTO WA_VBRP.

WA_FINAL-WERKS = WA_VBRP-WERKS.

WA_FINAL-VGBEL = WA_VBRP-VGBEL.

WA_FINAL-MATNR = WA_VBRP-MATNR.

WA_FINAL-VRKME = WA_VBRP-VRKME.

WA_FINAL-FKIMG = WA_VBRP-FKIMG.

WA_FINAL-NETWR = WA_VBRP-NETWR.

WA_FINAL-MWSBP = WA_VBRP-MWSBP.

WA_FINAL-KZWI4 = WA_VBRP-KZWI4.

WA_FINAL-AUBEL = WA_VBRP-AUBEL.

WA_FINAL-VSTEL = WA_VBRP-VSTEL.

WA_FINAL-VBELN = WA_VBRP-VBELN.

CLEAR WA_VBRK.

READ TABLE I_VBRK INTO WA_VBRK WITH KEY VBELN = WA_VBRP-VBELN.

IF SY-SUBRC = 0.

WA_FINAL-KUNAG = WA_VBRK-KUNAG.

WA_FINAL-KDGRP = WA_VBRK-KDGRP.

WA_FINAL-VBELN = WA_VBRK-VBELN.

WA_FINAL-FKSTO = WA_VBRK-FKSTO.

WA_FINAL-FKDAT = WA_VBRK-FKDAT.

WA_FINAL-STCEG = WA_VBRK-STCEG.

WA_FINAL-REGIO = WA_VBRK-REGIO.

WA_FINAL-RFBSK = WA_VBRK-RFBSK.

ENDIF.

CLEAR WA_KNA1.

READ TABLE I_KNA1 INTO WA_KNA1 WITH KEY KUNNR = WA_VBRK-KUNAG.

IF SY-SUBRC = 0.

WA_FINAL-NAME1 = WA_KNA1-NAME1.

WA_FINAL-ORT01 = WA_KNA1-ORT01.

WA_FINAL-PSTLZ = WA_KNA1-PSTLZ.

WA_FINAL-STRAS = WA_KNA1-STRAS.

WA_FINAL-KUNAG = WA_KNA1-KUNNR.

ENDIF.

CLEAR WA_VBAK.

READ TABLE I_VBAK INTO WA_VBAK WITH KEY VBELN = WA_VBRP-AUBEL. "kunnr = wa_vbrk-kunag.

IF SY-SUBRC = 0.

WA_FINAL-AUDAT = WA_VBAK-AUDAT.

WA_FINAL-KUNAG = WA_VBAK-KUNNR.

ENDIF.

CLEAR WA_LIKP.

READ TABLE I_LIKP INTO WA_LIKP WITH KEY VBELN = WA_VBRP-VGBEL. "kunag = wa_vbrk-kunag.

IF SY-SUBRC = 0.

WA_FINAL-WADAT_IST = WA_LIKP-WADAT_IST.

WA_FINAL-KUNAG = WA_LIKP-KUNAG.

ENDIF.

CLEAR WA_J_1IEXCHDR.

READ TABLE I_J_1IEXCHDR INTO WA_J_1IEXCHDR WITH KEY RDOC = WA_VBRK-VBELN. "kunag = wa_vbrk-kunag.

IF SY-SUBRC = 0.

WA_FINAL-EXNUM = WA_J_1IEXCHDR-EXNUM.

WA_FINAL-KUNAG = WA_J_1IEXCHDR-KUNAG.

WA_FINAL-WERKS = WA_J_1IEXCHDR-WERKS.

WA_FINAL-RDOC = WA_J_1IEXCHDR-RDOC.

ENDIF.

CLEAR WA_MARM.

READ TABLE I_MARM INTO WA_MARM WITH KEY MATNR = WA_VBRP-MATNR.

IF SY-SUBRC = 0.

WA_FINAL-MEINH = WA_MARM-MEINH.

WA_FINAL-UMREZ = WA_MARM-UMREZ.

WA_FINAL-UMREN = WA_MARM-UMREN.

WA_FINAL-MATNR = WA_MARM-MATNR.

WA_FINAL-FKIMG1 = WA_VBRP-FKIMG * ( WA_MARM-UMREN / WA_MARM-UMREZ ).

ENDIF.

APPEND WA_FINAL TO I_FINAL.

ENDLOOP.

ENDFORM.

FORM DATA_BUILD.

*break-point.

WA_FIELDCATALOG-FIELDNAME = 'KUNAG'.

WA_FIELDCATALOG-SELTEXT_M = 'Sold-to Party'.

WA_FIELDCATALOG-OUTPUTLEN = 10 .

APPEND WA_FIELDCATALOG TO FIELDCATALOG.

CLEAR WA_FIELDCATALOG.

WA_FIELDCATALOG-FIELDNAME = 'KDGRP'.

WA_FIELDCATALOG-SELTEXT_M = 'Customer Group'.

WA_FIELDCATALOG-OUTPUTLEN = 13 .

APPEND WA_FIELDCATALOG TO FIELDCATALOG.

CLEAR WA_FIELDCATALOG.

WA_FIELDCATALOG-FIELDNAME = 'AUBEL'.

WA_FIELDCATALOG-SELTEXT_M = 'Sales Doc'.

WA_FIELDCATALOG-OUTPUTLEN = 10 .

APPEND WA_FIELDCATALOG TO FIELDCATALOG.

CLEAR WA_FIELDCATALOG.

WA_FIELDCATALOG-FIELDNAME = 'AUDAT'.

WA_FIELDCATALOG-SELTEXT_M = 'Doc Date'.

WA_FIELDCATALOG-OUTPUTLEN = 10 .

APPEND WA_FIELDCATALOG TO FIELDCATALOG.

CLEAR WA_FIELDCATALOG.

WA_FIELDCATALOG-FIELDNAME = 'VGBEL'.

WA_FIELDCATALOG-SELTEXT_M = 'Pgi. No.'.

WA_FIELDCATALOG-OUTPUTLEN = 10 .

APPEND WA_FIELDCATALOG TO FIELDCATALOG.

CLEAR WA_FIELDCATALOG.

WA_FIELDCATALOG-FIELDNAME = 'WADAT_IST'.

WA_FIELDCATALOG-SELTEXT_M = 'Pgi.Date'.

WA_FIELDCATALOG-OUTPUTLEN = 10 .

APPEND WA_FIELDCATALOG TO FIELDCATALOG.

CLEAR WA_FIELDCATALOG.

WA_FIELDCATALOG-FIELDNAME = 'EXNUM'.

WA_FIELDCATALOG-SELTEXT_M = 'Excise No.'.

WA_FIELDCATALOG-OUTPUTLEN = 10 .

APPEND WA_FIELDCATALOG TO FIELDCATALOG.

CLEAR WA_FIELDCATALOG.

WA_FIELDCATALOG-FIELDNAME = 'VBELN' .

WA_FIELDCATALOG-SELTEXT_M = 'Bill Doc'.

WA_FIELDCATALOG-OUTPUTLEN = 12 .

WA_FIELDCATALOG-KEY = 'X'.

APPEND WA_FIELDCATALOG TO FIELDCATALOG.

CLEAR WA_FIELDCATALOG.

WA_FIELDCATALOG-FIELDNAME = 'WERKS'.

WA_FIELDCATALOG-SELTEXT_M = 'Plant'.

WA_FIELDCATALOG-OUTPUTLEN = 8 .

APPEND WA_FIELDCATALOG TO FIELDCATALOG.

CLEAR WA_FIELDCATALOG.

WA_FIELDCATALOG-FIELDNAME = 'FKSTO'.

WA_FIELDCATALOG-SELTEXT_M = 'Cancel'.

WA_FIELDCATALOG-OUTPUTLEN = 8 .

APPEND WA_FIELDCATALOG TO FIELDCATALOG.

CLEAR WA_FIELDCATALOG.

WA_FIELDCATALOG-FIELDNAME = 'FKDAT'.

WA_FIELDCATALOG-SELTEXT_M = 'Billing Date'.

WA_FIELDCATALOG-OUTPUTLEN = 12 .

APPEND WA_FIELDCATALOG TO FIELDCATALOG.

CLEAR WA_FIELDCATALOG.

WA_FIELDCATALOG-FIELDNAME = 'MATNR'.

WA_FIELDCATALOG-SELTEXT_M = 'Mat. No.'.

WA_FIELDCATALOG-OUTPUTLEN = 12 .

APPEND WA_FIELDCATALOG TO FIELDCATALOG.

CLEAR WA_FIELDCATALOG.

WA_FIELDCATALOG-FIELDNAME = 'VRKME'.

WA_FIELDCATALOG-SELTEXT_M = 'Sales Unit'.

WA_FIELDCATALOG-OUTPUTLEN = 10 .

  • WA_FIELDCATALOG-SUBTOT = 'X'.

APPEND WA_FIELDCATALOG TO FIELDCATALOG.

CLEAR WA_FIELDCATALOG.

WA_FIELDCATALOG-FIELDNAME = 'FKIMG'.

WA_FIELDCATALOG-SELTEXT_L = 'Billed Qty in M/4FT/EA'.

WA_FIELDCATALOG-OUTPUTLEN = 20 .

WA_FIELDCATALOG-DO_SUM = 'X'.

  • COLLECT WA_FIELDCATALOG INTO FIELDCATALOG.

APPEND WA_FIELDCATALOG TO FIELDCATALOG.

CLEAR WA_FIELDCATALOG.

WA_FIELDCATALOG-FIELDNAME = 'FKIMG1'.

WA_FIELDCATALOG-SELTEXT_M = 'Billed Qty in NOS.'.

WA_FIELDCATALOG-OUTPUTLEN = 20 .

WA_FIELDCATALOG-DO_SUM = 'X'.

  • COLLECT WA_FIELDCATALOG INTO FIELDCATALOG.

APPEND WA_FIELDCATALOG TO FIELDCATALOG.

CLEAR WA_FIELDCATALOG.

WA_FIELDCATALOG-FIELDNAME = 'NETWR'.

WA_FIELDCATALOG-SELTEXT_M = 'Net Value'.

WA_FIELDCATALOG-OUTPUTLEN = 15 .

WA_FIELDCATALOG-DO_SUM = 'X'.

APPEND WA_FIELDCATALOG TO FIELDCATALOG.

CLEAR WA_FIELDCATALOG.

WA_FIELDCATALOG-FIELDNAME = 'MWSBP'.

WA_FIELDCATALOG-SELTEXT_M = 'Tax Amount'.

WA_FIELDCATALOG-OUTPUTLEN = 15 .

WA_FIELDCATALOG-DO_SUM = 'X'.

APPEND WA_FIELDCATALOG TO FIELDCATALOG.

CLEAR WA_FIELDCATALOG.

WA_FIELDCATALOG-FIELDNAME = 'STCEG'.

WA_FIELDCATALOG-SELTEXT_M = 'Vat Reg. No.'.

WA_FIELDCATALOG-OUTPUTLEN = 15 .

APPEND WA_FIELDCATALOG TO FIELDCATALOG.

CLEAR WA_FIELDCATALOG.

WA_FIELDCATALOG-FIELDNAME = 'VSTEL'.

WA_FIELDCATALOG-SELTEXT_M = 'Shipping Pt'.

WA_FIELDCATALOG-OUTPUTLEN = 10 .

APPEND WA_FIELDCATALOG TO FIELDCATALOG.

CLEAR WA_FIELDCATALOG.

WA_FIELDCATALOG-FIELDNAME = 'REGIO'.

WA_FIELDCATALOG-SELTEXT_M = 'Region'.

WA_FIELDCATALOG-OUTPUTLEN = 8 .

APPEND WA_FIELDCATALOG TO FIELDCATALOG.

CLEAR WA_FIELDCATALOG.

WA_FIELDCATALOG-FIELDNAME = 'RFBSK'.

WA_FIELDCATALOG-SELTEXT_M = 'PsSt'.

WA_FIELDCATALOG-OUTPUTLEN = 5 .

APPEND WA_FIELDCATALOG TO FIELDCATALOG.

CLEAR WA_FIELDCATALOG.

WA_FIELDCATALOG-FIELDNAME = 'KZWI4'.

WA_FIELDCATALOG-SELTEXT_M = 'Subtotal'.

WA_FIELDCATALOG-OUTPUTLEN = 10 .

WA_FIELDCATALOG-DO_SUM = 'X'.

APPEND WA_FIELDCATALOG TO FIELDCATALOG.

CLEAR WA_FIELDCATALOG.

WA_FIELDCATALOG-FIELDNAME = 'NAME1'.

WA_FIELDCATALOG-SELTEXT_M = 'Party Name'.

WA_FIELDCATALOG-OUTPUTLEN = 15 .

APPEND WA_FIELDCATALOG TO FIELDCATALOG.

CLEAR WA_FIELDCATALOG.

WA_FIELDCATALOG-FIELDNAME = 'STRAS'.

WA_FIELDCATALOG-SELTEXT_M = 'Street Name'.

WA_FIELDCATALOG-OUTPUTLEN = 15 .

APPEND WA_FIELDCATALOG TO FIELDCATALOG.

CLEAR WA_FIELDCATALOG.

WA_FIELDCATALOG-FIELDNAME = 'ORT01'.

WA_FIELDCATALOG-SELTEXT_M = 'City'.

WA_FIELDCATALOG-OUTPUTLEN = 10 .

APPEND WA_FIELDCATALOG TO FIELDCATALOG.

CLEAR WA_FIELDCATALOG.

WA_FIELDCATALOG-FIELDNAME = 'PSTLZ'.

WA_FIELDCATALOG-SELTEXT_M = 'Postal Code'.

WA_FIELDCATALOG-OUTPUTLEN = 10 .

APPEND WA_FIELDCATALOG TO FIELDCATALOG.

CLEAR WA_FIELDCATALOG.

REFRESH IT_SORT1.

CLEAR IT_SORT1.

IT_SORT1-FIELDNAME = 'VBELN'.

IT_SORT1-UP = 'X'.

IT_SORT1-SUBTOT = 'X'.

APPEND IT_SORT1.

CLEAR IT_SORT1.

  • IT_SORT1-FIELDNAME = 'VRKME'.

  • IT_SORT1-UP = 'X'.

  • IT_SORT1-SUBTOT = 'X'.

  • APPEND IT_SORT1.

  • CLEAR IT_SORT1.

ENDFORM.

FORM DATA_CALL.

  • data : itab type it_final occurs 0,

  • wa_itab type it_final.

*

*

*loop at i_final into wa_final.

*

*MOVE wa_final-VRKME to wa_itab-VRKME.

*

*add wa_final-fkimg to wa_itab-fkimg.

*

*

*

*

*

*MOVE wa_final-VRKME to wa_itab-VRKME.

*add wa_final-fkimg to wa_itab-fkimg.

*MOVE wa_final-VRKME to wa_itab-VRKME.

*

*

*append wa_itab to itab.

*clear: wa_final, wa_itab.

**endon.

**endat.

  • endloop.

*

*i_final[] = itab[].

GD_REPID = SY-REPID.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

  • I_INTERFACE_CHECK = ' '

  • I_BYPASSING_BUFFER = ' '

  • I_BUFFER_ACTIVE = ' '

I_CALLBACK_PROGRAM = GD_REPID

  • I_CALLBACK_PF_STATUS_SET = ' '

I_CALLBACK_USER_COMMAND = 'USER-COMMAND'

  • I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'

  • I_CALLBACK_HTML_TOP_OF_PAGE = ' '

  • I_CALLBACK_HTML_END_OF_LIST = ' '

  • I_STRUCTURE_NAME =

  • I_BACKGROUND_ID = ' '

I_GRID_TITLE = 'List Of Billing Document'

  • I_GRID_SETTINGS =

IS_LAYOUT = GD_LAYOUT

IT_FIELDCAT = FIELDCATALOG[]

  • IT_EXCLUDING =

  • IT_SPECIAL_GROUPS =

IT_SORT = IT_SORT1[]

  • IT_FILTER =

  • IS_SEL_HIDE =

  • I_DEFAULT = 'X'

I_SAVE = 'X'

  • IS_VARIANT =

  • IT_EVENTS =

  • IT_EVENT_EXIT =

  • IS_PRINT =

  • IS_REPREP_ID =

  • I_SCREEN_START_COLUMN = 0

  • I_SCREEN_START_LINE = 0

  • I_SCREEN_END_COLUMN = 0

  • I_SCREEN_END_LINE = 0

  • IT_ALV_GRAPHICS =

  • IT_HYPERLINK =

  • IT_ADD_FIELDCAT =

  • IT_EXCEPT_QINFO =

  • I_HTML_HEIGHT_TOP =

  • I_HTML_HEIGHT_END =

  • IMPORTING

  • E_EXIT_CAUSED_BY_CALLER =

  • ES_EXIT_CAUSED_BY_USER =

TABLES

T_OUTTAB = I_FINAL

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