Start Routine to Populate Account Group

Question

Hello Thanks for your help and response from SDN but I modified the code as below but still it did not work now at all .please help
Data: my_index like sy-tabix.
Data: SOURCE_WA TYPE tys_sc_1.
    types: begin of I_MAT_TYPE,
     CUSTOMER       type  /BI0/OICUSTOMER,
     ACCNT_GRP          type /BI0/OIACCNT_GRP,
   end of I_MAT_TYPE.
    DATA: I_MAT TYPE STANDARD TABLE OF I_MAT_TYPE INITIAL SIZE 0.
DATA: I_MAT_WA TYPE I_MAT_TYPE.
IF  I_MAT[] IS INITIAL.
SELECT CUSTOMER ACCNT_GRP FROM /BI0/PCUSTOMER APPENDING CORRESPONDING
FIELDS OF TABLE I_MAT.
*FOR ALL ENTRIES IN SOURCE_PACKAGE WHERE CUSTOMER EQ
*SOURCE_PACKAGE-DEBITOR.
SORT I_MAT BY CUSTOMER.
ENDIF.
LOOP AT SOURCE_PACKAGE INTO SOURCE_WA.
MY_INDEX = SY-TABIX.
READ TABLE I_MAT INTO I_MAT_WA WITH KEY CUSTOMER = SOURCE_WA-DEBITOR.
IF SY-SUBRC = 0.
SOURCE_WA-ACCNT_GRP = I_MAT_WA-ACCNT_GRP.
ENDIF.
MODIFY SOURCE_PACKAGE FROM SOURCE_WA index my_index.
ENDLOOP.

Answer 1

Hi Soniya,
Have you tried debugging the report.
After the ENDLOOP of  (LOOP AT SOURCE_PACKAGE ... ), is the internal table SOURCE_PACKAGE updated properly with required data.
Now you have to update the database table using this internal table. So you have to use MODIFY statement. Also try calling the COMMIT WORK statement after the statement for Modifying the DATABASE TABLE using the INTERNAL TABLE SOURCE_PACKAGE.
Regards
Abhishek