Short dump while doing subtotal in the ALV report

Question

Hi All,
I am getting run time error while doing the sub total and total in the ALV .
error is "MESSAGE_TYPE_X" and
discription is  "The current application program detected a situation which really
should not occur. Therefore, a termination with a short dump was
triggered on purpose by the key word MESSAGE (type X)."
Can anyone help me regarding this.
My alv field catog is like below
  DATA: ls_fieldcat TYPE slis_fieldcat_alv,
        ls_sort     TYPE SLIS_SORTINFO_ALV.
  CLEAR:ls_fieldcat,
        ls_sort.
  REFRESH ot_fieldcat.
  ls_fieldcat-FIELDNAME   = 'LEASE_NUMBER'.
  ls_fieldcat-SELTEXT_M   = 'Lease Number'(001).
  ls_fieldcat-COL_POS     = 0.
  ls_fieldcat-OUTPUTLEN   = 10.
  ls_fieldcat-DO_SUM      = 'X'.
  ls_fieldcat-KEY         = 'X'.
  APPEND ls_fieldcat TO ot_fieldcat.
  CLEAR  ls_fieldcat.
  ls_fieldcat-FIELDNAME   = 'LEASE_TYPE'.
  ls_fieldcat-SELTEXT_M   = 'Lease Type'(002).
  ls_fieldcat-COL_POS     = 1.
  ls_fieldcat-OUTPUTLEN   = 5.
  APPEND ls_fieldcat TO ot_fieldcat.
  CLEAR  ls_fieldcat.
  ls_fieldcat-FIELDNAME   = 'LEGACY_NUM'.
  ls_fieldcat-SELTEXT_M   = 'Legacy Contract No'(003).
  ls_fieldcat-COL_POS     = 2.
  ls_fieldcat-OUTPUTLEN   = 10.
  APPEND ls_fieldcat TO ot_fieldcat.
  CLEAR  ls_fieldcat.
  ls_fieldcat-FIELDNAME   = 'CUSTOMER'.
  ls_fieldcat-SELTEXT_M   = 'Customer'(004).
  ls_fieldcat-COL_POS     = 3.
  APPEND ls_fieldcat TO ot_fieldcat.
  CLEAR  ls_fieldcat.
  ls_fieldcat-FIELDNAME   = 'STATUS'.
  ls_fieldcat-SELTEXT_M   = 'Status'(017).
  ls_fieldcat-COL_POS     = 16.
  ls_fieldcat-OUTPUTLEN   = 10.
  APPEND ls_fieldcat TO ot_fieldcat.
  CLEAR  ls_fieldcat.
  ls_fieldcat-FIELDNAME   = 'GATEIN_DT'.
  ls_fieldcat-SELTEXT_M   = 'Gate In Date'(018).
  ls_fieldcat-COL_POS     = 17.
  ls_fieldcat-OUTPUTLEN   = 10.
  APPEND ls_fieldcat TO ot_fieldcat.
  CLEAR  ls_fieldcat.
  ls_fieldcat-FIELDNAME   = 'SVALUE'.
  ls_fieldcat-COL_POS     = 18.
  ls_fieldcat-DO_SUM      = 'X'.
  ls_fieldcat-OUTPUTLEN   = 12.
  APPEND ls_fieldcat TO ot_fieldcat.
  CLEAR  ls_fieldcat.
DATA SORTING AND SUBTOTAL
  CLEAR ls_sort.
  ls_sort-FIELDNAME = 'LEASE_NUMBER'.
  ls_sort-SPOS      = 0.
  ls_sort-UP        = 'X'.
  ls_sort-SUBTOT    = 'X'.
  APPEND ls_sort TO GT_SORT.
If i coment the code relate dto 'SVALUE' i am getting output without sub total and total.
if i uncomment the same then I am getting short dump.

Answer 1

Hi,
Try this coding,
TYPE-POOLS: SLIS.                      " ALV GLOBAL TYPES
*      FORM  F_READ_DATA
FORM F_READ_DATA.
  SELECT * INTO CORRESPONDING FIELDS OF TABLE GT_VBAK
           FROM VBAK
             UP TO P_MAX ROWS
          WHERE KUNNR IN S_KUNNR
            AND VBELN IN S_VBELN
            AND VKORG IN S_VKORG.
ENDFORM.                               " F_READ_DATA
*      FORM  F_DISPLAY_DATA
FORM F_DISPLAY_DATA.
  DEFINE M_FIELDCAT.
    ADD 1 TO LS_FIELDCAT-COL_POS.
    LS_FIELDCAT-FIELDNAME   = &1.
    LS_FIELDCAT-REF_TABNAME = 'VBAK'.
    LS_FIELDCAT-DO_SUM      = &2.
    LS_FIELDCAT-CFIELDNAME  = &3.
    APPEND LS_FIELDCAT TO LT_FIELDCAT.
  END-OF-DEFINITION.
  DEFINE M_SORT.
    ADD 1 TO LS_SORT-SPOS.
    LS_SORT-FIELDNAME = &1.
    LS_SORT-UP        = 'X'.
    LS_SORT-SUBTOT    = &2.
    APPEND LS_SORT TO LT_SORT.
  END-OF-DEFINITION.
  DATA:
    LS_FIELDCAT TYPE SLIS_FIELDCAT_ALV,
    LT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
    LT_SORT     TYPE SLIS_T_SORTINFO_ALV,
    LS_SORT     TYPE SLIS_SORTINFO_ALV,
    LS_LAYOUT   TYPE SLIS_LAYOUT_ALV.
  M_FIELDCAT 'VKORG' ''  ''.
  M_FIELDCAT 'KUNNR' ''  ''.
  M_FIELDCAT 'VBELN' ''  ''.
  M_FIELDCAT 'NETWR' 'X' 'WAERK'.
  M_FIELDCAT 'WAERK' ''  ''.
  M_SORT 'VKORG' 'X'.                  " SORT BY VKORG AND SUBTOTAL
  M_SORT 'KUNNR' 'X'.                  " SORT BY KUNNR AND SUBTOTAL
  M_SORT 'VBELN' ''.                   " SORT BY VBELN
  LS_LAYOUT-CELL_MERGE = 'X'.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
       EXPORTING
            IS_LAYOUT   = LS_LAYOUT
            IT_FIELDCAT = LT_FIELDCAT
            IT_SORT     = LT_SORT
       TABLES
            T_OUTTAB    = GT_VBAK.
ENDFORM.                               " F_DISPLAY_DATA
Regards,
Nikhil.