BAPI_MATERIAL_MAINTAINDATA_RT for MARA 'Z' fields

Question

Hi ,
I need to populate 'ZZ' fields which are appended to 'MARA' table using the BAPI function 'BAPI_MATERIAL_MAINTAINDATA_RT'. I see there are two parameters for custom fields. They are 'clientext' and 'clientextx'. I need to populate 40 custom fields which are appended to the MARA table. Say for example if I want to populate two custom fields. One is 'ZCOLOR' the value of which is black , the second one is 'ZFABRIC' , the value of which is 'COTTON'. If I want to populate this info using  'clientext' and 'clientextx' , how to do it. Please let me know if you guys have sample code.
Thanks
JC

Answer 1

Hello Gurus,
I recently used the Function Module EXIT_SAPL1001_003 mentioned above. And I found that in Unicode system there might be offset issues when assigning the value of a structure directly to another one if either of them had non-character like components (refer to this ABAP Keyword Documentation).
So I changed the SAP sample code for this function module a little.
* Sample code
*   INCLUDE LXMGVF07                                                   *
* Example2: Customer-specific data contains also numerical data types  *
* Customer structure ZMARC has the following definition:               *
*   Field name  Data type  Length                                      *
*   ZZCUS1      CHAR       10                                          *
*  ZZCUS2      DEC        3     -> numerical!!!!                      *
*   ZZCUS3      CHAR       5                                           *
DATA: error_occured LIKE sy-datar.
DATA: BEGIN OF h_clientext_c,      "Customer data in CHAR format
         function  LIKE bapie1marcextrt-function,  "Key field
         material  LIKE bapie1marcextrt-material,  "Key field
         zzsccj1        LIKE zsmm_bcxx-zzsccj1,
         zzpzwh         LIKE zsmm_bcxx-zzpzwh,
         zzjx           LIKE zsmm_bcxx-zzjx,
         zztssp         LIKE zsmm_bcxx-zztssp,
         zzybsp         LIKE zsmm_bcxx-zzybsp,
         zzpp           LIKE zsmm_bcxx-zzpp,
         zzsccj2         LIKE zsmm_bcxx-zzsccj2,
         zzzgxj(14)     TYPE c, "CURR 11, DEC 2
         zzzgxj_waers   LIKE zsmm_bcxx-zzzgxj_waers,
         zzzgxj_peinh   LIKE zsmm_bcxx-zzzgxj_peinh,
         zzzgxj_bprme   LIKE zsmm_bcxx-zzzgxj_bprme,
         zzzdxj(14)     TYPE c, "CURR 11, DEC 2
         zzzdxj_waers   LIKE zsmm_bcxx-zzzdxj_waers,
         zzzdxj_peinh   LIKE zsmm_bcxx-zzzdxj_peinh,
         zzzdxj_bprme   LIKE zsmm_bcxx-zzzdxj_bprme,
         zzjmdsj(14)    TYPE c, "CURR 11, DEC 2
         zzjmdsj_waers  LIKE zsmm_bcxx-zzjmdsj_waers,
         zzjmdsj_peinh  LIKE zsmm_bcxx-zzjmdsj_peinh,
         zzjmdsj_bprme  LIKE zsmm_bcxx-zzjmdsj_bprme,
         zzypbx         LIKE zsmm_bcxx-zzypbx,
         zzgg           LIKE zsmm_bcxx-zzgg,
         zzbqdw         LIKE zsmm_bcxx-zzbqdw,
         zztym           LIKE zsmm_bcxx-zztym,
       END   OF h_clientext_c.
DATA: BEGIN OF h_clientext,      "Customer data in actual format
         function  LIKE bapie1marcextrt-function,  "Key field
         material  LIKE bapie1marcextrt-material.  "Key field
         INCLUDE STRUCTURE zsmm_bcxx.
DATA: END   OF h_clientext.
DATA: BEGIN OF h_clientextx,     "Customer update information
         function  LIKE bapie1marcextrtx-function,  "Key field
         material  LIKE bapie1marcextrtx-material,  "Key field
         zzsccj1        TYPE c,
         zzpzwh         TYPE c,
         zzjx           TYPE c,
         zztssp         TYPE c,
         zzybsp         TYPE c,
         zzpp           TYPE c,
         zzsccj2         TYPE c,
         zzzgxj         TYPE c,
         zzzgxj_waers   TYPE c,
         zzzgxj_peinh   TYPE c,
         zzzgxj_bprme   TYPE c,
         zzzdxj         TYPE c,
         zzzdxj_waers   TYPE c,
         zzzdxj_peinh   TYPE c,
         zzzdxj_bprme   TYPE c,
         zzjmdsj        TYPE c,
         zzjmdsj_waers  TYPE c,
         zzjmdsj_peinh  TYPE c,
         zzjmdsj_bprme  TYPE c,
         zzypbx         TYPE c,
         zzgg           TYPE c,
         zzbqdw         TYPE c,
         zztym           TYPE c,
       END   OF h_clientextx.
CASE parameter_name.
   WHEN c_parnam_clientext.
* Copy from unstructured BAPI format to structured CHAR format
     h_clientext_c-zzsccj1 = f_clientext-field1+0(40).
     h_clientext_c-zzpzwh = f_clientext-field1+40(25).
     h_clientext_c-zzjx = f_clientext-field1+65(10).
     h_clientext_c-zztssp = f_clientext-field1+75(10).
     h_clientext_c-zzybsp = f_clientext-field1+85(2).
     h_clientext_c-zzpp = f_clientext-field1+87(10).
     h_clientext_c-zzsccj2 = f_clientext-field1+97(10).
     h_clientext_c-zzzgxj = f_clientext-field1+107(14).
     h_clientext_c-zzzgxj_waers = f_clientext-field1+121(5).
     h_clientext_c-zzzgxj_peinh = f_clientext-field1+126(5).
     h_clientext_c-zzzgxj_bprme = f_clientext-field1+131(3).
     h_clientext_c-zzzdxj = f_clientext-field1+134(14).
     h_clientext_c-zzzdxj_waers = f_clientext-field1+148(5).
     h_clientext_c-zzzdxj_peinh = f_clientext-field1+153(5).
     h_clientext_c-zzzdxj_bprme = f_clientext-field1+158(3).
     h_clientext_c-zzjmdsj = f_clientext-field1+161(14).
     h_clientext_c-zzjmdsj_waers = f_clientext-field1+175(5).
     h_clientext_c-zzjmdsj_peinh = f_clientext-field1+180(5).
     h_clientext_c-zzjmdsj_bprme = f_clientext-field1+188(3).
     h_clientext_c-zzypbx = f_clientext-field1+191(1).
     h_clientext_c-zzgg = f_clientext-field1+192(12).
     h_clientext_c-zzbqdw = f_clientext-field1+204(3).
     CONCATENATE f_clientext-field1+207(22)
                 f_clientext-field2+0(18)
                 INTO h_clientext_c-zztym.
* Copy from structured CHAR format to actual format
     MOVE-CORRESPONDING h_clientext_c TO h_clientext.
     h_clientextx  = f_clientextx.
     IF NOT h_clientextx-zzsccj1 IS INITIAL
     OR NOT f_headdata-all_fields IS INITIAL.
* Corresponding data field is relevant for update
       IF h_clientext-zzsccj1 IS INITIAL.
         t_res_fields-feldname = 'MARA-ZZSCCJ1'.
         APPEND t_res_fields.
       ENDIF.
     ELSE.
       CLEAR h_clientext-zzsccj1.
     ENDIF.
     f_mara_ueb-zzsccj1 = h_clientext-zzsccj1.
     IF NOT h_clientextx-zzpzwh IS INITIAL
     OR NOT f_headdata-all_fields IS INITIAL.
* Corresponding data field is relevant for update
       IF h_clientext-zzpzwh IS INITIAL.
         t_res_fields-feldname = 'MARA-ZZPZWH'.
         APPEND t_res_fields.
       ENDIF.
     ELSE.
       CLEAR h_clientext-zzpzwh.
     ENDIF.
     f_mara_ueb-zzpzwh = h_clientext-zzpzwh.
ENDCASE.
* Example for raising an exception if an application error occurred
     IF NOT error_occured IS INITIAL.
       MESSAGE e544(mg) WITH parameter_name RAISING application_error.
     ENDIF.
消息编辑者为：Arwen Liu