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