Closing stock of a particular date

Question

how to get plant wise material closing stock on any particular date. say previous months end date. I am calculating that from MSEG table with the help of MSEGINSMK and MSEGSHKZG field. (with date filtaration by joining MBLNR of MKPF table) But stock is showing different with the closing stock showing in MB5B report for that date. I don't know which BWART of MSEG table to be excluded. My email id is [email protected]

Answer 1

Hi,
This is a stock aging report, you can use this for reference.
Logic: Based on current stock and value from MBEW table. The latest receipt dates were taken till the qty tallies off.Rejections and reversals are considered.
The movement types considered are ('101','102','105','106','122','123','131','132','301','302','309','310','501','502','531','532','561','562','701','702').
*& Report  ZMM03_TRY                                                 *
REPORT  ZMM03 LINE-SIZE 226
               LINE-COUNT 35(2)
                NO STANDARD PAGE HEADING..
TABLES : S032,  "Current Stock And Grouping Terms
         MBEW,  "Material Valuation
         T023T, "Material Group Desc.
         MAKT,  "Material Description
         EKPO.  "Purchasing Document Item.
DATA : BEGIN OF T_HEADER OCCURS 0,
       MTART LIKE MARA-MTART,
       MATNR LIKE MBEW-MATNR,
       BWKEY LIKE MBEW-BWKEY,
       MATKL LIKE MARA-MATKL,
       MAKTX LIKE MAKT-MAKTX,
       MEINS LIKE MARA-MEINS,
       LBKUM LIKE MBEW-LBKUM,
       SALK3 LIKE MBEW-SALK3,
       VERPR LIKE MBEW-VERPR,
       CLSTK LIKE MBEW-LBKUM,
       CLVAL LIKE CKMLCR-SALK3,
       UNIT LIKE CKMLCR-PVPRS,
       END OF T_HEADER.
DATA : BEGIN OF T_MSEG OCCURS 0,
       MATNR LIKE MSEG-MATNR,
       WERKS LIKE MSEG-WERKS,
       BUDAT LIKE MKPF-BUDAT,
       MBLNR LIKE MKPF-MBLNR,
       MJAHR LIKE MKPF-MJAHR,
       ZEILE LIKE MSEG-ZEILE,
       LFBNR LIKE MSEG-LFBNR,
       LFBJA LIKE MSEG-LFBJA,
       LFPOS LIKE MSEG-LFPOS,
       BWART LIKE MSEG-BWART,
       MENGE LIKE MSEG-MENGE,
       EBELN LIKE MSEG-EBELN,
       EBELP LIKE MSEG-EBELP,
       XAUTO LIKE MSEG-XAUTO,
       UMMAT LIKE MSEG-UMMAT,
       UMWRK LIKE MSEG-UMWRK,
       MARK(1),
       END OF T_MSEG.
TYPE-POOLS : SLIS.
DATA : L_STOCK TYPE MSEG-MENGE.
DATA : WA_MSEG LIKE T_MSEG.
DATA : WA_MSEG1 LIKE T_MSEG.
DATA : T_ITEMS LIKE T_MSEG OCCURS 0 WITH HEADER LINE.
DATA : T_CUR_STOCK LIKE T_MSEG OCCURS 0 WITH HEADER LINE.
DATA : L_LBKUM TYPE MBEW-LBKUM.
DATA : BEGIN OF T_OUTPUT OCCURS 0,
         WERKS LIKE MSEG-WERKS,
         MATNR LIKE MSEG-MATNR,
         BUDAT LIKE MKPF-BUDAT,
         MENGE LIKE MSEG-MENGE,
         PDAYS TYPE I,
         PVAL  TYPE MSEG-MENGE,
         MAKTX LIKE MAKT-MAKTX,
         CQTY  LIKE MSEG-MENGE,
         CPRC  LIKE MBEW-SALK3,
       END OF T_OUTPUT.
DATA: GRID_TAB TYPE SLIS_T_FIELDCAT_ALV  WITH HEADER LINE.
DATA : T_SORT TYPE SLIS_T_SORTINFO_ALV,
       WA_SORT TYPE SLIS_SORTINFO_ALV.
*AT SELECTION-SCREEN.
SELECTION-SCREEN BEGIN OF BLOCK 1 WITH FRAME TITLE TEXT-014.
SELECTION-SCREEN SKIP 1.
PARAMETERS : P_DATE LIKE S032-LETZTABG OBLIGATORY DEFAULT SY-DATUM.
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN END OF BLOCK 1.
SELECTION-SCREEN BEGIN OF BLOCK 2 WITH FRAME TITLE TEXT-015.
PARAMETERS     : P_WERKS    TYPE S032-WERKS OBLIGATORY.
SELECT-OPTIONS : S_LGORT    FOR S032-LGORT,
                 S_MATNR    FOR S032-MATNR.
SELECTION-SCREEN END OF BLOCK 2.
SELECTION-SCREEN BEGIN OF BLOCK 3 WITH FRAME TITLE TEXT-016.
SELECT-OPTIONS : S_MTART    FOR S032-MTART,
                 S_MATKL    FOR S032-MATKL.
SELECTION-SCREEN END OF BLOCK 3.
IF  P_DATE IS INITIAL AND
    P_WERKS IS INITIAL AND
    S_LGORT IS INITIAL AND
    S_MATNR IS INITIAL AND
    S_MTART IS INITIAL AND
    S_MATKL  IS INITIAL.
  MESSAGE I398(00) WITH 'Enter Selection Critirea'(019).
  SY-SUBRC = '1'.
ELSE.
  SELECT AMATNR ABWKEY BMATKL BMTART CMAKTX BMEINS A~LBKUM
         A~SALK3
       INTO CORRESPONDING FIELDS OF TABLE T_HEADER
       FROM MBEW AS A INNER JOIN MARA AS B ON AMATNR = BMATNR
                      INNER JOIN MAKT AS C ON AMATNR = CMATNR
                                        WHERE A~MATNR IN S_MATNR
                                          AND A~BWKEY EQ P_WERKS
                                          AND MATKL IN S_MATKL
                                          AND MTART IN S_MTART
                                          AND BWTAR EQ ' '
                                          AND C~SPRAS = SY-LANGU.
  IF SY-SUBRC EQ 0.
    SELECT ABUDAT AMBLNR AMJAHR BZEILE BMATNR BWERKS B~BWART
           BMENGE BLFBNR BLFBJA BLFPOS BEBELN BEBELP B~XAUTO
           BUMMAT BUMWRK
        INTO CORRESPONDING FIELDS OF TABLE T_MSEG
        FROM MKPF AS A INNER JOIN MSEG AS B ON AMBLNR = BMBLNR
                                           AND AMJAHR = BMJAHR
         FOR ALL ENTRIES IN T_HEADER
                                         WHERE A~BUDAT <= P_DATE
                                           AND B~MATNR = T_HEADER-MATNR
                                           AND B~WERKS = T_HEADER-BWKEY
                                           AND B~BWART IN ('101',
                                                           '102',
                                                           '105',
                                                           '106',
                                                           '122',
                                                           '123',
                                                           '301',
                                                           '302',
                                                           '701',
                                                           '702',
                                                           '131',
                                                           '132',
                                                           '309',
                                                           '310',
                                                           '501',
                                                           '502',
                                                           '531',
                                                           '532',
                                                           '561',
                                                           '562').
    PERFORM GET_DEAD_STOCK.
    PERFORM DISPLAY_OUTPUT.
  ELSE.
    MESSAGE S398(00) WITH 'No Data found for'(013)
    'Given Selection Critirea'(017).
    LEAVE LIST-PROCESSING.
  ENDIF.
ENDIF.
*&      Form  get_dead_stock
      text
FORM GET_DEAD_STOCK .
  LOOP AT T_HEADER.
    SORT T_MSEG BY MATNR WERKS BUDAT DESCENDING MBLNR DESCENDING.
    LOOP AT T_MSEG WHERE MATNR = T_HEADER-MATNR
                     AND WERKS = T_HEADER-BWKEY
                     AND ( BWART = '101' OR
                           BWART = '105' OR
                           BWART = '501' OR
                           BWART = '531' OR
                           BWART = '561' OR
                           BWART = '701' OR
                           BWART = '309' OR
                           BWART = '301' OR
                           BWART = '131' ).
      IF T_MSEG-BWART = 101.
        READ TABLE T_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
                                   LFBJA = T_MSEG-MJAHR
                                   LFPOS = T_MSEG-ZEILE
                                   BWART = 102.
        IF SY-SUBRC = 0.
          T_MSEG-MARK = 'X'.
          MODIFY T_MSEG.
          CONTINUE.
        ENDIF.
        READ TABLE T_MSEG INTO WA_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
                                   LFBJA = T_MSEG-MJAHR
                                   LFPOS = T_MSEG-ZEILE
                                   BWART = 122.
        IF SY-SUBRC = 0.
          READ TABLE T_MSEG INTO WA_MSEG1 WITH KEY LFBNR = WA_MSEG-MBLNR
                                     LFBJA = WA_MSEG-MJAHR
                                     LFPOS = WA_MSEG-ZEILE
                                     BWART = 123.
          IF SY-SUBRC EQ 0.
            WA_MSEG-MARK = 'X'.
            MODIFY T_MSEG FROM WA_MSEG.
            CONTINUE.
          ELSE.
            IF T_MSEG-MENGE EQ WA_MSEG-MENGE.
              T_MSEG-MARK = 'X'.
              MODIFY T_MSEG.
              CONTINUE.
            ELSE.
              T_MSEG-MENGE = T_MSEG-MENGE - WA_MSEG-MENGE.
              MODIFY T_MSEG.
            ENDIF.
          ENDIF.
        ENDIF.
      ELSEIF T_MSEG-BWART = 105.
        READ TABLE T_MSEG INTO WA_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
                                   LFBJA = T_MSEG-MJAHR
                                   LFPOS = T_MSEG-ZEILE
                                   BWART = 106.
        IF SY-SUBRC = 0.
          T_MSEG-MARK = 'X'.
          MODIFY T_MSEG.
          CONTINUE.
        ENDIF.
      ELSEIF T_MSEG-BWART = 131.
        READ TABLE T_MSEG INTO WA_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
                                   LFBJA = T_MSEG-MJAHR
                                   LFPOS = T_MSEG-ZEILE
                                   BWART = 132.
        IF SY-SUBRC = 0.
          T_MSEG-MARK = 'X'.
          MODIFY T_MSEG.
          CONTINUE.
        ENDIF.
      ELSEIF T_MSEG-BWART = 501.
        READ TABLE T_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
                                   LFBJA = T_MSEG-MJAHR
                                   LFPOS = T_MSEG-ZEILE
                                   BWART = 502.
        IF SY-SUBRC = 0.
          T_MSEG-MARK = 'X'.
          MODIFY T_MSEG.
          CONTINUE.
        ENDIF.
      ELSEIF T_MSEG-BWART = 301.
        READ TABLE T_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
                                   LFBJA = T_MSEG-MJAHR
                                   LFPOS = T_MSEG-ZEILE
                                   BWART = 302.
        IF SY-SUBRC = 0.
          T_MSEG-MARK = 'X'.
          MODIFY T_MSEG.
          CONTINUE.
        ENDIF.
      ELSEIF T_MSEG-BWART = 531.
        READ TABLE T_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
                                   LFBJA = T_MSEG-MJAHR
                                   LFPOS = T_MSEG-ZEILE
                                   BWART = 532.
        IF SY-SUBRC = 0.
          T_MSEG-MARK = 'X'.
          MODIFY T_MSEG.
          CONTINUE.
        ENDIF.
      ELSEIF T_MSEG-BWART = 561.
        READ TABLE T_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
                                   LFBJA = T_MSEG-MJAHR
                                   LFPOS = T_MSEG-ZEILE
                                   BWART = 562.
        IF SY-SUBRC = 0.
          T_MSEG-MARK = 'X'.
          MODIFY T_MSEG.
          CONTINUE.
        ENDIF.
      ELSEIF T_MSEG-BWART = 701.
        READ TABLE T_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
                                   LFBJA = T_MSEG-MJAHR
                                   LFPOS = T_MSEG-ZEILE
                                   BWART = 702.
        IF SY-SUBRC = 0.
          T_MSEG-MARK = 'X'.
          MODIFY T_MSEG.
          CONTINUE.
        ENDIF.
      ELSEIF T_MSEG-BWART = 309.
        READ TABLE T_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
                                   LFBJA = T_MSEG-MJAHR
                                   LFPOS = T_MSEG-ZEILE
                                   BWART = 310.
        IF SY-SUBRC = 0.
          T_MSEG-MARK = 'X'.
          MODIFY T_MSEG.
          CONTINUE.
        ELSEIF T_MSEG-XAUTO = ' '.
          T_MSEG-MARK = 'X'.
          MODIFY T_MSEG.
          CONTINUE.
        ELSEIF T_MSEG-MATNR EQ T_MSEG-UMMAT.
          T_MSEG-MARK = 'X'.
          MODIFY T_MSEG.
          CONTINUE.
        ENDIF.
      ENDIF.
      SELECT SINGLE EBELN INTO EKPO-EBELN FROM EKPO
                         WHERE EBELN = T_MSEG-EBELN
                           AND EBELP = T_MSEG-EBELP
                           AND KNTTP = 'K'.
      IF SY-SUBRC = 0.
        T_MSEG-MARK = 'X'.
        MODIFY T_MSEG.
        CONTINUE.
      ENDIF.
     TMENGE = TMENGE - t_mseg-MENGE.
    ENDLOOP.
  ENDLOOP.
  DELETE T_MSEG WHERE MARK = 'X'.
  DELETE T_MSEG WHERE ( BWART = '102' OR
                        BWART = '106' OR
                        BWART = '502' OR
                        BWART = '532' OR
                        BWART = '562' OR
                        BWART = '702' OR
                        BWART = '310' OR
                        BWART = '302' OR
                        BWART = '123' OR
                        BWART = '122' OR
                        BWART = '132' ).
  SORT T_HEADER BY MATNR BWKEY.
  DELETE ADJACENT DUPLICATES FROM T_HEADER COMPARING MATNR BWKEY.
  T_CUR_STOCK[] = T_MSEG[].
  SORT T_CUR_STOCK BY MATNR WERKS.
  LOOP AT T_CUR_STOCK.
    WA_MSEG = T_CUR_STOCK.
    AT END OF WERKS.
    ENDAT.
  ENDLOOP.
  LOOP AT T_HEADER.
    CLEAR L_LBKUM.
    L_LBKUM = T_HEADER-LBKUM.
    REFRESH T_ITEMS.
    CLEAR T_ITEMS.
    LOOP AT T_MSEG WHERE MATNR EQ T_HEADER-MATNR
                     AND WERKS EQ T_HEADER-BWKEY.
      T_ITEMS = T_MSEG.
      APPEND T_ITEMS.
      CLEAR T_ITEMS.
    ENDLOOP.
    SORT T_ITEMS BY BUDAT DESCENDING
                    MBLNR DESCENDING.
    CLEAR L_LBKUM.
    LOOP AT T_ITEMS.
      L_LBKUM = T_ITEMS-MENGE - T_HEADER-LBKUM.
      IF L_LBKUM GE 0.
        T_OUTPUT-MATNR = T_HEADER-MATNR.
        T_OUTPUT-WERKS = T_HEADER-BWKEY.
        T_OUTPUT-BUDAT = T_ITEMS-BUDAT.
        T_OUTPUT-MENGE = T_HEADER-LBKUM.
        APPEND T_OUTPUT.
        CLEAR T_OUTPUT.
        EXIT.
      ELSE.
        T_HEADER-LBKUM = T_HEADER-LBKUM - T_ITEMS-MENGE.
        T_OUTPUT-MATNR = T_HEADER-MATNR.
        T_OUTPUT-WERKS = T_HEADER-BWKEY.
        T_OUTPUT-BUDAT = T_ITEMS-BUDAT.
        T_OUTPUT-MENGE = T_ITEMS-MENGE.
        APPEND T_OUTPUT.
        CLEAR T_OUTPUT.
        CONTINUE.
      ENDIF.
    ENDLOOP.
  ENDLOOP.
ENDFORM.                    " get_dead_stock
*&      Form  DISPLAY_OUTPUT
      text
FORM DISPLAY_OUTPUT .
  DATA: L_DAYS TYPE I.
  DATA : WA_OUTPUT LIKE T_OUTPUT.
  DATA : T_FINAL LIKE T_OUTPUT OCCURS 0 WITH HEADER LINE.
  DATA : WA_FINAL LIKE T_OUTPUT.
  DATA : L_CQTY TYPE MSEG-MENGE,
         L_CPRC TYPE MBEW-SALK3.
  DATA : L_TITLE TYPE LVC_TITLE.
  DATA : L_NAME1 TYPE T001W-NAME1.
*C-- Not to output when the quantity is zero.
  DELETE T_OUTPUT WHERE MENGE EQ 0.
  SORT T_OUTPUT BY WERKS MATNR BUDAT.
  LOOP AT T_OUTPUT.
    T_FINAL = T_OUTPUT.
    AT NEW MATNR.
      CLEAR T_HEADER.
      READ TABLE T_HEADER WITH KEY MATNR = T_OUTPUT-MATNR
                                   BWKEY = T_OUTPUT-WERKS.
    ENDAT.
    T_FINAL-MAKTX = T_HEADER-MAKTX.
    IF T_HEADER-LBKUM GT 0.
      T_FINAL-PVAL = ( T_OUTPUT-MENGE * T_HEADER-SALK3 / T_HEADER-LBKUM ).
    ELSE.
      CLEAR T_FINAL-PVAL.
    ENDIF.
    L_CQTY = L_CQTY + T_OUTPUT-MENGE.
    IF T_HEADER-LBKUM GT 0.
      L_CPRC = L_CPRC + ( T_OUTPUT-MENGE * T_HEADER-SALK3 / T_HEADER-LBKUM ).
    ENDIF.
    CALL FUNCTION 'HR_SGPBS_YRS_MTHS_DAYS'
      EXPORTING
        BEG_DA        = T_OUTPUT-BUDAT
        END_DA        = P_DATE
      IMPORTING
        NO_CAL_DAY    = L_DAYS
      EXCEPTIONS
        DATEINT_ERROR = 1
        OTHERS        = 2.
    IF SY-SUBRC <> 0.
      WRITE : 70 'Error While Calculating days'(018) .
    ELSE.
      T_FINAL-PDAYS = L_DAYS.
    ENDIF.
    T_FINAL-CQTY = L_CQTY.
    T_FINAL-CPRC = L_CPRC.
    APPEND T_FINAL.
    AT END OF MATNR.
      CLEAR : L_CPRC, L_CQTY.
    ENDAT.
  ENDLOOP.
  PERFORM BUILD_FIELD_CATALOG.
  WA_SORT-FIELDNAME = 'MATNR'.
  WA_SORT-SPOS = '1'.
  APPEND WA_SORT TO T_SORT.
  SELECT SINGLE NAME1 FROM T001W INTO L_NAME1
  WHERE WERKS = P_WERKS.
  CONCATENATE 'Plant: ' P_WERKS ',' L_NAME1 INTO L_TITLE.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM = SY-CPROG
      I_GRID_TITLE       = L_TITLE
      IT_FIELDCAT        = GRID_TAB[]
      IT_SORT            = T_SORT
      I_SAVE             = 'A'
    TABLES
      T_OUTTAB           = T_FINAL[].
SORT T_FINAL BY WERKS MATNR BUDAT.
LOOP AT T_FINAL.
   WRITE : /10 T_FINAL-MATNR.
   WRITE : 30 T_FINAL-WERKS.
   WRITE : 40 T_FINAL-BUDAT.
   WRITE : 50 T_FINAL-MENGE.
**C-- FM to find the number of days between
**C-- todays date and the posting date
   CALL FUNCTION 'HR_SGPBS_YRS_MTHS_DAYS'
     EXPORTING
       BEG_DA        = T_FINAL-BUDAT
       END_DA        = P_DATE
     IMPORTING
       NO_CAL_DAY    = L_DAYS
     EXCEPTIONS
       DATEINT_ERROR = 1
       OTHERS        = 2.
   IF SY-SUBRC <> 0.
     WRITE : 70 'Error While Calculating days'(018) .
   ELSE.
     WRITE : 70 L_DAYS.
   ENDIF.
   AT END OF MATNR.
     ULINE.
     READ TABLE T_HEADER WITH KEY MATNR = T_FINAL-MATNR
                                  BWKEY = T_FINAL-WERKS.
     IF SY-SUBRC EQ 0.
       WRITE : /1 'Total Valuated Stock', T_HEADER-LBKUM.
       WRITE : /1 'Value of total valuated Stock', T_HEADER-SALK3.
       ULINE.
     ENDIF.
   ENDAT.
ENDLOOP.
ENDFORM.                    " DISPLAY_OUTPUT
*&      Form  BUILD_FIELD_CATALOG
      text
-->  p1        text
<--  p2        text
FORM BUILD_FIELD_CATALOG .
  DATA : CNT1 TYPE I.
  CNT1 = CNT1 + 1.
  GRID_TAB-COL_POS = CNT1.
  GRID_TAB-SELTEXT_L = 'Material'.
  GRID_TAB-FIELDNAME = 'MATNR'.
  GRID_TAB-KEY = 'X'.
  GRID_TAB-NO_ZERO = 'X'.
  GRID_TAB-TABNAME = 'T_FINAL'.
  APPEND GRID_TAB.
  CLEAR GRID_TAB.
  CNT1 = CNT1 + 1.
  GRID_TAB-COL_POS = CNT1.
  GRID_TAB-SELTEXT_L = 'Material Description'.
  GRID_TAB-FIELDNAME = 'MAKTX'.
  GRID_TAB-OUTPUTLEN = '30'.
GRID_TAB-KEY = 'X'.
GRID_TAB-NO_ZERO = 'X'.
  GRID_TAB-TABNAME = 'T_FINAL'.
  APPEND GRID_TAB.
  CLEAR GRID_TAB.
  CNT1 = CNT1 + 1.
  GRID_TAB-COL_POS = CNT1.
  GRID_TAB-SELTEXT_L = 'Date of Reciept'.
  GRID_TAB-FIELDNAME = 'BUDAT'.
GRID_TAB-KEY = 'X'.
GRID_TAB-NO_ZERO = 'X'.
  GRID_TAB-TABNAME = 'T_FINAL'.
  APPEND GRID_TAB.
  CLEAR GRID_TAB.
  CNT1 = CNT1 + 1.
  GRID_TAB-COL_POS = CNT1.
  GRID_TAB-SELTEXT_L = 'Quantity'.
  GRID_TAB-FIELDNAME = 'MENGE'.
GRID_TAB-KEY = 'X'.
GRID_TAB-NO_ZERO = 'X'.
  GRID_TAB-TABNAME = 'T_FINAL'.
  APPEND GRID_TAB.
  CLEAR GRID_TAB.
  CNT1 = CNT1 + 1.
  GRID_TAB-COL_POS = CNT1.
  GRID_TAB-SELTEXT_L = 'Pending Days'.
  GRID_TAB-FIELDNAME = 'PDAYS'.
GRID_TAB-KEY = 'X'.
GRID_TAB-NO_ZERO = 'X'.
  GRID_TAB-TABNAME = 'T_FINAL'.
  APPEND GRID_TAB.
  CLEAR GRID_TAB.
  CNT1 = CNT1 + 1.
  GRID_TAB-COL_POS = CNT1.
  GRID_TAB-SELTEXT_L = 'Value'.
  GRID_TAB-FIELDNAME = 'PVAL'.
GRID_TAB-KEY = 'X'.
GRID_TAB-NO_ZERO = 'X'.
  GRID_TAB-TABNAME = 'T_FINAL'.
  APPEND GRID_TAB.
  CLEAR GRID_TAB.
  CNT1 = CNT1 + 1.
  GRID_TAB-COL_POS = CNT1.
  GRID_TAB-SELTEXT_L = 'Cumulative Quantity'.
  GRID_TAB-FIELDNAME = 'CQTY'.
GRID_TAB-KEY = 'X'.
GRID_TAB-NO_ZERO = 'X'.
  GRID_TAB-TABNAME = 'T_FINAL'.
  APPEND GRID_TAB.
  CLEAR GRID_TAB.
  CNT1 = CNT1 + 1.
  GRID_TAB-COL_POS = CNT1.
  GRID_TAB-SELTEXT_L = 'Value of Cumulative Quantity'.
  GRID_TAB-OUTPUTLEN = '30'.
  GRID_TAB-FIELDNAME = 'CPRC'.
GRID_TAB-KEY = 'X'.
GRID_TAB-NO_ZERO = 'X'.
  GRID_TAB-TABNAME = 'T_FINAL'.
  APPEND GRID_TAB.
ENDFORM.                    " BUILD_FIELD_CATALOG