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

Please send us your feedback/suggestions at webmaster@SAPTechnical.COM 

HomeContribute About Us Privacy Terms Of Use • Disclaimer • SafeCompanies: Advertise on SAPTechnical.COM | Post JobContact Us  

Graphic Design by Round the Bend Wizards

footer image footer image