Adding Business Area to S928 Table on ECC

Question

Hi,
I have a requirement where i have to add the field Business Area (GSBER) to the standard ECC table S928 and populate it for every sales document. I know how to add it but dont know how to populate the field, can someone guide me through the process of how to go about this
Thanks
Rashmi.

Answer 1

Hi,
you said that you know how to add the field. Now, After the field GSBER (Data Element GSBER) is added in extractor, goto CMOD and copy the below code. GSBER data, for given VBLNR which is coming from Extractor along with MATNR, will be maintained VBAP table. Hence here is your full code.
*&  Include           ZXRSAU01
CASE i_datasource.
  WHEN <Data Source Name>.
Local Types
    TYPES : BEGIN OF lty_vbap,
             vbeln TYPE vbeln_va,
             matnr TYPE matnr,
             gsber TYPE gsber,
            END OF lty_vbap.
Local Internal Table
    DATA : lit_vbap TYPE TABLE OF lty_vbap,
           lit_dp   TYPE TABLE OF <Extractor Name>.
Local Field symbols
    FIELD-SYMBOLS : <lfs_dp>   TYPE <Extractor Name>,
                    <lfs_vbap> TYPE lty_vbap.
    CHECK c_t_data[] IS NOT INITIAL.
    lit_dp[] = c_t_data[].
    SELECT vbeln
           matnr
           gsber
      INTO TABLE lit_vbap
      FROM vbap
       FOR ALL ENTRIES IN lit_dp
     WHERE vbeln = lit_dp-vbeln AND
           matnr = lit_dp-matnr.
    IF sy-subrc = 0.
      SORT lit_vbap BY vbeln matnr.
      LOOP AT lit_dp ASSIGNING <lfs_dp>
                         WHERE vbeln IS NOT INITIAL.
        READ TABLE lit_vbap ASSIGNING <lfs_vbap>
        WITH KEY vbeln = <lfs_dp>-vbeln
                 matnr = <lfs_dp>-matnr
        BINARY SEARCH.
        IF sy-subrc = 0.
          <lfs_dp>-gsber = <lfs_vbap>-gsber.
        ENDIF.
      ENDLOOP.
    ENDIF.
    REFRESH : c_t_data[].
    c_t_data[] = lit_dp[].
    REFRESH : lit_dp[].
  WHEN OTHERS.
Do Nothing
ENDCASE.
Thanks,
Saru