Dump is coming after Moving the request to Quality server.

Question

Dear All,
Dump is coming in a ABAP code after moving the same to quality server.
Kindly refer the attached screenshot.
Kindly suggest.
Thanks and Regards
Jai

Answer 1

see the below code,
I have changed the value of l_age1 TYPE bsid-dmbtr to l_age1 TYPE p LENGTH 10 DECIMALS 2.
*& Report  ZFIRDEBAGEING
* 1. Program Name:ZFIRDEBAGEING             2.  Creation Dt:18/03/2013 *
* 3. Module Name :FI                        4.  Modified Dt:2/04/2013  *
* 5. Developer Name: Kallol Chakrabarty     6.  Modified By:           *
* 7.Background / Online :Online             8. Trans Code : ZCAGE      *
* 9. Frequency  : Regular    *
* Request Number :            - Created                                *
* Remarks : Customer Ageing Report                                     *
REPORT zfirdebageing.
TYPE-POOLS : slis.
TABLES: bsid,bseg.
TYPES : BEGIN OF tt_bsid,
          belnr TYPE belnr_d,
          gjahr TYPE gjahr,
          bukrs TYPE bukrs,
          dmbtr TYPE dmbtr,
          kunnr TYPE kunnr,
          budat TYPE budat,
          zfbdt TYPE dzfbdt,
          zterm TYPE dzterm,
          zbd1t TYPE dzbd1t,
          shkzg TYPE shkzg,
        END OF tt_bsid,
        BEGIN OF tt_bseg,
          belnr TYPE belnr_d,
          gjahr TYPE gjahr,
          bukrs TYPE bukrs,
          werks TYPE werks_d,
          prctr TYPE prctr,
          segment TYPE fb_segment,
        END OF tt_bseg,
        BEGIN OF tt_faglseg,
          langu TYPE spras,
          segment TYPE fb_segment,
          name TYPE text50,
        END OF tt_faglseg,
        BEGIN OF tt_cepct,
          spras  TYPE  spras,
          prctr  TYPE  prctr,
          ltext  TYPE  ltext,
        END OF tt_cepct,
        BEGIN OF tt_final,
          kunnr TYPE kunnr,
          segment TYPE fb_segment,
          name TYPE text50,
          prctr  TYPE  prctr,
          ltext  TYPE  ltext,
          name1 TYPE name1_gp,
          ort01 TYPE ort01_gp,
          age1 TYPE dmbtr,
          age2 TYPE dmbtr,
          age3 TYPE dmbtr,
          age4 TYPE dmbtr,
          age5 TYPE dmbtr,
          age6 TYPE dmbtr,
          age7 TYPE dmbtr,
          total TYPE dmbtr,
          total1 TYPE dmbtr,
          total2 TYPE dmbtr,
          zfbdt TYPE dzfbdt,
          zterm TYPE dzterm,
          zbd1t TYPE dzbd1t,
          budat TYPE budat,
        END OF tt_final,
        BEGIN OF tt_kna1,
          kunnr TYPE kunnr,
          name1 TYPE name1_gp,
          ort01 TYPE ort01_gp,
        END OF tt_kna1.
DATA : wa_bsid TYPE tt_bsid,
        it_bsid TYPE TABLE OF tt_bsid,
        wa_bseg TYPE tt_bseg,
        it_bseg TYPE TABLE OF tt_bseg,
"       wa_tmp1 TYPE tt_bseg, "Commented by ++KC 18.03.2013 after extended check
        it_tmp1 TYPE TABLE OF tt_bseg,
        wa_faglseg TYPE tt_faglseg,
        it_faglseg TYPE TABLE OF tt_faglseg,
        wa_cepct TYPE  tt_cepct,
        it_cepct TYPE TABLE OF tt_cepct,
        it_tmp TYPE TABLE OF  tt_bsid,
        wa_final TYPE tt_final,
        it_final TYPE TABLE OF tt_final,
        wa_final1 TYPE tt_final,
        it_final1 TYPE TABLE OF tt_final,
        wa_kna1 TYPE tt_kna1,
        it_kna1 TYPE TABLE OF tt_kna1.
*& ALV Data Declaration                                                *
DATA: it_fieldcat TYPE slis_t_fieldcat_alv,
       wa_fieldcat TYPE slis_fieldcat_alv,
       is_layout   TYPE slis_layout_alv,
       wa_event    TYPE slis_alv_event,
       it_event    TYPE slis_t_event.
SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS : s_kunnr FOR bsid-kunnr.
PARAMETERS : p_bukrs TYPE bseg-bukrs OBLIGATORY,
                    p_dateon  TYPE bsid-budat DEFAULT sy-datum OBLIGATORY.
SELECTION-SCREEN : END OF BLOCK b1.
SELECTION-SCREEN: BEGIN OF BLOCK b2 WITH FRAME TITLE text-003.
SELECT-OPTIONS : s_werks FOR bseg-werks,
                    s_sgmnt   FOR  bseg-segment,
                    s_prctr   FOR  bseg-prctr.
SELECT-OPTIONS : s_umskz FOR bsid-umskz.
SELECTION-SCREEN : END OF BLOCK b2.
DATA: v_days TYPE string,
       v_date1 TYPE bsid-budat,
       v_date2 TYPE bsid-budat,
       v_date3 TYPE bsid-budat,
       v_date4 TYPE bsik-budat,
       v_date5 TYPE bsik-budat,
       v_date6 TYPE bsik-budat,
       v_date7 TYPE bsik-budat,
*     l_age1 TYPE bsid-budat,
*     l_age2 TYPE bsid-dmbtr,
*     l_age3 TYPE bsid-dmbtr,
*     l_age4 TYPE bsid-dmbtr,
*     l_age5 TYPE bsid-dmbtr,
*     l_age6 TYPE bsid-dmbtr,
*     l_age7 TYPE bsid-dmbtr,
       l_age1 TYPE p LENGTH 10 DECIMALS 2,
       l_age2 TYPE p LENGTH 10 DECIMALS 2,
       l_age3 TYPE p LENGTH 10 DECIMALS 2,
       l_age4 TYPE p LENGTH 10 DECIMALS 2,
       l_age5 TYPE p LENGTH 10 DECIMALS 2,
       l_age6 TYPE p LENGTH 10 DECIMALS 2,
       l_age7 TYPE p LENGTH 10 DECIMALS 2.
CONSTANTS : v_age1(4) TYPE c VALUE 15 ,
             v_age2(4)    TYPE c VALUE  30,
             v_age3(4)    TYPE c VALUE  45,
             v_age4(4)    TYPE c VALUE  90,
             v_age5(4)    TYPE c VALUE  180,
             v_age6(4)    TYPE c VALUE  360,
             v_age7(4)    TYPE c VALUE  360.
INITIALIZATION.
   sy-title = 'CUSTOMER AGEING'.
*--------------- S-T-A-R-T O-F S-E-L-E-C-T-I-O-N ----------------------*
START-OF-SELECTION.
   PERFORM get_data.
   PERFORM process_data.
   PERFORM alv_display.
*&      Form  GET_DATA
*       text
*  -->  p1        text
*  <--  p2        text
FORM get_data .
   SELECT  belnr
           gjahr
           bukrs
           dmbtr
           kunnr
           budat
           zfbdt
           zterm
           zbd1t
           shkzg
           FROM bsid INTO TABLE it_bsid
           WHERE kunnr IN  s_kunnr
           AND bukrs = p_bukrs
*          AND zfbdt <= p_dateon
               AND budat <= p_dateon
           AND umskz IN s_umskz.
   SELECT      belnr
               gjahr
               bukrs
               dmbtr
               kunnr
               budat
               zfbdt
               zterm
               zbd1t
               shkzg
               FROM bsad APPENDING CORRESPONDING FIELDS OF TABLE it_bsid
               WHERE kunnr IN  s_kunnr
               AND bukrs = p_bukrs
               AND augdt > p_dateon
               AND umskz IN s_umskz.
   IF it_bsid[] IS NOT INITIAL.
     it_tmp[] = it_bsid[].
     DELETE ADJACENT DUPLICATES FROM it_tmp COMPARING kunnr.
     SELECT kunnr
            name1
            ort01 FROM kna1 INTO TABLE it_kna1
                                  FOR ALL ENTRIES IN it_tmp
                                  WHERE kunnr = it_tmp-kunnr.
     SELECT belnr
            gjahr
            bukrs
            werks
            prctr
            segment
            FROM bseg INTO TABLE it_bseg
                      FOR ALL ENTRIES IN it_bsid
                      WHERE belnr = it_bsid-belnr
                      AND   gjahr = it_bsid-gjahr
                      AND   werks IN s_werks
                      AND   prctr IN s_prctr
                      AND   segment IN s_sgmnt
                      AND umskz IN s_umskz.
     IF it_bseg[] IS NOT INITIAL.
       it_tmp1[] = it_bseg[].
       SORT it_tmp1 BY segment.
       DELETE ADJACENT DUPLICATES FROM it_tmp1 COMPARING segment.
       SELECT langu
              segment
              name
              FROM fagl_segmt INTO TABLE it_faglseg
                              FOR ALL ENTRIES IN it_tmp1
                              WHERE langu = 'EN'
                              AND segment = it_tmp1-segment.
       REFRESH it_tmp1.
       it_tmp1[] = it_bseg[].
       SORT it_tmp1 BY prctr.
       DELETE ADJACENT DUPLICATES FROM it_tmp1 COMPARING prctr.
       SELECT  spras
               prctr
               ltext
               FROM cepct INTO TABLE it_cepct
                          FOR ALL ENTRIES IN it_tmp1
                          WHERE spras = 'EN'
                          AND   prctr = it_tmp1-prctr.
     ENDIF.
   ENDIF.
ENDFORM. " GET_DATA
*&      Form  PROCESS_DATA
*       text
*  -->  p1        text
*  <--  p2        text
FORM process_data .
   v_date1 = p_dateon - v_age1.                              " 15 days  " Cnanges made by Jaiprakash
   v_date2 = p_dateon - v_age2.                              " 30 days  " Cnanges made by Jaiprakash
   v_date3 = p_dateon - v_age3.                              " 45 days  " Cnanges made by Jaiprakash
   v_date4 = p_dateon - v_age4.                              " 90 days  " Cnanges made by Jaiprakash
   v_date5 = p_dateon - v_age5.                              " 180 days " Cnanges made by Jaiprakash
   v_date6 = p_dateon - v_age6.                              " 360 days " Cnanges made by Jaiprakash
   v_date7 = p_dateon - v_age7.                              " 360 days " Changes made by Jaiprakash
   IF NOT it_bseg IS INITIAL.
*    DELETE it_bseg FROM wa_bseg WHERE segment = ''.
     DATA: lv_add TYPE i.
     DATA: lv_date TYPE sy-datum.
     LOOP AT it_bsid INTO wa_bsid.
       wa_final-zterm = wa_bsid-zterm.
       wa_final-zbd1t = wa_bsid-zbd1t.
       CLEAR wa_bseg.
       READ TABLE it_bseg INTO wa_bseg WITH KEY belnr = wa_bsid-belnr.
       IF sy-subrc EQ 0.
         wa_final-segment = wa_bseg-segment.
         wa_final-prctr   = wa_bseg-prctr.
         IF wa_bsid-shkzg = 'H'.
           wa_bsid-dmbtr = -1 * wa_bsid-dmbtr.
         ENDIF.
         CLEAR wa_faglseg.
         READ TABLE it_faglseg INTO wa_faglseg WITH KEY segment = wa_final-segment.
         IF sy-subrc EQ 0.
           wa_final-name = wa_faglseg-name.
         ENDIF.
         CLEAR wa_cepct.
         READ TABLE it_cepct INTO wa_cepct WITH KEY prctr = wa_final-prctr.
         IF sy-subrc EQ 0.
           wa_final-ltext = wa_cepct-ltext.
         ENDIF.
* Calculation for the age buckets of <15, <30, <45, <90, <180 , <360 and >360 days
*        IF     wa_bsid-zfbdt <= p_dateon AND wa_bsid-zfbdt > v_date1.
*          l_age1 = wa_bsid-dmbtr + l_age1.
*        ELSEIF wa_bsid-zfbdt <= v_date1 AND wa_bsid-zfbdt > v_date2.
*          l_age2 = wa_bsid-dmbtr + l_age2.
*        ELSEIF wa_bsid-zfbdt <= v_date2 AND wa_bsid-zfbdt > v_date3.
*          l_age3 = wa_bsid-dmbtr + l_age3.
*        ELSEIF wa_bsid-zfbdt <= v_date3 AND wa_bsid-zfbdt > v_date4.
*          l_age4 = wa_bsid-dmbtr + l_age4.
*        ELSEIF wa_bsid-zfbdt <= v_date4 AND wa_bsid-zfbdt > v_date5.
*          l_age5 = wa_bsid-dmbtr + l_age5.
*        ELSEIF wa_bsid-zfbdt <= v_date5 AND wa_bsid-zfbdt > v_date6.
*          l_age6 = wa_bsid-dmbtr + l_age6.
*        ELSEIF wa_bsid-zfbdt <= v_date7.
*          l_age7 = wa_bsid-dmbtr + l_age7.
*        ENDIF.
         IF     wa_bsid-zfbdt <= p_dateon AND wa_bsid-zfbdt > v_date1.
           l_age1 = wa_bsid-dmbtr + l_age1.
         ELSEIF wa_bsid-zfbdt <= v_date1 AND wa_bsid-zfbdt > v_date2.
           l_age2 = wa_bsid-dmbtr + l_age2.
         ELSEIF wa_bsid-zfbdt <= v_date2 AND wa_bsid-zfbdt > v_date3.
           l_age3 = wa_bsid-dmbtr + l_age3.
         ELSEIF wa_bsid-zfbdt <= v_date3 AND wa_bsid-zfbdt > v_date4.
           l_age4 = wa_bsid-dmbtr + l_age4.
         ELSEIF wa_bsid-zfbdt <= v_date4 AND wa_bsid-zfbdt > v_date5.
           l_age5 = wa_bsid-dmbtr + l_age5.
         ELSEIF wa_bsid-zfbdt <= v_date5 AND wa_bsid-zfbdt > v_date6.
           l_age6 = wa_bsid-dmbtr + l_age6.
         ELSEIF wa_bsid-zfbdt <= v_date7.
           l_age7 = wa_bsid-dmbtr + l_age7.
         ENDIF.
         wa_final-kunnr = wa_bsid-kunnr.
         CLEAR wa_kna1.
         READ TABLE it_kna1 INTO wa_kna1 WITH KEY kunnr = wa_bsid-kunnr.
         IF sy-subrc EQ 0.
           wa_final-name1 = wa_kna1-name1.
           wa_final-ort01 = wa_kna1-ort01.
         ENDIF.
         lv_add = wa_final-zbd1t.
*     lv_add = wa_final-zbd1t.
         CLEAR:lv_date.
         CALL FUNCTION 'FKK_ADD_WORKINGDAY'
           EXPORTING
             i_date      = wa_final-budat
             i_days      = lv_add
*           I_CALENDAR1 =
*           I_CALENDAR2 =
           IMPORTING
             e_date      = lv_date
*           E_RETURN    =
         wa_final-age1  = l_age1.
         wa_final-age2  = l_age2.
         wa_final-age3  = l_age3.
         wa_final-age4  = l_age4.
         wa_final-age5  = l_age5.
         wa_final-age6  = l_age6.
         wa_final-age7  = l_age7.
         wa_final-total = wa_final-age1 + wa_final-age2 + wa_final-age3 + wa_final-age4 + wa_final-age5 + wa_final-age6 + wa_final-age7.
*          wa_final-age1  = l_age1.
*          wa_final-age2  = l_age2.
*          wa_final-age3  = l_age3.
*          wa_final-age4  = l_age4.
*          wa_final-age5  = l_age5.
*          wa_final-age6  = l_age6.
*          wa_final-age7  = l_age7.
*         wa_final-total1 = wa_final-age1 + wa_final-age2 + wa_final-age3 + wa_final-age4 + wa_final-age5 + wa_final-age6 + wa_final-age7.
*        wa_final-age1  = l_age1.
*         wa_final-age2  = l_age2.
*         wa_final-age3  = l_age3.
*         wa_final-age4  = l_age4.
*         wa_final-age5  = l_age5.
*         wa_final-age6  = l_age6.
*         wa_final-age7  = l_age7.
*         wa_final-total1 = wa_final-age1 + wa_final-age2 + wa_final-age3 + wa_final-age4 + wa_final-age5 + wa_final-age6 + wa_final-age7.
         IF p_dateon GT lv_date.
           wa_final-age1  = l_age1.
           wa_final-age2  = l_age2.
           wa_final-age3  = l_age3.
           wa_final-age4  = l_age4.
           wa_final-age5  = l_age5.
           wa_final-age6  = l_age6.
           wa_final-age7  = l_age7.
           wa_final-total1 = wa_final-age1 + wa_final-age2 + wa_final-age3 + wa_final-age4 + wa_final-age5 + wa_final-age6 + wa_final-age7.
         ELSE.
           wa_final-age1  = l_age1.
           wa_final-age2  = l_age2.
           wa_final-age3  = l_age3.
           wa_final-age4  = l_age4.
           wa_final-age5  = l_age5.
           wa_final-age6  = l_age6.
           wa_final-age7  = l_age7.
           wa_final-total2 = wa_final-age1 + wa_final-age2 + wa_final-age3 + wa_final-age4 + wa_final-age5 + wa_final-age6 + wa_final-age7.
         ENDIF.
         APPEND wa_final TO it_final.
         CLEAR: wa_final,l_age1,l_age2,l_age3,l_age4,l_age5,l_age6,l_age7.
       ENDIF.
     ENDLOOP.
   ENDIF.
   IF it_final IS NOT INITIAL.
     SORT it_final BY kunnr segment.
     LOOP AT it_final INTO wa_final.
       MOVE wa_final TO wa_final1.
       wa_final1-prctr = ''.
       wa_final1-ltext = ''.
       wa_final1-segment = ''.
       wa_final1-name = ''.
       wa_final1-zterm = ''.
       AT END OF name1.
         SUM.
         wa_final1-total = wa_final-total.
         wa_final1-total1 = wa_final-total1.
         wa_final1-total2 = wa_final-total2.
         wa_final1-age1 = wa_final-age1.
         wa_final1-age2 = wa_final-age2.
         wa_final1-age3 = wa_final-age3.
         wa_final1-age4 = wa_final-age4.
         wa_final1-age5 = wa_final-age5.
         wa_final1-age6 = wa_final-age6.
         wa_final1-age7 = wa_final-age7.
         COLLECT wa_final1 INTO it_final1.
         CLEAR wa_final1.
       ENDAT.
     ENDLOOP.
   ENDIF.
ENDFORM. " PROCESS_DATA
**&      Form  ALV_DISPLAY
**       text
**  -->  p1        text
**  <--  p2        text
FORM alv_display .
   DATA : v_col TYPE i VALUE 1.
   CLEAR wa_fieldcat.
   v_col = v_col + 1.
   wa_fieldcat-col_pos   = v_col.
   wa_fieldcat-seltext_m = 'Customer Code'.
   wa_fieldcat-fieldname = 'KUNNR'.
   wa_fieldcat-tabname   = text-002.
   wa_fieldcat-key       = 'X'.
   wa_fieldcat-outputlen = 14.
   APPEND wa_fieldcat TO it_fieldcat.
   CLEAR wa_fieldcat.
   wa_fieldcat-col_pos   = v_col.
   wa_fieldcat-seltext_m = 'Customer Name'.
   wa_fieldcat-fieldname = 'NAME1'.
   wa_fieldcat-tabname   = text-002.
   wa_fieldcat-key       = 'X'.
   wa_fieldcat-outputlen = 14.
   APPEND wa_fieldcat TO it_fieldcat.
   CLEAR wa_fieldcat.
   v_col = v_col + 1.
   wa_fieldcat-col_pos   = v_col.
   wa_fieldcat-seltext_m = 'City'.
   wa_fieldcat-fieldname = 'ORT01'.
   wa_fieldcat-tabname   = text-002.
   wa_fieldcat-key       = 'X'.
   wa_fieldcat-outputlen = 35.
   APPEND wa_fieldcat TO it_fieldcat.
***   CLEAR wa_fieldcat.
***   v_col = v_col + 1.
***   wa_fieldcat-col_pos   = v_col.
***   wa_fieldcat-seltext_m = 'Payment Term'.
***   wa_fieldcat-fieldname = 'ZTERM'.
***   wa_fieldcat-tabname   = text-002.
***   wa_fieldcat-key       = 'X'.
***   wa_fieldcat-outputlen = 14.
***   APPEND wa_fieldcat TO it_fieldcat.
*  CLEAR wa_fieldcat.
*  v_col = v_col + 1.
*  wa_fieldcat-col_pos   = v_col.
*  wa_fieldcat-seltext_m = 'No. Of Days'.
*  wa_fieldcat-fieldname = 'ZBD1T'.
*  wa_fieldcat-tabname   = text-002.
*  wa_fieldcat-key       = 'X'.
*  wa_fieldcat-outputlen = 14.
*  APPEND wa_fieldcat TO it_fieldcat.
* CLEAR wa_fieldcat.
* v_col = v_col + 1.
* wa_fieldcat-col_pos   = v_col.
* wa_fieldcat-seltext_m = 'Baseline Date'.
* wa_fieldcat-fieldname = 'ZFBDT'.
* wa_fieldcat-tabname   = text-002.
* wa_fieldcat-key       = '