BLOCK LIST DISPLAY IN ALV

Question

Moderator message: Please do not use ALL CAPITALS in your message subjects
I am facing a peculiar situation with respect to a report with 2 block lists.
STEP 1:
I first use REUSE_ALV_BLOCK_LIST_INIT with EXPORTING parameter as
i_callback_program = SY-REPID.
This works fine with return code of sy-subrc = 0.
STEP 2:
I build the field catalog and internal table - in debug I also check the sequence of fields of both the internal tables and field calatogs - perfect - no issues.
Then I call REUSE_ALV_BLOCK_LIST_APPEND with exporting parameters as layout, field catalog, table name & event and tables parameter as internal table and exception handling, I repeat this call for the two internal tables.
This works fine with return code of sy-subrc = 0
STEP 3:
I use REUSE_ALV_BLOCK_LIST_DISPLAY to display the two lists one after the other, and I have coded for error message if sy-subrc is non zero.
This works fine with return code of sy-subrc = 0
ISSUE :
Internal table 1 and internal table 2 both have say 4 records, then I see the two lists with heading(s) perfec and col width also optimized and zebra (alternate steipes also in place), and 4 rows for each internal table on output, however the rows are BLANK - NO DATA, whereas I have checked both internal tables before the call and they seem to have the data perfectly and in the same sequence as the field catalog - however the rows are BLANK.
I checked in debugging but was just not able to find out why if the internal tables and field catalog is perfect, no data is passed to output.
Please help !!
Edited by: M N on Nov 14, 2008 5:22 AM
Edited by: Matt on Nov 14, 2008 10:23 AM

Answer 1

*& Report  Y_ALV_BLOCKLIST_
REPORT  Y_ALV_BLOCKLIST_16131.
TYPE-POOLS : SLIS.
DATA: X_LAYOUT TYPE SLIS_LAYOUT_ALV.
Events
DATA: GT_XEVENTS TYPE SLIS_T_EVENT.
DATA: GT_YEVENTS TYPE SLIS_T_EVENT.
data : XS_EVENT  TYPE SLIS_ALV_EVENT.
DATA: XFIELD TYPE SLIS_T_FIELDCAT_ALV.
DATA: YFIELD TYPE SLIS_T_FIELDCAT_ALV.
DATA: AFIELD TYPE SLIS_FIELDCAT_ALV.
DATA: GT_PRINT TYPE SLIS_PRINT_ALV.
TYPES : BEGIN OF TY_MARA ,
          MATNR TYPE MATNR,
          MTART TYPE MTART,
         END OF TY_MARA.
TYPES: BEGIN OF TY_MAKT ,
       MATNR TYPE MATNR,
       MAKTX TYPE MAKTX,
      END OF TY_MAKT.
DATA : ITAB TYPE TABLE OF TY_MARA,
       PTAB TYPE TABLE OF TY_MAKT.
START-OF-SELECTION.
SELECT DATA
  SELECT MATNR MAKTX FROM MAKT INTO TABLE PTAB UP TO 10 ROWS.
  SELECT  MATNR MTART FROM MARA INTO TABLE ITAB UP TO 10 ROWS.
*eVENT FOR Heading
  PERFORM F_EVENTS.
FIELD CATALOG
  PERFORM F_FIELDCAT.
INIT BLOCK ALV
  CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'
    EXPORTING
      I_CALLBACK_PROGRAM = SY-REPID.
ADD INTERNAL TABLE ITAB
  CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
    EXPORTING
      IS_LAYOUT                  = X_LAYOUT
      IT_FIELDCAT                = XFIELD "ALVFC
      I_TABNAME                  = 'ITAB'
      IT_EVENTS                  = GT_XEVENTS
    TABLES
      T_OUTTAB                   = ITAB
    EXCEPTIONS
      PROGRAM_ERROR              = 1
      MAXIMUM_OF_APPENDS_REACHED = 2
      OTHERS                     = 3.
ADD INTERNAL TABLE PTAB
REFRESH ALVFC[].
  CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
    EXPORTING
      IS_LAYOUT                  = X_LAYOUT
      IT_FIELDCAT                = YFIELD "ALVFC
      I_TABNAME                  = 'PTAB'
      IT_EVENTS                  = GT_YEVENTS
    TABLES
      T_OUTTAB                   = PTAB
    EXCEPTIONS
      PROGRAM_ERROR              = 1
      MAXIMUM_OF_APPENDS_REACHED = 2
      OTHERS                     = 3.
DISPLAY
  CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'
    EXCEPTIONS
      PROGRAM_ERROR = 1
      OTHERS        = 2.
*GT_PRINT-RESERVE_LINES = 2.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'
      EXPORTING
           IS_PRINT = GT_PRINT.
*&      Form  F_FIELDCAT
      text
-->  p1        text
<--  p2        text
FORM F_FIELDCAT .
  DATA: L_COUNT TYPE I.
  CLEAR AFIELD.
  L_COUNT = L_COUNT + 1.
  AFIELD-COL_POS = L_COUNT.
  AFIELD-FIELDNAME = 'MATNR'.
  AFIELD-REF_TABNAME = 'MARA'.
  AFIELD-KEY = 'X'.                    "define field as key
AFIELD-DO_SUM = 'X'.
  APPEND AFIELD TO XFIELD.
  CLEAR AFIELD.
  L_COUNT = L_COUNT + 1.
  AFIELD-COL_POS = L_COUNT.
  AFIELD-FIELDNAME = 'MTART'.
  AFIELD-REF_TABNAME = 'MARA'.
  AFIELD-KEY = 'X'.                    "define field as key
  APPEND AFIELD TO XFIELD.
  L_COUNT = 0.
  CLEAR AFIELD.
  L_COUNT = L_COUNT + 1.
  AFIELD-COL_POS = L_COUNT.
  AFIELD-FIELDNAME = 'MATNR'.
  AFIELD-REF_TABNAME = 'MAKT'.
  AFIELD-KEY = 'X'.                    "define field as key
  APPEND AFIELD TO YFIELD.
  CLEAR AFIELD.
  L_COUNT = L_COUNT + 1.
  AFIELD-COL_POS = L_COUNT.
  AFIELD-FIELDNAME = 'MAKTX'.
  AFIELD-REF_TABNAME = 'MAKT'.
  AFIELD-KEY = 'X'.                    "define field as key
  APPEND AFIELD TO YFIELD.
ENDFORM.                    " F_FIELDCAT
*&      Form  F_EVENTS
      text
-->  p1        text
<--  p2        text
FORM F_EVENTS .
CLEAR XS_EVENT.
  XS_EVENT-NAME = SLIS_EV_TOP_OF_PAGE.
  XS_EVENT-FORM = 'TOP1'.
  APPEND XS_EVENT TO GT_XEVENTS.
CLEAR XS_EVENT.
  XS_EVENT-NAME = SLIS_EV_TOP_OF_PAGE.
  XS_EVENT-FORM = 'TOP2'.
  APPEND XS_EVENT TO GT_YEVENTS.
ENDFORM.                    " F_EVENTS
FORM TOP1.
WRITE : 'MARA TABLE'.
ENDFORM.
FORM TOP2.
WRITE : 'MAKT TABLE'.
ENDFORM.