ABAP code needed to populate data in the fields............

Question

Hi,
I have added 3 new fields to the datasource 0PROJETC_ATTR
fields names are : ZZPROFL , ZZPLFAZ and ZZPLSEZ
Can some body tell me the ABAP code to fill data in these 3 fields.
Thanks,
Jeetu

Answer 1

hi Jeetu,
we need the logic,
but the code will something like following sample ...
Declaration for datasource 0MATERIAL_ATTR
DATA : BEGIN OF S_BIW_MARA_S.
INCLUDE STRUCTURE BIW_MARA_S.
DATA : END OF S_BIW_MARA_S.
*Here BIW_MARA_S corresponds to the structure of your datasource *0MATERIAL_ATTR
*then you have to declare a when with the datasource on which you want to *populate the appended new fields.
*for example :
WHEN '0MATERIAL_ATTR'.
*then do a loop across your strcuture
LOOP AT C_T_DATA INTO S_BIW_MARA_S.
*a select from the table
SELECT SINGLE * FROM MARA
WHERE MATNR = S_BIW_MARA_S-MATNR.
*a check to see if your select is ok
IF SY-SUBRC = 0.
*if it is ok then your field in your structure is corresponding to a field in the table
S_BIW_MARA_S-Z1 = MARA-Z1.
S_BIW_MARA_S-Z2 = MARA-Z2.
*the c_t_data will be updated from what you get in your structure.
MODIFY C_T_DATA FROM S_BIW_MARA_S.
ENDIF.
ENDLOOP.
hope this helps.