Demo program for creating a material using the BAPI BAPI_MATERIAL_SAVEDATA

By Venkateswara Rao Appikonda, Intelligroup

REPORT  Ztests. 

* Published at SAPTechnical.COM

*---tables used
tables:bapimathead,
       bapi_makt,
       bapi_mara,
       bapi_marax. 

*--declaration for internal table 

data:begin of itab occurs 0,
      MATERIAL type BAPIMATHEAD-MATERIAL,
      IND_SECTOR(20),
      MATL_TYPE type bapimathead-MATL_TYPE,
      MATL_GROUP type bapi_mara-MATL_GROUP,
      LANGU TYPE BAPI_MAKT-LANGU,
      MATL_DESC TYPE BAPI_MAKT-MATL_DESC,
     end of itab, 

    it_return like BAPIRET2, 

    IT_BAPI LIKE BAPI_MAKT OCCURS 0 WITH HEADER LINE. 

*---selection screen
parameters:p_file TYPE IBIPPARMS-PATH obligatory. 

*---f4 help for the file from PC
at selection-screen on value-request for p_file. 

perform get_f4help. 

*--start-of-selection .
start-of-selection. 

perform upload_file_itab. 

perform call_bapi. 

*&---------------------------------------------------------------------*
*&      Form  get_f4help
*&---------------------------------------------------------------------*
form get_f4help . 

CALL FUNCTION 'F4_FILENAME'
 EXPORTING
   PROGRAM_NAME        = SYST-CPROG
   DYNPRO_NUMBER       = SYST-DYNNR
 IMPORTING
   FILE_NAME           = P_FILE  . 

endform.                    " get_f4help
*&---------------------------------------------------------------------*
*&      Form  upload_file_itab
*&---------------------------------------------------------------------* 

form upload_file_itab . 

DATA:V_FILE TYPE STRING.
MOVE P_FILE TO V_FILE. 

CALL FUNCTION 'GUI_UPLOAD'
  EXPORTING
   filename                      = V_FILE
   FILETYPE                      = 'ASC'
   HAS_FIELD_SEPARATOR           = 'X'
  TABLES
    data_tab                      = ITAB . 

endform.                    " upload_file_itab
*&---------------------------------------------------------------------*
*&      Form  call_bapi
*&---------------------------------------------------------------------* 

form call_bapi . 

loop at itab. 

BAPIMATHEAD-material = itab-MATERIAL.
bapimathead-IND_SECTOR = itab-IND_SECTOR.
BAPIMATHEAD-MATL_TYPE = itab-MATL_TYPE.
BAPIMATHEAD-BASIC_VIEW = 'X'. 

bapi_mara-MATL_GROUP = itab-MATL_GROUP.
bapi_mara-base_uom = 'KGS'.
bapi_marax-MATL_GROUP = 'X'.
bapi_marax-BASE_UOM = 'X'. 

IT_BAPI-LANGU = ITAB-LANGU.
IT_BAPI-LANGU_ISO = 'EN'.
IT_BAPI-MATL_DESC = ITAB-MATL_DESC.
APPEND IT_BAPI.
clear it_bapi. 

CALL FUNCTION 'BAPI_MATERIAL_SAVEDATA'
  EXPORTING
    headdata                  = BAPIMATHEAD
   CLIENTDATA                 = bapi_mara
   CLIENTDATAX                = bapi_marax
   IMPORTING
   RETURN                     = it_RETURN
 TABLES
   MATERIALDESCRIPTION        = IT_BAPI . 

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'  . 

*---this is the message type which indicates whether it is failed or succeded
write:/ it_return-TYPE. 

endloop. 

endform.                    " call_bapi

Here is the test file used for creating the materials in the above program: 

000000000011111111     T          RFRM   001       EN        this is test material

000000000011111112     T          RFRM   001       EN        this is test material

000000000011111113     T          RFRM   001       EN        this is test material

000000000011111114     T          RFRM   001       EN        this is test material

000000000011111115     T          RFRM   001       EN        this is test material

000000000011111116     T          RFRM   001       EN        this is test material

000000000011111117     T          RFRM   001       EN        this is test material