Dump in block alv
hi experts,
i have made an block alv, it gettimg shortdump, showing
'The ABAP program lines are wider than the internal table.'
how to resolve it?
my code is:
*& Report ZGATEPASS
REPORT zgatepass.
*************tables declaration****************
TABLES: likp.
***************type groups declaration*********
TYPE-POOLS: slis.
**************INTERNAL TABLE DECLARATION*****************
DATA: BEGIN OF it_likp_lips OCCURS 0,
vbeln TYPE likp-vbeln," do no
erdat TYPE likp-erdat," date
kunnr TYPE likp-kunnr,"Ship-to party
traid TYPE likp-traid,"Transport ID
vbtyp TYPE likp-vbtyp,
matnr TYPE lips-matnr,"item
vrkme TYPE lips-vrkme,"UOM
charg TYPE lips-charg," batch
lfimg TYPE lips-lfimg," quantity
arktx TYPE lips-arktx,"sku CODE
END OF it_likp_lips.
DATA: BEGIN OF it_kna1 OCCURS 0,
kunnr TYPE kna1-kunnr,
name1 TYPE kna1-name1,"party name
END OF it_kna1.
DATA: BEGIN OF itab1 OCCURS 0,
vbeln TYPE likp-vbeln," do no
erdat TYPE likp-erdat," date
kunnr TYPE likp-kunnr,"Ship-to party
traid TYPE likp-traid,"Transport ID
text TYPE string,
vbtyp TYPE likp-vbtyp,
matnr TYPE lips-matnr,"item
vrkme TYPE lips-vrkme,"UOM
charg TYPE lips-charg," batch
lfimg TYPE lips-lfimg," quantity
quantity TYPE char15,"lips-lfimg,
arktx TYPE lips-arktx,"sku
name1 TYPE kna1-name1,"party name
END OF itab1.
DATA:itab2 LIKE TABLE OF itab1 WITH HEADER LINE.
*---Reference table
DATA: BEGIN OF itab1_ref OCCURS 0,
arktx TYPE lips-arktx,"sku
name1 TYPE kna1-name1,"party name
vbeln TYPE likp-vbeln," do no
erdat TYPE likp-erdat," date
kunnr TYPE likp-kunnr,"Ship-to party
traid TYPE likp-traid,"Transport ID
text TYPE string,
vbtyp TYPE likp-vbtyp,
matnr TYPE lips-matnr,"item
vrkme TYPE lips-vrkme,"UOM
charg TYPE lips-charg," batch
* lfimg TYPE char15,"lips-lfimg," quantity
lfimg TYPE lips-lfimg," quantity
quantity TYPE char15,"lips-lfimg,
END OF itab1_ref.
DATA: BEGIN OF itab1_ref1 OCCURS 0,
arktx TYPE lips-arktx,"sku
name1 TYPE kna1-name1,"party name
vbeln TYPE likp-vbeln," do no
erdat TYPE likp-erdat," date
kunnr TYPE likp-kunnr,"Ship-to party
traid TYPE likp-traid,"Transport ID
text TYPE string,
vbtyp TYPE likp-vbtyp,
matnr TYPE lips-matnr,"item
vrkme TYPE lips-vrkme,"UOM
charg TYPE lips-charg," batch
lfimg TYPE lips-lfimg," quantity
quantity TYPE char15,"lips-lfimg,
END OF itab1_ref1.
******************for 2nd block****************
DATA: BEGIN OF itab OCCURS 0,
text TYPE string,
arktx TYPE lips-arktx,
lfimg TYPE lips-lfimg,
vrkme TYPE lips-vrkme,
sum TYPE lips-lfimg,
END OF itab.
DATA: BEGIN OF itab3 OCCURS 0,
arktx TYPE lips-arktx,"sku
* traid TYPE likp-traid,"Transport ID
text TYPE string,
lfimg TYPE lips-lfimg," quantity
vrkme TYPE lips-vrkme,"UOM
sum TYPE lips-lfimg,
matnr TYPE lips-matnr,
END OF itab3.
*--add truck wise material sum
DATA: BEGIN OF itab3_ref OCCURS 0,
text TYPE string,
arktx TYPE lips-arktx,"sku
* traid TYPE likp-traid,"Transport ID
lfimg TYPE lips-lfimg," quantity
vrkme TYPE lips-vrkme,"UOM
sum TYPE lips-lfimg,
matnr TYPE lips-matnr,
END OF itab3_ref.
DATA: BEGIN OF itab3_ref1 OCCURS 0,
matnr TYPE lips-matnr,
text TYPE string,
arktx TYPE lips-arktx,"sku
* traid TYPE likp-traid,"Transport ID
lfimg TYPE lips-lfimg," quantity
vrkme TYPE lips-vrkme,"UOM
sum TYPE lips-lfimg,
END OF itab3_ref1.
*---end of truck wise material sum
**************************ALV DATA DECLARATION********************
DATA: it_fcat TYPE slis_t_fieldcat_alv, " FIELDCAT DECLARATION
wa_fcat TYPE slis_fieldcat_alv,
**local work area of event catalog********
it_event TYPE slis_t_event,
wa_event TYPE slis_alv_event,
****************STRUCTURE FOR LAYOUT****
is_layout TYPE slis_layout_alv,"LAYOUT
is1_layout TYPE slis_layout_alv,"LAYOUT
************ALV SORTING******************
it_sort TYPE slis_t_sortinfo_alv,
wa_sort TYPE slis_sortinfo_alv,
repid TYPE sy-repid.
DATA idx TYPE sy-tabix.
repid = sy-repid." PROGRAM NAME
**************************** SELECTION-SCREEN design***************************
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: date FOR likp-erdat ,
truck_no FOR likp-traid OBLIGATORY." truck no
SELECTION-SCREEN END OF BLOCK b1.
************************START-OF-SELECTION**************************
START-OF-SELECTION.
PERFORM get_likp_lips_data.
IF NOT it_likp_lips[] IS INITIAL.
PERFORM get_kna1_data.
ENDIF.
PERFORM get_itab1.
PERFORM get_itab3.
*********************SUBROUTINE FOR ALV LAYOUT***********
PERFORM build_layout_alv.
************************ SUBROUTINE FOR ALV EVENT **********
PERFORM build_events.
*****************subroutine for fieldcatalog**********
PERFORM build_fcat1.
******************ALV SORTING*******************************
PERFORM alv_sort_info.
END-OF-SELECTION.
PERFORM alv_grid_display.
*& Form GET_LIKP_LIPS_DATA
* text
* --> p1 text
* <-- p2 text
FORM get_likp_lips_data .
SELECT likp~vbeln likp~erdat likp~kunnr likp~traid likp~vbtyp lips~matnr lips~vrkme lips~charg lips~lfimg lips~arktx
INTO CORRESPONDING FIELDS OF TABLE it_likp_lips
FROM likp JOIN lips
ON likp~vbeln EQ lips~vbeln
WHERE
likp~traid IN truck_no AND
likp~erdat IN date AND likp~vbtyp = 'J'.
IF sy-subrc <> 0.
* MESSAGE 'NO DATA IN IT_LIKP_LIPS..' TYPE 'E'.
ELSE.
SORT it_likp_lips BY vbeln.
DELETE it_likp_lips WHERE lfimg EQ '0.0'.
* DELETE ADJACENT DUPLICATES FROM IT_LIKP_LIPS.
ENDIF.
ENDFORM. " GET_LIKP_LIPS_DATA
*& Form GET_KNA1_DATA
* text
* --> p1 text
* <-- p2 text
FORM get_kna1_data .
SELECT
kunnr
name1
INTO CORRESPONDING FIELDS OF TABLE it_kna1
FROM kna1
FOR ALL ENTRIES IN it_likp_lips
WHERE kunnr = it_likp_lips-kunnr.
IF sy-subrc <> 0.
* MESSAGE 'NO DATA IN IT_KNA1.' TYPE 'E'.
ELSE.
SORT it_kna1 BY kunnr.
* DELETE ADJACENT DUPLICATES FROM IT_LIKP_LIPS.
ENDIF.
ENDFORM. " GET_KNA1_DATA
*& Form GET_ITAB1
* text
* --> p1 text
* <-- p2 text
FORM get_itab1 .
*---ADD CODE
LOOP AT it_likp_lips.
itab1-vbeln = it_likp_lips-vbeln.
PERFORM delete_leading_zeros USING itab1-vbeln .
itab1-erdat = it_likp_lips-erdat.
itab1-kunnr = it_likp_lips-kunnr.
itab1-traid = it_likp_lips-traid.
itab1-text = itab1-traid.
itab1-matnr = it_likp_lips-matnr.
itab1-vrkme = it_likp_lips-vrkme.
itab1-lfimg = it_likp_lips-lfimg.
* ITAB1-quantity = it_likp_lips-lfimg.
itab1-arktx = it_likp_lips-arktx.
READ TABLE it_kna1 WITH KEY kunnr = it_likp_lips-kunnr BINARY SEARCH.
IF sy-subrc = 0.
itab1-name1 = it_kna1-name1.
ENDIF.
APPEND itab1.
ENDLOOP.
LOOP AT itab1.
MOVE-CORRESPONDING :itab1 TO itab1_ref1.
APPEND :itab1_ref1.
ENDLOOP.
DELETE ADJACENT DUPLICATES FROM itab1 COMPARING vbeln.
LOOP AT itab1.
LOOP AT itab1_ref1 WHERE vbeln EQ itab1-vbeln.
MOVE-CORRESPONDING itab1_ref1 TO itab1_ref.
APPEND itab1_ref.
LOOP AT itab1_ref WHERE vbeln EQ itab1-vbeln AND matnr EQ itab1_ref1-matnr.
idx = sy-tabix.
AT END OF arktx.
* MOVE-CORRESPONDING itab2 TO itab1_ref1.
DO 5 TIMES.
itab1_ref-text = ' '.
itab1_ref-vbeln = ' '.
itab1_ref-name1 = ' '.
itab1_ref-arktx = ' '.
itab1_ref-lfimg = ' '.
itab1_ref-vrkme = ' '.
itab1_ref-charg = ' '.
itab1_ref-quantity = ' '.
APPEND itab1_ref.
CLEAR :itab1_ref.
* MODIFY itab1_ref INDEX idx TRANSPORTING text vbeln name1 arktx lfimg vrkme charg quantity.
ENDDO.
ENDAT.
ENDLOOP.
ENDLOOP.
ENDLOOP.
REFRESH itab1.
LOOP AT itab1_ref.
MOVE-CORRESPONDING itab1_ref TO itab1.
APPEND itab1.
ENDLOOP.
ENDFORM. " GET_ITAB1
*& Form GET_ITAB3
* text
* --> p1 text
* <-- p2 text
FORM get_itab3 .
DATA: sum TYPE lips-lfimg.
SORT itab1_ref BY text.
LOOP AT itab1_ref.
MOVE-CORRESPONDING itab1_ref TO itab3.
* MOVE itab1_ref-matnr TO itab3-matnr.
APPEND itab3.
CLEAR itab3.
DELETE itab3 WHERE text = ''.
ENDLOOP.
SORT itab3 BY matnr arktx text .
* LOOP AT itab3.
* sum = sum + itab3-lfimg.
* AT END OF arktx.
* itab-text = itab3-text.
* itab-arktx = itab3-arktx.
** itab-lfimg = itab3-lfimg.
* itab-sum = sum.
* itab-vrkme = itab3-vrkme.
* APPEND itab.
* CLEAR itab.
* ENDAT.
* ENDLOOP.
LOOP AT itab3.
MOVE-CORRESPONDING itab3 TO itab3_ref.
APPEND itab3_ref.
MOVE-CORRESPONDING itab3 TO itab3_ref1.
APPEND itab3_ref1.
ENDLOOP.
*---sort required for truck wise material qty
SORT itab3_ref BY text.
DELETE ADJACENT DUPLICATES FROM itab3_ref COMPARING text.
SORT itab3_ref1 BY matnr text.
LOOP AT itab3_ref .
LOOP AT itab3_ref1 WHERE text EQ itab3_ref-text.
sum = sum + itab3_ref1-lfimg.
AT END OF arktx.
itab-text = itab3_ref1-text.
itab-arktx = itab3_ref1-arktx.
* itab-lfimg = itab3-lfimg.
itab-sum = sum.
itab-vrkme = itab3_ref1-vrkme.
APPEND itab.
CLEAR :itab,sum.
ENDAT.
ENDLOOP.
ENDLOOP.
ENDFORM. " GET_ITAB12
*& Form BUILD_LAYOUT_ALV
* text
* --> p1 text
* <-- p2 text
FORM build_layout_alv .
is_layout-colwidth_optimize = 'X'.
ENDFORM. " BUILD_LAYOUT_ALV
*& Form BUILD_EVENTS
* text
* --> p1 text
* <-- p2 text
FORM build_events .
* CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
* EXPORTING
* i_list_type = 0
* IMPORTING
* et_events = it_event
* 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 it_event INTO wa_event WITH KEY name =
* slis_ev_top_of_page.
* IF sy-subrc EQ 0.
* wa_event-form = 'TOP'.
* MODIFY it_event FROM wa_event INDEX sy-tabix TRANSPORTING form.
* ENDIF.
ENDFORM. " BUILD_EVENTS
*& Form TOP
* text
FORM top.
**Alv list header decleration
* DATA: it_header TYPE STANDARD TABLE OF slis_listheader,
* wa_header TYPE slis_listheader.
**Title
* wa_header-typ = 'H'.
* wa_header-info = 'GATEPASS'.
* APPEND wa_header TO it_header.
**Date
* wa_header-typ = 'S'.
* wa_header-key = 'Date:'.
* CONCATENATE sy-datum+6(2) '.'
* sy-datum+4(2) '.'
* sy-datum(4)
* INTO wa_header-info.
* APPEND wa_header TO it_header.
**Username
* wa_header-typ = 'S'.
* wa_header-key = 'User:'.
* wa_header-info = sy-uname.
* APPEND wa_header TO it_header.
**Time
* wa_header-typ = 'S'.
* wa_header-key = 'Time:'.
* CONCATENATE sy-uzeit(2)':'
* sy-uzeit+2(2)':'
* sy-uzeit+4(2)'.'
* INTO wa_header-info.
** LWA_HEADER-INFO = SY-UZEIT.
* APPEND wa_header TO it_header.
* wa_header-typ = 'A'.
* APPEND wa_header TO it_header.
* CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
* EXPORTING
* it_list_commentary = it_header
* i_logo = 'KAL_LOGO'.
** I_END_OF_LIST_GRID =
ENDFORM. "top
*& Form BUILD_FCAT1
* text
* -->P_0215 text
* -->P_0216 text
* -->P_0217 text
* -->P_0218 text
FORM build_fcat1 .
wa_fcat-col_pos = 1.
wa_fcat-tabname = 'ITAB1'.
wa_fcat-fieldname = 'TEXT'.
wa_fcat-emphasize = 'C701'.
*WA_FCAT-key = 'X'.
wa_fcat-seltext_m = 'TRUCKNO'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
wa_fcat-col_pos = 2.
wa_fcat-tabname = 'ITAB1'.
wa_fcat-fieldname = 'VBELN'.
wa_fcat-emphasize = 'C501'.
wa_fcat-key = 'X'.
wa_fcat-seltext_m = 'DONO'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
wa_fcat-col_pos = 3.
wa_fcat-tabname = 'ITAB1'.
wa_fcat-fieldname = 'NAME1'.
wa_fcat-emphasize = 'C401'.
*WA_FCAT-key = 'X'.
wa_fcat-seltext_m = 'PARTY NAME'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
wa_fcat-col_pos = 4.
wa_fcat-tabname = 'ITAB1'.
wa_fcat-fieldname = 'ARKTX'.
wa_fcat-emphasize = 'C301'.
*WA_FCAT-key = 'X'.
wa_fcat-seltext_m = 'SKUCODE'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
wa_fcat-col_pos = 5.
wa_fcat-tabname = 'ITAB1'.
wa_fcat-fieldname = 'LFIMG'.
wa_fcat-emphasize = 'C701'.
*WA_FCAT-key = 'X'.
* wa_fcat-do_sum = 'X'.
wa_fcat-seltext_m = 'QUANTITY'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
wa_fcat-col_pos = 6.
wa_fcat-tabname = 'ITAB1'.
wa_fcat-fieldname = 'VRKME'.
wa_fcat-emphasize = 'C401'.
*WA_FCAT-key = 'X'.
wa_fcat-seltext_m = 'UOM'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
wa_fcat-col_pos = 7.
wa_fcat-tabname = 'ITAB1'.
wa_fcat-fieldname = 'CHARG'.
wa_fcat-emphasize = 'C601'.
*WA_FCAT-key = 'X'.
wa_fcat-seltext_m = 'BATCH'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
wa_fcat-col_pos = 8.
wa_fcat-tabname = 'ITAB1'.
wa_fcat-fieldname = 'QUANTITY'.
wa_fcat-emphasize = 'C701'.
*WA_FCAT-key = 'X'.
wa_fcat-seltext_m = 'QUANTITY'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ENDFORM. " BUILD_FCAT1
*& Form ALV_SORT_INFO
* text
* --> p1 text
* <-- p2 text
FORM alv_sort_info .
** wa_sort-spos = 1.
** wa_sort-fieldname = 'TEXT'.
** wa_sort-tabname = 'ITAB1'.
** wa_sort-down = 'X'.
** APPEND wa_sort TO it_sort.
** CLEAR wa_sort.
** wa_sort-spos = 2.
** wa_sort-fieldname = 'VBELN'.
** wa_sort-tabname = 'ITAB1'.
** wa_sort-up = 'X'.
** APPEND wa_sort TO it_sort.
** CLEAR wa_sort.
** wa_sort-spos = 4.
** wa_sort-fieldname = 'ARKTX'.
** wa_sort-tabname = 'ITAB1'.
** wa_sort-down = 'X'.
** APPEND wa_sort TO it_sort.
** CLEAR wa_sort.
** wa_sort-spos = 5.
** wa_sort-fieldname = 'LFIMG'.
** wa_sort-tabname = 'ITAB1'.
** wa_sort-down = 'X'.
** APPEND wa_sort TO it_sort.
** CLEAR wa_sort.
**lw_sort-fieldname = 'CONNID'. "sort depending on which field
** lw_sort-subtot = 'X'. "sub calculate depending on this field
** lw_sort-up = 'X'. "ascending sequence
** APPEND lw_sort TO pi_sort.
** CLEAR lw_sort.
* wa_sort-spos = 5.
* wa_sort-fieldname = 'LFIMG'.
* wa_sort-tabname = 'ITAB1'.
* wa_sort-down = 'X'.
* WA_SORT-SUBTOT = 'X'.
* APPEND wa_sort TO it_sort.
* CLEAR wa_sort.
** wa_sort-spos = 7.
** wa_sort-fieldname = 'CHARG'.
** wa_sort-tabname = 'ITAB1'.
** wa_sort-down = 'X'.
** APPEND wa_sort TO it_sort.
** CLEAR wa_sort.
ENDFORM. " ALV_SORT_INFO
*& Form ALV_GRID_DISPLAY
* text
* --> p1 text
* <-- p2 text
FORM alv_grid_display .
DATA:repid TYPE sy-repid VALUE sy-repid.
repid = sy-repid." PROGRAM NAME
*--------------- ADD INTERNAL TABLE ITAB1
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
i_program_name = sy-repid
i_internal_tabname = 'ITAB1'
* I_STRUCTURE_NAME =
* I_CLIENT_NEVER_DISPLAY = 'X'
i_inclname = sy-repid
* I_BYPASSING_BUFFER =
* I_BUFFER_ACTIVE =
CHANGING
ct_fieldcat = it_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_BLOCK_LIST_APPEND'
EXPORTING
is_layout = is_layout
it_fieldcat = it_fcat
i_tabname = 'ITAB1'
it_events = it_event
TABLES
t_outtab = itab1
EXCEPTIONS
program_error = 1
maximum_of_appends_reached = 2
OTHERS = 3.
*------------------- ADD INTERNAL TABLE ITAB
REFRESH it_fcat[].
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
i_program_name = sy-repid
i_internal_tabname = 'ITAB'
i_inclname = sy-repid
CHANGING
ct_fieldcat = it_fcat.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
is_layout = is_layout
it_fieldcat = it_fcat
i_tabname = 'ITAB'
it_events = it_event
TABLES
t_outtab = itab
EXCEPTIONS
program_error = 1
maximum_of_appends_reached = 2
OTHERS = 3.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'
EXCEPTIONS
program_error = 1
OTHERS = 2.
* CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
* EXPORTING
** I_INTERFACE_CHECK = ' '
** I_BYPASSING_BUFFER = ' '
** I_BUFFER_ACTIVE = ' '
* i_callback_program = repid
** I_CALLBACK_PF_STATUS_SET = ' '
** I_CALLBACK_USER_COMMAND = ' '
** I_CALLBACK_TOP_OF_PAGE = ' '
** I_CALLBACK_HTML_TOP_OF_PAGE = ' '
** I_CALLBACK_HTML_END_OF_LIST = ' '
** I_STRUCTURE_NAME =
** I_BACKGROUND_ID = ' '
** I_GRID_TITLE =
** I_GRID_SETTINGS =
* is_layout = is_layout
* it_fieldcat = it_fcat
** IT_EXCLUDING =
** IT_SPECIAL_GROUPS =
* it_sort = it_sort
** IT_FILTER =
** IS_SEL_HIDE =
** I_DEFAULT = 'X'
** I_SAVE = ' '
** IS_VARIANT =
* it_events = it_event
** 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
** I_HTML_HEIGHT_TOP = 0
** I_HTML_HEIGHT_END = 0
** IT_ALV_GRAPHICS =
** IT_HYPERLINK =
** IT_ADD_FIELDCAT =
** IT_EXCEPT_QINFO =
** IR_SALV_FULLSCREEN_ADAPTER =
** IMPORTING
** E_EXIT_CAUSED_BY_CALLER =
** ES_EXIT_CAUSED_BY_USER =
* TABLES
* t_outtab = itab1
* 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. " ALV_GRID_DISPLAY
*& Form DELETE_LEADING_ZEROS
* text
* -->P_ITAB1_VBELN text
FORM delete_leading_zeros USING p_var.
SHIFT p_var LEFT DELETING LEADING '0' .
ENDFORM. " DELETE_LEADING_ZEROS
SEE THE FOLLOWING EXAMPLE:
REPORT ZBLOCK_ALV.
CONSTANTS :
c_x VALUE 'X'.
* Macro definition
DEFINE m_fieldcat.
ls_fieldcat-fieldname = &1.
ls_fieldcat-ref_tabname = &2.
ls_fieldcat-tabname = &3.
append ls_fieldcat to lt_fieldcat.
END-OF-DEFINITION.
DEFINE m_sort.
ls_sort-fieldname = &1.
ls_sort-up = c_x.
append ls_sort to lt_sort.
END-OF-DEFINITION.
TYPE-POOLS: slis. " ALV Global types
TYPES:
* 1st Table
BEGIN OF ty_kna1,
kunnr TYPE kna1-kunnr, " Customer number
ernam TYPE kna1-ernam, " Name of Person who Created
erdat TYPE kna1-erdat, " Creation date
name1 TYPE kna1-name1, " Name 1 .
END OF ty_kna1,
* 2nd Table
BEGIN OF ty_mara,
matnr TYPE mara-matnr, " Material number
ernam TYPE mara-ernam, " Name of Person who Created
ersda TYPE mara-ersda, " Creation date
mtart TYPE mara-mtart, " Material type
matkl TYPE mara-matkl, " Material group
END OF ty_mara,
* 3rd Table
BEGIN OF ty_vbak,
vbeln TYPE vbak-vbeln, " Sales document
vkorg TYPE vbak-vkorg, " Sales organization
vtweg TYPE vbak-vtweg, " Distribution channel
kunnr TYPE vbak-kunnr, " Sold-to party
erdat TYPE vbak-erdat, " Creation date
END OF ty_vbak.
DATA:
gs_layout TYPE slis_layout_alv,
gt_kna1 TYPE TABLE OF ty_kna1,
gt_mara TYPE TABLE OF ty_mara,
gt_vbak TYPE TABLE OF ty_vbak.
SELECTION-SCREEN :
SKIP, BEGIN OF LINE,COMMENT 5(27) v_1 FOR FIELD p_max. "#EC NEEDED
PARAMETERS p_max(2) TYPE n DEFAULT '02' OBLIGATORY.
SELECTION-SCREEN END OF LINE.
INITIALIZATION.
v_1 = 'Maximum of records to read'.
START-OF-SELECTION.
* Read data
SELECT kunnr ernam erdat name1
FROM kna1
UP TO p_max ROWS
INTO TABLE gt_kna1.
SELECT matnr ernam ersda mtart matkl
FROM mara
UP TO p_max ROWS
INTO TABLE gt_mara.
SELECT vbeln vkorg vtweg kunnr erdat
FROM vbak
UP TO p_max ROWS
INTO TABLE gt_vbak.
END-OF-SELECTION.
PERFORM f_display_data.
* FORM USER_COMMAND *
FORM user_command USING u_ucomm TYPE sy-ucomm
us_selfield TYPE slis_selfield. "#EC CALLED
DATA:
ls_vbak TYPE ty_vbak.
CASE u_ucomm.
WHEN '&IC1'. " Pick
CASE us_selfield-tabname.
WHEN 'GT_MARA'.
WHEN 'GT_KNA1'.
WHEN 'GT_VBAK'.
READ TABLE gt_vbak INDEX us_selfield-tabindex INTO ls_vbak.
IF sy-subrc EQ 0.
SET PARAMETER ID 'AUN' FIELD ls_vbak-vbeln.
CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.
ENDIF.
ENDCASE.
ENDCASE.
ENDFORM. " USER_COMMAND
* Form f_display_data
FORM f_display_data.
DATA :
ls_fieldcat TYPE slis_fieldcat_alv,
lt_fieldcat TYPE slis_t_fieldcat_alv, " Field catalog
ls_sort TYPE slis_sortinfo_alv,
lt_sort TYPE slis_t_sortinfo_alv, " Sort table
lt_events TYPE slis_t_event,
ls_event TYPE slis_alv_event.
gs_layout-group_change_edit = c_x.
gs_layout-colwidth_optimize = c_x.
gs_layout-zebra = c_x.
gs_layout-detail_popup = c_x.
gs_layout-get_selinfos = c_x.
* Build field catalog and sort table
m_fieldcat 'KUNNR' 'KNA1' 'GT_KNA1'.
m_fieldcat 'ERNAM' 'KNA1' 'GT_KNA1'.
m_fieldcat 'ERDAT' 'KNA1' 'GT_KNA1'.
m_fieldcat 'NAME1' 'KNA1' 'GT_KNA1'.
m_sort 'KUNNR'.
* Build Event Table
MOVE 'TOP_OF_PAGE' TO ls_event-name.
MOVE 'TOP_OF_PAGE' TO ls_event-form.
APPEND ls_event TO lt_events.
MOVE 'END_OF_LIST' TO ls_event-name.
MOVE 'END_OF_LIST' TO ls_event-form.
APPEND ls_event TO lt_events.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
i_callback_program = sy-cprog
i_callback_user_command = 'USER_COMMAND'
it_fieldcat = lt_fieldcat
is_layout = gs_layout
it_events = lt_events
it_sort = lt_sort
i_save = 'A'
TABLES
t_outtab = gt_kna1.
ENDFORM. " F_DISPLAY_DATA
* FORM top_of_page *
FORM top_of_page. "#EC CALLED
ULINE.
WRITE : sy-uname, sy-title(56) CENTERED, sy-datum.
ULINE.
ENDFORM. " TOP_OF_PAGE
* FORM End_of_list *
FORM end_of_list. "#EC CALLED
DATA :
ls_fieldcat TYPE slis_fieldcat_alv,
lt_fieldcat TYPE slis_t_fieldcat_alv, " Field catalog
ls_sort TYPE slis_sortinfo_alv,
lt_sort TYPE slis_t_sortinfo_alv, " Sort table
lt_events TYPE slis_t_event,
ls_event TYPE slis_alv_event.
* Build field catalog and sort table
m_fieldcat 'MATNR' 'MARA' 'GT_MARA'.
m_fieldcat 'ERNAM' 'MARA' 'GT_MARA'.
m_fieldcat 'ERSDA' 'MARA' 'GT_MARA'.
m_fieldcat 'MTART' 'MARA' 'GT_MARA'.
m_fieldcat 'MATKL' 'MARA' 'GT_MARA'.
m_sort 'MATNR'.
* Build Event Table
MOVE 'END_OF_LIST' TO ls_event-name.
MOVE 'END_OF_LIST_2' TO ls_event-form.
APPEND ls_event TO lt_events.
gs_layout-list_append = c_x.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
i_callback_program = sy-cprog
it_fieldcat = lt_fieldcat
is_layout = gs_layout
it_sort = lt_sort
it_events = lt_events
i_save = 'A'
TABLES
t_outtab = gt_mara.
ENDFORM. " END_OF_LIST
* FORM End_of_list_2 *
FORM end_of_list_2. "#EC CALLED
DATA :
ls_fieldcat TYPE slis_fieldcat_alv,
lt_fieldcat TYPE slis_t_fieldcat_alv, " Field catalog
ls_sort TYPE slis_sortinfo_alv,
lt_sort TYPE slis_t_sortinfo_alv, " Sort table
lt_events TYPE slis_t_event,
ls_event TYPE slis_alv_event.
* Build field catalog and sort table
m_fieldcat 'VBELN' 'VBAK' 'GT_VBAK'.
m_fieldcat 'VKORG' 'VBAK' 'GT_VBAK'.
m_fieldcat 'VTWEG' 'VBAK' 'GT_VBAK'.
m_fieldcat 'KUNNR' 'VBAK' 'GT_VBAK'.
m_fieldcat 'ERDAT' 'VBAK' 'GT_VBAK'.
m_sort 'VBELN'.
* Build Event Table
MOVE 'TOP_OF_PAGE' TO ls_event-name.
MOVE 'TOP_OF_PAGE' TO ls_event-form.
APPEND ls_event TO lt_events.
gs_layout-list_append = c_x.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
i_callback_program = sy-cprog
it_fieldcat = lt_fieldcat
is_layout = gs_layout
it_sort = lt_sort
it_events = lt_events
i_save = 'A'
TABLES
t_outtab = gt_vbak.
ENDFORM. " END_OF_LIST_2
Similar Messages
-
hi experts,
i have created blocked ALV program.
in the o/p , it displays list of recors for open items,then list of records for cleared items.
now i want it to display sum of both open and cleared items of particular column.
in grid display it is displaying total for open and cleared items.
but in blocked alv it is not displaying total for open and closed items separately.
and also i need grand total of both.
if any body knows please tell me..Hi Sridevi
Refer this code as an example.
This code calculates the occupied column from sflight table.
TYPE-POOLS: slis.
DATA:it_fieldcat TYPE slis_t_fieldcat_alv,
is_layout TYPE slis_layout_alv,
it_events TYPE slis_t_event ,
it_sort TYPE slis_t_sortinfo_alv .
DATA: wa_fcat LIKE LINE OF it_fieldcat,
wa_sort LIKE LINE OF it_sort.
DATA: i_flight TYPE sflight_tab1.
SELECT * FROM sflight
INTO TABLE i_flight
UP TO 10 ROWS.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
i_program_name = sy-repid
i_structure_name = 'SFLIGHT'
CHANGING
ct_fieldcat = it_fieldcat
EXCEPTIONS
inconsistent_interface = 1
program_error = 2.
wa_fcat-do_sum = 'X'.
MODIFY it_fieldcat FROM wa_fcat
TRANSPORTING do_sum WHERE fieldname = 'SEATSOCC'.
wa_sort-up = 'X'.
wa_sort-fieldname = 'CARRID'.
wa_sort-subtot = 'X'.
APPEND wa_sort TO it_sort.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'
EXPORTING
i_callback_program = sy-repid.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
is_layout = is_layout
it_fieldcat = it_fieldcat
i_tabname = 'I_FLIGHT'
it_events = it_events
it_sort = it_sort
* I_TEXT = ' '
TABLES
t_outtab = i_flight
EXCEPTIONS
program_error = 1
maximum_of_appends_reached = 2
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
is_layout = is_layout
it_fieldcat = it_fieldcat
i_tabname = 'I_FLGIHT'
it_events = it_events
it_sort = it_sort
* I_TEXT = ' '
TABLES
t_outtab = i_flight
EXCEPTIONS
program_error = 1
maximum_of_appends_reached = 2
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'
Thanks and Regards -
Hi Experts,
Can i achieve sorting in Blocked ALV report as we can do in ALV Grid Display.???
If so, how can this be achieved????
For example, if there are 3 records with the same value for a field.....say thfreee rows with name 'Gaurav'.
I want to show 'Gaurav' only in the first row and the other two rows must be empty.
Gaurav 1 2 3
Gaurav 4 5 6
Gaurav 7 8 9
Should be seen as
Gaurav 1 2 3
4 5 6
7 8 9
Thanks and regards
Gaurav raghavHere is the code.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
i_program_name = sy-repid
i_structure_name = 'ZCRM_ACTIVITY_REPORT'
CHANGING
ct_fieldcat = gt_fieldcatalog[]
EXCEPTIONS
inconsistent_interface = 1
program_error = 2
OTHERS = 3.
IF sy-subrc EQ 0.
CLEAR gs_sort.
gs_sort-fieldname = 'ORG'.
gs_sort-tabname = 'GT_ITAB'.
gs_sort-spos = '1'.
gs_sort-up = 'X'.
APPEND gs_sort TO gt_sort.
CLEAR gs_sort.
gs_sort-fieldname = 'EMPLOYEE'.
gs_sort-tabname = 'GT_ITAB'.
gs_sort-spos = '2'.
gs_sort-up = 'X'.
APPEND gs_sort TO gt_sort.
ENDIF.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
is_layout = gt_layout
it_fieldcat = gt_fieldcatalog
i_tabname = 'GT_ITAB'
it_events = gt_events
it_sort = gt_sort
i_text = 'Report 1 '
TABLES
t_outtab = gt_itab
EXCEPTIONS
program_error = 1
maximum_of_appends_reached = 2
OTHERS = 3.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'. -
Hi to all,
Iam displaying out put in BLOCKEd ALV using 2 internal tables.
Each table has 10 fields.
When I double click on particular column entry, it should call Transaction iw33.
Other 9 columns should not call transacton if i select entry from the column.
But iam able to call transaction for all the other column entries.
Iam tried using this with slis_selfield structure.
In the run time this structure is not capturing the fieldname.
How can i capture field name.
kindly send yr valuable replys.Hi naveen,
1. I also tried the same thing, but its not returning the column name
on which we click.
2. One workaround can be
a) we get the VALUE in slis_selfield structure.
b) loop at the internal table where COLUMN1 = VALUE
c) if found, then we can somehow deduce that column1 has been clicked.
(It can happen that other columns can contain the same value,
then it can be confusing)
regards,
amit m. -
Hi All,
I am facing the problem in displaying the subtotal in Blocked ALV.
My requirement is, I need to display the subtotals in 3 lines like below.
for ex:
subtotal: 7 <above total>
(5)<coming from someother field>
2
from the above: 7 is total of that column.
5 is coming from some other field.
2 is substraction of above 2.
Could anyone please help me in the above.
Many thanks in advance.
Regards,
venkat.Hi Vaibhav,
Thanks for your response.
and one thing here in my above example is, the value 5 is neither total nor subtotal. its just a different value coming from some other field.
only the 7 is total of that column.
and if I write that logic manually, It may not able display as the position of that column is around 500. because write statment may display upto 252nd position in the output, I guess.
thank you very much.
Regards,
Venkat.
Edited by: venkat reddy on Jan 18, 2010 8:45 PM -
Page Number - Total Page number in Blocked ALV
Hi Gurus,
I need to print the page numbers like 1 of 5 in the ALV footer. Am able to print the current page number but am unable to print the total page number in the footer of the Blocked ALV. Can any one guide me how to display the total number of pages.
Points will be awarded
Thanks
RaviHi,
Please refer to the link below :
http://www.sapdev.co.uk/reporting/alv/alvgrid_events.htm
Thanks,
Sri. -
Seperate ALV Properties in Blocked ALV
Hi All,
I have created a blocked ALV. The standard ALV functionalities like Sort ,Filter etc is working only for the first list.
Is there any techniques to give seperate functionalities for each list?
Iam using reuse_alv_grid_display .
and LAYOUT-LIST_APPEND to show the blocked ALV.
thanks and regards,
Subeesh KannottilHi Yawa Ding,
I have 3 lists .The standard ALV unctionality works only for the first list.
I want all these properties to be applied to all lists
Thanks and Regards,
Subeesh Kannottil -
Header and Logo in Blocked ALV
Is It possible to put header and logo in Blocked ALV Report.
Is yes shall I go with the same way we put the Header and Logo in ALV Grid report.
Thanks in Advance.Hi,
You can put the haeder and logo same like we have used to do in classical ALV's....
sample code snippet..
REPORT ZALV_BLOCKEDALV .
*provide tables
TABLES: MARA, MAKT, MARD.
*provide type-pools
TYPE-POOLS: SLIS.
*provide select-options
SELECT-OPTIONS: S_MATNR FOR MARA-MATNR.
*provide data objects
DATA: V_REPID TYPE SY-REPID,
WA_MARA_FIELD TYPE SLIS_FIELDCAT_ALV, "it is for field catalog
WA_MAKT_FIELD TYPE SLIS_FIELDCAT_ALV,
WA_MARD_FIELD TYPE SLIS_FIELDCAT_ALV,
WA_MARA TYPE MARA,
WA_MAKT TYPE MAKT,
WA_MARD TYPE MARD, IT_MARA_FIELD TYPE SLIS_T_FIELDCAT_ALV,
IT_MAKT_FIELD TYPE SLIS_T_FIELDCAT_ALV,
IT_MARD_FIELD TYPE SLIS_T_FIELDCAT_ALV,
IT_MARA TYPE TABLE OF MARA,
IT_MAKT TYPE TABLE OF MAKT,
IT_MARD TYPE TABLE OF MARD, V_LAYOUT TYPE SLIS_LAYOUT_ALV,
IT_EVENTS TYPE SLIS_T_EVENT, "it is for events
WA_EVENTS TYPE SLIS_ALV_EVENT.V_REPID = SY-REPID.
*provide field catalog perform
PERFORM FIELD_CAT.
*call the initial function module
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'
EXPORTING
I_CALLBACK_PROGRAM = V_REPID
* I_CALLBACK_PF_STATUS_SET = ' '
* I_CALLBACK_USER_COMMAND = ' '
* IT_EXCLUDING =
*provide perform for select the data
PERFORM SELECT_DATA.
*call mara append list
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
IS_LAYOUT = V_LAYOUT
IT_FIELDCAT = IT_MARA_FIELD[]
I_TABNAME = 'MARA'
IT_EVENTS = IT_EVENTS[]
* IT_SORT =
* I_TEXT = ' '
TABLES
T_OUTTAB = IT_MARA
EXCEPTIONS
PROGRAM_ERROR = 1
MAXIMUM_OF_APPENDS_REACHED = 2
OTHERS = 3.
*call makt append list
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
IS_LAYOUT = V_LAYOUT
IT_FIELDCAT = IT_MAKT_FIELD
I_TABNAME = 'MAKT'
IT_EVENTS = IT_EVENTS
* IT_SORT =
* I_TEXT = ' '
TABLES
T_OUTTAB = IT_MAKT
EXCEPTIONS
PROGRAM_ERROR = 1
MAXIMUM_OF_APPENDS_REACHED = 2
OTHERS = 3.
*call mard append list
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
IS_LAYOUT = V_LAYOUT
IT_FIELDCAT = IT_MARD_FIELD
I_TABNAME = 'MARD'
IT_EVENTS = IT_EVENTS
* IT_SORT =
* I_TEXT = ' '
TABLES
T_OUTTAB = IT_MARD
EXCEPTIONS
PROGRAM_ERROR = 1
MAXIMUM_OF_APPENDS_REACHED = 2
OTHERS = 3.
*display the data
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'
* EXPORTING
* I_INTERFACE_CHECK = ' '
* IS_PRINT =
* I_SCREEN_START_COLUMN = 0
* I_SCREEN_START_LINE = 0
* I_SCREEN_END_COLUMN = 0
* I_SCREEN_END_LINE = 0
* IMPORTING
* E_EXIT_CAUSED_BY_CALLER =
* ES_EXIT_CAUSED_BY_USER =
* EXCEPTIONS
* PROGRAM_ERROR = 1
* OTHERS = 2.
*& Form TOP_PAGE
* text
FORM TOP_PAGE. WRITE:/ 'THIS IS BLOCKED ALV REPORT PROGRAM BASED ON 3 BLOCKS' COLOR
5.ENDFORM. "TOP_PAGE
*& Form FIELD_CAT
* text
* --> p1 text
* <-- p2 text
FORM FIELD_CAT .WA_MARA_FIELD-COL_POS = 1.
WA_MARA_FIELD-FIELDNAME = 'MATNR'.
WA_MARA_FIELD-REF_TABNAME = 'MARA'.
APPEND WA_MARA_FIELD TO IT_MARA_FIELD.
CLEAR WA_MARA_FIELD.WA_MARA_FIELD-COL_POS = 2.
WA_MARA_FIELD-FIELDNAME = 'ERSDA'.
WA_MARA_FIELD-REF_TABNAME = 'MARA'.
APPEND WA_MARA_FIELD TO IT_MARA_FIELD.
CLEAR WA_MARA_FIELD.WA_MARA_FIELD-COL_POS = 3.
WA_MARA_FIELD-FIELDNAME = 'ERNAM'.
WA_MARA_FIELD-REF_TABNAME = 'MARA'.
APPEND WA_MARA_FIELD TO IT_MARA_FIELD.
CLEAR WA_MARA_FIELD.WA_MARA_FIELD-COL_POS = 4.
WA_MARA_FIELD-FIELDNAME = 'LAEDA'.
WA_MARA_FIELD-REF_TABNAME = 'MARA'.
APPEND WA_MARA_FIELD TO IT_MARA_FIELD.
CLEAR WA_MARA_FIELD.WA_MAKT_FIELD-COL_POS = '1'.
WA_MAKT_FIELD-FIELDNAME = 'MATNR'.
WA_MAKT_FIELD-REF_TABNAME = 'MAKT'.
APPEND WA_MAKT_FIELD TO IT_MAKT_FIELD.
CLEAR WA_MAKT_FIELD.WA_MAKT_FIELD-COL_POS = 2.
WA_MAKT_FIELD-FIELDNAME = 'MAKTX'.
WA_MAKT_FIELD-REF_TABNAME = 'MAKT'.
APPEND WA_MAKT_FIELD TO IT_MAKT_FIELD.
CLEAR WA_MAKT_FIELD.WA_MAKT_FIELD-COL_POS = 3.
WA_MAKT_FIELD-FIELDNAME = 'MAKTG'.
WA_MAKT_FIELD-REF_TABNAME = 'MAKT'.
APPEND WA_MAKT_FIELD TO IT_MAKT_FIELD.
CLEAR WA_MAKT_FIELD.WA_MARD_FIELD-COL_POS = 1.
WA_MARD_FIELD-FIELDNAME = 'MATNR'.
WA_MARD_FIELD-REF_TABNAME = 'MARD'.
APPEND WA_MARD_FIELD TO IT_MARD_FIELD.
CLEAR WA_MARD_FIELD.WA_MARD_FIELD-COL_POS = 2.
WA_MARD_FIELD-FIELDNAME = 'WERKS'.
WA_MARD_FIELD-REF_TABNAME = 'MARD'.
APPEND WA_MARD_FIELD TO IT_MARD_FIELD.
CLEAR WA_MARD_FIELD.WA_MARD_FIELD-COL_POS = 3.
WA_MARD_FIELD-FIELDNAME = 'LGORT'.
WA_MARD_FIELD-REF_TABNAME = 'MARD'.
APPEND WA_MARD_FIELD TO IT_MARD_FIELD.
CLEAR WA_MARD_FIELD.WA_EVENTS-FORM = 'TOP_PAGE'.
WA_EVENTS-NAME = 'TOP_OF_PAGE'.
APPEND WA_EVENTS TO IT_EVENTS.ENDFORM. " FIELD_CAT
*& Form SELECT_DATA
* text
* --> p1 text
* <-- p2 text
FORM SELECT_DATA .SELECT *
FROM MARA
INTO TABLE IT_MARA
WHERE MATNR IN S_MATNR.SELECT *
FROM MAKT
INTO TABLE IT_MAKT
WHERE MATNR IN S_MATNR.SELECT *
FROM MARD
INTO TABLE IT_MARD
WHERE MATNR IN S_MATNR.ENDFORM. " SELECT_DATA
hope this will help you
regards,
kiran
Edited by: kiran kumar on Aug 23, 2010 1:43 PM -
How to handle Events in Blocked ALV report
Hi All,
I have a Blocked ALV report, I have a requirement where if I double click a row in blocked ALV report, it should branch off to MM01 transaction code and the material number and change number should get populated with the material number and change number in my program.
Is there any idea how to do this.
Thanks,
Vishal.hi anil,
I have used user_command1 as the function module however the field details are not getting captured.
How can we use set get parameters in this aspect.
Please elaborate your answer.
Thanks,
Vishal. -
How to calculate totals in Blocked ALV Report
Hi All,
Can any body tell how to calculate totals & sub totals in
Blocked ALV Report[Blocked List].
Thanks in advance
Thanks & Regards,
Rayeezuddin.read this it might help
Sums
15. No_sumchoice(1) TYPE c : This parameter allows the choice for summing up
Only by fieldcatalog.
Value set: SPACE, 'X'
'X' = fields which are to be summed, passed by the calling program (FIELDCAT-DO_SUM = 'X'). The user should not be able to change this value interactively.
16. No_totalline(1) TYPE c : Removes the option of having totals after sub-totals.
Value set: SPACE, 'X'
'X' = no total record is to be output. Subtotals can still be calculated and output. The fields in the subtotals are flagged DO_SUM = 'X' in the field list.
17. No_subchoice(1) TYPE c : Does not allow the user to interactively change the field chosen for subtotals.
Value set: SPACE, 'X'
'X' = value whose change triggers subtotals, provided by the calling program. The user should not be able to change this value interactively.
18. No_subtotals(1) TYPE c : No subtotals possible
Value set: SPACE, 'X'
'X' = no subtotals.
19. Numc_sum(1) TYPE c : Totals only possible for NUMC-Fields.
20. No_unit_splitting TYPE c: No separate total lines by inh.units
21.totals_before_items TYPE c: Display totals before the items
22. Totals_only(1) TYPE c : Show only totals
Value set: SPACE, 'X'
'X' = only total records are output.
23. Totals_text(60) TYPE c : Text for 1st col. in totals
Value set: SPACE, string (max.60)
' ' = The first column in the total record contains an appropriate number of '*'s to indicate the total by default. If the first column is wide enough, the string 'Total' is output after the asterisks.
'String = The string passed is output after the total indicated by '*', if the column is wide enough.
24. Subtotals_text(60) TYPE c : Texts for subtotals
Value set: SPACE, string (max.60)
' ' = In the first column of subtotal records, the subtotal is indicated by an appropriate number of '*' by default. If the first column is not a subtotal criterion, the string 'Total' is output after the asterisks, if the column is wide enough.
'String = the string passed is output after the subtotal indicated by '*', if the column is wide enough and the first column is not a subtotal criterion. If it is a subtotal criterion, its value is repeated after the total, if the column is wide enough.
ELSE TELL ME I WILL PASTE COMPLETE HELP
regards -
hi experts,
i have tried to subtotal in blocked alv. i used the coding for sorting in grid display. its working in FM reuse_alv_grid_display.
but its not working in blocked alv, i.e., in FM reuse_alv_block_list_append .
so what to do ?
kind regards,
debendrahi all,
yes my question has been answered.
as per below.
have to maintain this line : WA_SORT-TABNAME = 'IT_MUSTER'
where IT_MUSTER is the table name.
FORM APPEND USING FTAB TYPE C FDATA TYPE STANDARD TABLE.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
IS_LAYOUT = layout
IT_FIELDCAT = it_fcat
I_TABNAME = FTAB
IT_EVENTS = it_event
IT_SORT = IT_SORT
TABLES
T_OUTTAB = FDATA.
ENDFORM.
Form sort.
WA_SORT-TABNAME = 'IT_MUSTER'.
wa_sort-fieldname = 'MON'.
wa_sort-SUBTOT = 'X'.
append wa_sort to it_sort.
clear wa_sort.
Endform.
ragards,
debendra -
Hi!
In Block AlV we r using Fun Mod
REUSE_ALV_BLOCK_LIST_APPEND
To display data in blocks and called again to display other data in block in same screen.
I want to know REUSE_ALV_BLOCK_LIST_DISPLAY Fun mod is optional or mandatory
without using this also shall i get the required o/p.
Looking for your reply.
Rahul.REUSE_ALV_BLOCK_LIST_DISPLAY is mandatory, without calling this FM, you will not get any disply.
In the below ALV if you comment out t REUSE_ALV_BLOCK_LIST_DISPLAY FM call call you will not get disply.
REPORT ztest1 .
TABLES: ekko, mara.
TYPE-POOLS: slis.
*Data Declaration
TYPES: BEGIN OF t_ekko,
ebeln TYPE ekpo-ebeln,
ebelp TYPE ekpo-ebelp,
statu TYPE ekpo-statu,
aedat TYPE ekpo-aedat,
matnr TYPE ekpo-matnr,
menge TYPE ekpo-menge,
meins TYPE ekpo-meins,
netpr TYPE ekpo-netpr,
peinh TYPE ekpo-peinh,
END OF t_ekko.
TYPES: BEGIN OF t_mara,
matnr TYPE mara-matnr,
mtart TYPE mara-mtart,
matkl TYPE mara-matkl,
END OF t_mara.
DATA: it_ekko TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,
it_mara TYPE STANDARD TABLE OF t_mara INITIAL SIZE 0.
*ALV data declarations
DATA: fieldcatalog1 TYPE slis_t_fieldcat_alv WITH HEADER LINE,
fieldcatalog2 TYPE slis_t_fieldcat_alv WITH HEADER LINE,
gd_layout TYPE slis_layout_alv,
gt_events_ekko TYPE slis_t_event,
xs_event TYPE slis_alv_event,
gt_events_mara TYPE slis_t_event,
gd_repid TYPE sy-repid,
gt_print TYPE slis_print_alv.
* START-OF-SELECTION
START-OF-SELECTION.
PERFORM data_retrival.
PERFORM build_fieldcat.
PERFORM build_layout.
PERFORM events_ekko.
PERFORM events_mara.
PERFORM display_alv_report.
*SUBROUTINES
*& Form data_retrival
FORM data_retrival .
SELECT ebeln ebelp statu aedat matnr menge meins netpr peinh
UP TO 10 ROWS
FROM ekpo
INTO TABLE it_ekko.
SELECT matnr mtart matkl
UP TO 10 ROWS
FROM mara
INTO TABLE it_mara.
ENDFORM. " data_retrival
*& Form build_fieldcat
FORM build_fieldcat .
* FOR EKKO
fieldcatalog1-fieldname = 'EBELN'.
fieldcatalog1-seltext_m = 'Purchase Order'.
fieldcatalog1-col_pos = 0.
fieldcatalog1-outputlen = 10.
fieldcatalog1-emphasize = 'X'.
fieldcatalog1-key = 'X'.
APPEND fieldcatalog1 TO fieldcatalog1.
CLEAR fieldcatalog1.
fieldcatalog1-fieldname = 'EBELP'.
fieldcatalog1-seltext_m = 'PO Item'.
fieldcatalog1-col_pos = 1.
APPEND fieldcatalog1 TO fieldcatalog1.
CLEAR fieldcatalog1.
fieldcatalog1-fieldname = 'STATU'.
fieldcatalog1-seltext_m = 'Status'.
fieldcatalog1-col_pos = 2.
APPEND fieldcatalog1 TO fieldcatalog1.
CLEAR fieldcatalog1.
fieldcatalog1-fieldname = 'AEDAT'.
fieldcatalog1-seltext_m = 'Item change date'.
fieldcatalog1-col_pos = 3.
APPEND fieldcatalog1 TO fieldcatalog1.
CLEAR fieldcatalog1.
fieldcatalog1-fieldname = 'MATNR'.
fieldcatalog1-seltext_m = 'Material Number'.
fieldcatalog1-col_pos = 4.
APPEND fieldcatalog1 TO fieldcatalog1.
CLEAR fieldcatalog1.
fieldcatalog1-fieldname = 'MENGE'.
fieldcatalog1-seltext_m = 'PO quantity'.
fieldcatalog1-col_pos = 5.
APPEND fieldcatalog1 TO fieldcatalog1.
CLEAR fieldcatalog1.
fieldcatalog1-fieldname = 'MEINS'.
fieldcatalog1-seltext_m = 'Order Unit'.
fieldcatalog1-col_pos = 6.
APPEND fieldcatalog1 TO fieldcatalog1.
CLEAR fieldcatalog1.
fieldcatalog1-fieldname = 'NETPR'.
fieldcatalog1-seltext_m = 'Net Price'.
fieldcatalog1-col_pos = 7.
fieldcatalog1-outputlen = 15.
fieldcatalog1-do_sum = 'X'. "Display column total
fieldcatalog1-datatype = 'CURR'.
APPEND fieldcatalog1 TO fieldcatalog1.
CLEAR fieldcatalog1.
fieldcatalog1-fieldname = 'PEINH'.
fieldcatalog1-seltext_m = 'Price Unit'.
fieldcatalog1-col_pos = 8.
APPEND fieldcatalog1 TO fieldcatalog1.
CLEAR fieldcatalog1.
* FOR MARA
fieldcatalog2-fieldname = 'MATNR'.
fieldcatalog2-seltext_m = 'Material No'.
fieldcatalog2-col_pos = 0.
fieldcatalog2-outputlen = 10.
fieldcatalog2-emphasize = 'X'.
fieldcatalog2-key = 'X'.
APPEND fieldcatalog2 TO fieldcatalog2.
CLEAR fieldcatalog1.
fieldcatalog2-fieldname = 'MTART'.
fieldcatalog2-seltext_m = 'Material type'.
fieldcatalog2-col_pos = 1.
APPEND fieldcatalog2 TO fieldcatalog2.
CLEAR fieldcatalog2.
fieldcatalog2-fieldname = 'MATKL'.
fieldcatalog2-seltext_m = 'Material Group'.
fieldcatalog2-col_pos = 2.
APPEND fieldcatalog2 TO fieldcatalog2.
CLEAR fieldcatalog2.
ENDFORM. " build_fieldcat
*& Form build_layout
FORM build_layout .
gd_layout-no_input = 'X'.
gd_layout-colwidth_optimize = 'X'.
gd_layout-totals_text = 'Totals'(201).
ENDFORM. " build_layout
*& Form events_ekko
FORM events_ekko .
CLEAR xs_event.
xs_event-name = slis_ev_top_of_page.
xs_event-form = 'TOP_OF_PAGE-EKKO'.
APPEND xs_event TO gt_events_ekko.
CLEAR xs_event.
xs_event-name = slis_ev_end_of_list.
xs_event-form = 'END_OF_LIST_EKKO'.
APPEND xs_event TO gt_events_ekko.
ENDFORM. " events_ekko
*& Form TOP_OF_PAGE-EKKO
FORM top_of_page-ekko.
WRITE: / 'TOP OF PAGE : Purchase Order'.
ENDFORM. "XTOP_OF_PAGE
*& Form END_OF_LIST_EKKO
FORM end_of_list_ekko.
WRITE: / 'end OF list : Purchase Order'.
ENDFORM. "END_OF_LIST_EKKO
*& Form events_mara
FORM events_mara .
CLEAR xs_event.
xs_event-name = slis_ev_top_of_list.
xs_event-form = 'TOP_OF_LIST-MARA'.
APPEND xs_event TO gt_events_mara.
CLEAR xs_event.
xs_event-name = slis_ev_end_of_page.
xs_event-form = 'END_OF_PAGE_MARA'.
APPEND xs_event TO gt_events_mara.
ENDFORM. "events_mara
*& Form TOP_OF_LIST-MARA
FORM top_of_list-mara.
WRITE: / 'TOP OF LIST : Material Master'.
ENDFORM. "TOP_OF_LIST-MARA
*& Form END_OF_PAGE_MARA
FORM end_of_page_mara.
WRITE: / 'End OF Page : Material Master'.
ENDFORM. "END_OF_PAGE_MARA
*& Form display_alv_report
FORM display_alv_report .
gd_repid = sy-repid.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'
EXPORTING
i_callback_program = sy-repid.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
is_layout = gd_layout
it_fieldcat = fieldcatalog1[]
i_tabname = 'it_ekko'
it_events = gt_events_ekko
TABLES
t_outtab = it_ekko
EXCEPTIONS
program_error = 1
maximum_of_appends_reached = 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_BLOCK_LIST_APPEND'
EXPORTING
is_layout = gd_layout
it_fieldcat = fieldcatalog2[]
i_tabname = 'it_mara'
it_events = gt_events_mara
TABLES
t_outtab = it_mara
EXCEPTIONS
program_error = 1
maximum_of_appends_reached = 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.
gt_print-reserve_lines = 2.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'
EXPORTING
is_print = gt_print.
ENDFORM. " display_alv_report -
Save layout option for Block Alv
Hi,
Small Question,
Is there any way to enable Save layout(Ctrl+F10) option for Block ALV?As i cannot see any option to do so with Reuse_*Block like i_save in Grid and For list ALVs...FM.And its by default it is Disable.
Any Hints?
Cheers,
Amit.That's what i already investigated(Small).
wanted Just to confirm.Anyways thanks.
@Gautham:I already found that link([And this also |/message/702997#702997 [original link is broken];) but thought After 2 and
half yrs Vijay found any solution and would land with any solution as always
Anyways Thanks Vijay And Gautham.
Cheers,
Amit. -
Hi Experts,
I want to use Blocked ALV in my report, in which there will be many headers and for each header there will be some line items.
So can any one give me the same report which can show multiple headers and Item level descriptions. It should be shown as break up for each header and so on.
Thanks & Regards,
RamanaHi,
TABLES : mara,makt,mard.
TYPE-POOLS : slis.
SELECT-OPTIONS : s_matnr FOR mara-matnr.
DATA : v_repid TYPE sy-repid,
wa_mara_field TYPE slis_fieldcat_alv,
wa_makt_field TYPE slis_fieldcat_alv,
wa_mard_field TYPE slis_fieldcat_alv,
wa_mara TYPE mara,
wa_makt TYPE makt,
wa_mard TYPE mard,
it_mara_field TYPE slis_t_fieldcat_alv,
it_makt_field TYPE slis_t_fieldcat_alv,
it_mard_field TYPE slis_t_fieldcat_alv,
it_mara TYPE TABLE OF mara,
it_makt TYPE TABLE OF makt,
it_mard TYPE TABLE OF mard,
v_layout TYPE slis_layout_alv,
it_events TYPE slis_t_event,
wa_events TYPE slis_alv_event.
v_repid = sy-repid.
PERFORM field_cat.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'
EXPORTING
i_callback_program = v_repid
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
IT_EXCLUDING =
PERFORM select_data.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
is_layout = v_layout
it_fieldcat = it_mara_field[]
i_tabname = 'MARA'
it_events = it_events[]
IT_SORT =
I_TEXT = ' '
TABLES
t_outtab = it_mara
EXCEPTIONS
program_error = 1
maximum_of_appends_reached = 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_BLOCK_LIST_APPEND'
EXPORTING
is_layout = v_layout
it_fieldcat = it_makt_field
i_tabname = 'MAKT'
it_events = it_events
IT_SORT =
I_TEXT = ' '
TABLES
t_outtab = it_makt
EXCEPTIONS
program_error = 1
maximum_of_appends_reached = 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_BLOCK_LIST_APPEND'
EXPORTING
is_layout = v_layout
it_fieldcat = it_mard_field
i_tabname = 'MARD'
it_events = it_events
IT_SORT =
I_TEXT = ' '
TABLES
t_outtab = it_mard
EXCEPTIONS
program_error = 1
maximum_of_appends_reached = 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_BLOCK_LIST_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
IS_PRINT =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
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 TOP_PAGE
text
FORM top_page.
WRITE :/ 'THIS IS BLOCKED ALV REPORT PROG BASED ON 3 BLOCKS' COLOR 5.
ENDFORM. "TOP_PAGE
*& Form FIELD_CAT
text
--> p1 text
<-- p2 text
FORM field_cat .
wa_mara_field-col_pos = 1.
wa_mara_field-fieldname = 'MATNR'.
wa_mara_field-tabname = 'MARA'.
wa_mara_field-seltext_m = 'MATNR'.
APPEND wa_mara_field TO it_mara_field.
CLEAR wa_mara_field.
wa_mara_field-col_pos = 2.
wa_mara_field-fieldname = 'ERSDA'.
wa_mara_field-tabname = 'MARA'.
wa_mara_field-seltext_m = 'ERSDA'.
APPEND wa_mara_field TO it_mara_field.
CLEAR wa_mara_field.
wa_mara_field-col_pos = 3.
wa_mara_field-fieldname = 'ERNAM'.
wa_mara_field-tabname = 'MARA'.
wa_mara_field-seltext_m = 'ERNAM'.
APPEND wa_mara_field TO it_mara_field.
CLEAR wa_mara_field.
wa_mara_field-col_pos = 4.
wa_mara_field-fieldname = 'LAEDA'.
wa_mara_field-tabname = 'MARA'.
wa_mara_field-seltext_m = 'LAEDA'.
APPEND wa_mara_field TO it_mara_field.
CLEAR wa_mara_field.
wa_makt_field-col_pos = 1.
wa_makt_field-fieldname = 'MATNR'.
wa_makt_field-tabname = 'MAKT'.
wa_makt_field-seltext_m = 'MATNR'.
APPEND wa_makt_field TO it_makt_field.
CLEAR wa_makt_field.
wa_makt_field-col_pos = 2.
wa_makt_field-fieldname = 'MAKTX'.
wa_makt_field-tabname = 'MAKT'.
wa_makt_field-seltext_m = 'MAKTX'.
APPEND wa_makt_field TO it_makt_field.
CLEAR wa_makt_field.
wa_makt_field-col_pos = 3.
wa_makt_field-fieldname = 'MAKTG'.
wa_makt_field-tabname = 'MAKT'.
wa_makt_field-seltext_m = 'MAKTG'.
APPEND wa_makt_field TO it_makt_field.
CLEAR wa_makt_field.
wa_mard_field-col_pos = 1.
wa_mard_field-fieldname = 'MATNR'.
wa_mard_field-tabname = 'MARD'.
wa_mard_field-seltext_m = 'MATNR'.
APPEND wa_mard_field TO it_mard_field.
CLEAR wa_mard_field.
wa_mard_field-col_pos = 2.
wa_mard_field-fieldname = 'WERKS'.
wa_mard_field-tabname = 'MARD'.
wa_mard_field-seltext_m = 'WERKS'.
APPEND wa_mard_field TO it_mard_field.
CLEAR wa_mard_field.
wa_mard_field-col_pos = 3.
wa_mard_field-fieldname = 'LGORT'.
wa_mard_field-tabname = 'MARD'.
wa_mard_field-seltext_m = 'LGORT'.
APPEND wa_mard_field TO it_mard_field.
CLEAR wa_mard_field.
wa_events-form = 'TOP_PAGE'.
wa_events-name = 'TOP_OF_PAGE'.
APPEND wa_events TO it_events.
ENDFORM. " FIELD_CAT
*& Form SELECT_DATA
text
--> p1 text
<-- p2 text
FORM select_data .
SELECT *
FROM mara
INTO TABLE it_mara
WHERE matnr IN s_matnr.
SELECT *
FROM makt
INTO TABLE it_makt
WHERE matnr IN s_matnr.
SELECT *
FROM mard
INTO TABLE it_mard
WHERE matnr IN s_matnr.
ENDFORM. " SELECT_DATA -
END OF PAGE IN BLOCK ALV : PLZ HELP
Hi experts.
I have a requirement to display top-of-page end-of-page end-of-list in block alv but the problem is that end-of-page is not getting triggered instead top-of-page is getting triggered twice.
Below is the code for your reference :
REPORT zbhr_workers_comp_report
LINE-COUNT 60(4)
LINE-SIZE 999
NO STANDARD PAGE HEADING
MESSAGE-ID zmhr.
*//// This is how event table is getting populated:*
FORM events_get1 CHANGING t1_events TYPE slis_t_event.
DATA:ls1_events TYPE slis_alv_event.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
IMPORTING
et_events = t1_events.
READ TABLE t1_events INTO ls1_events WITH KEY name = slis_ev_top_of_page.
IF sy-subrc = 0.
MOVE c_form_top_of_page TO ls1_events-form.
APPEND ls1_events TO t1_events.
modify t1_events FROM ls1_events INDEX sy-tabix TRANSPORTING form.
CLEAR ls1_events.
ENDIF.
READ TABLE t1_events INTO ls1_events WITH KEY name = slis_ev_end_of_page.
IF sy-subrc = 0.
MOVE c_form_end_of_page TO ls1_events-form.
APPEND ls1_events TO t1_events.
modify t1_events FROM ls1_events INDEX sy-tabix TRANSPORTING form.
CLEAR ls1_events.
ENDIF.
READ TABLE t1_events INTO ls1_events WITH KEY name = slis_ev_end_of_list.
IF sy-subrc = 0.
MOVE c_form_end_of_list TO ls1_events-form.
APPEND ls1_events TO t1_events.
modify t1_events FROM ls1_events INDEX sy-tabix TRANSPORTING form.
CLEAR ls1_events.
ENDIF.
ENDFORM. " EVENTS_GET1
FORM : TOP_OF_PAGE
FORM top_of_page.
WRITE : /45 text-020, 65(5) text-021 , 71(11) v_begda, 84(3) text-022 , 89(11) v_endda.
ENDFORM. "TOP_OF_PAGE
FORM : end_of_page
FORM end_of_page.
DATA: lv_process TYPE i.
CLEAR: lv_process.
LOOP AT t_final_temp INTO w_final_temp where customer = t_final-customer.
lv_process = lv_process + 1.
ENDLOOP.
*RESERVE 3 LINES.
WRITE: /4 'Number of read Record : '(023), v_total_read.
WRITE: /4 'Number of processed Record : '(024), lv_process.
ENDFORM. "end_of_page
FORM : end_of_list
FORM end_of_list .
v_total_process = LINES( t_final[] ).
WRITE: /4 'Total sum of all processed data: '(029), v_total_process.
ENDFORM. "end_of_list
*****Displaying the block alv.
FORM display_output .
To restrict the display of sel info and list info.
st_print-no_print_selinfos = 'X'.
st_print-no_print_listinfos = 'X'.
st_print-reserve_lines = 2. " Lines reserved for end of page
Initialize ALV Block List
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'
EXPORTING
i_callback_program = sy-repid.
Append the ALV Block list with table t_final.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
is_layout = w1_layout
it_fieldcat = t1_fieldcat
i_tabname = 'T_FINAL'
it_events = t1_events
it_sort = t_sort
TABLES
t_outtab = t_final
EXCEPTIONS
program_error = 1
maximum_of_appends_reached = 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.
Append the ALV Block list with table t_msg_display.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
is_layout = w2_layout
it_fieldcat = t2_fieldcat
i_tabname = 'T_MSG_DISPLAY'
it_events = t2_events
TABLES
t_outtab = t_msg_display
EXCEPTIONS
program_error = 1
maximum_of_appends_reached = 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_BLOCK_LIST_DISPLAY'
EXPORTING
i_interface_check = ' '
is_print = st_print
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_OUTPUT
Above is the core logic which I have used for displaying top-of-page end-of-page and end-of-list in block alv.
Please Help
Regards
Arvind.Hi
MOVE 'TOP_OF_PAGE' TO ls1_events-form.
what is thie c_form_top_of_page instead write as above ,i hope it will work
Regards
Pavan
Maybe you are looking for
-
In ABAP+Java system installation
Hi, I installed ABAP+Java system On that i installed XI 3.0 SR1.I after applying the J2EERTOS11_0-20000118.SAR patch on J2EE engine.This patch consist of lot of bugs.I just stopped the installation of patch.After again when i log on to J2EE engine wi
-
What's the Commitment item? And how to use it?
When I create a G/L account by FS00 I need to input a Commitment item. But I don't know how to use it. Can you tell me what's the Commitment item? And how to use it? Thank you very much. Moderator: Try pressing F1 or going to help.sap.com
-
Exporting audio from Aurora to Computer
This both a "Getting Started," problem and an "Application" problem. I recently purchased an app that I really like called Aurora Sound Studio HD and I want to create data in the app that I can download to my computer in order to do additional work o
-
I have a new 80gig ipod and my computer crashed.
I have a new 80gig ipod and my computer is dead. Can i use another computer with itunes (which already has an ipod that connects to it)? I am affraid that i'll loose all of the music that i already put on my ipod. Please help. ipod video 80gig
-
Weblogic doesn't reload classes
Hi, I'm working with weblogic7.0 sp2 on Windows NT... When I put the updated classes into the classes directory under WEB-INF... The latest classes are not getting loaded until I restart the server... I've set the "set STARTMODE=false" ... But, it wo