Hello Pha London,
PFB the CMOD Code.
case i_datasource.
when '0FI_AR_4'.
Types : Begin of TY_BKPF,
BUKRS type BUKRS,
BELNR type BELNR_D,
GJAHR type GJAHR,
BSTAT type BSTAT_D,
End of TY_BKPF.
Field-Symbols : <ST_DTFIAR_3> type DTFIAR_3.
Data : IT_BKPF type table of TY_BKPF.
Data : ST_BKPF type TY_BKPF.
If c_t_data is not initial.
SELECT BUKRS BELNR GJAHR BSTAT
FROM BKPF
INTO TABLE IT_BKPF
FOR ALL ENTRIES IN c_t_data
WHERE BUKRS = c_t_data-BUKRS
AND BELNR = c_t_data-BELNR
AND GJAHR = c_t_data-GJAHR.
IF Sy-subrc EQ 0.
loop at c_t_data assigning <ST_DTFIAR_3>.
READ Table IT_BKPF into ST_BKPF
with key BUKRS = <ST_DTFIAR_3>-BUKRS BELNR = <ST_DTFIAR_3>-BELNR
GJAHR = <ST_DTFIAR_3>-GJAHR.
IF sy-subrc eq 0.
<ST_DTFIAR_3>-BSTAT = ST_BKPF-BSTAT.
endif.
endloop.
ENDIF.
Endif.
Endcase.