Sample code to create Purchase Order using BAPI in R/3

[Former Member]

The sample code has four parts:

1. selection screen
2. Data Population
3. BAPI call
4. output from BAPI call

The (*) indicates that those are comments and are not executed in the program.
This Program creates the Purchase Order only for one item.
User should change the default values while executing the program. Current default values are valid for the custom settings made at our R/3 system.
This code is useful before creating a WebDynpro application to test the functionality of BAPI.It has all mandatory fields populated to create the purchase order document with standard type ‘NB’. User can directly upload this code in R/3 system using tcode SE38.

Code Sample:
*&---------------------------------------------------------------------**& Report  ZBAPI_CREATE_PO                                             **&                                                                     **&---------------------------------------------------------------------**& Program demonstrates the BAPI call to create Purchase Order         **& Minimum required parameters are used are as per the current         **& system configuration                                                **&---------------------------------------------------------------------*REPORT  ZBAPI_CREATE_PO                         .*&---------------------------------------------------------------------**DATA DECLARATIONCONSTANTS : C_X VALUE 'X'.*Structures to hold PO header dataDATA : HEADER LIKE  BAPIMEPOHEADER   ,       HEADERX LIKE  BAPIMEPOHEADERX .*Internal Tables to hold PO ITEM DATADATA : ITEM   LIKE BAPIMEPOITEM  OCCURS 0 WITH HEADER LINE,       ITEMX  LIKE BAPIMEPOITEMX OCCURS 0 WITH HEADER LINE,*Internal table to hold messages from BAPI call       RETURN LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE.data : w_header(40) value 'PO Header'.data : ws_langu like sy-langu.*text-001 = 'PO Header' - define as text elementselection-screen begin of block b1 with frame title text-001.parameters : company like header-comp_code  default '2700'      ,             doctyp  like HEADER-DOC_TYPE   default 'NB'        ,             cdate   like HEADER-CREAT_DATE default sy-datum    ,             vendor  like HEADER-VENDOR     default '0010000023',             pur_org like HEADER-PURCH_ORG  default '2700'      ,             pur_grp like HEADER-PUR_GROUP  default '001'       .selection-screen end of block b1.selection-screen begin of block b2 with frame title text-002.parameters : item_num like ITEM-PO_ITEM  default '00001',             material like ITEM-MATERIAL default 'CRANE'   ,             plant    like ITEM-PLANT    default '2700' ,             quantity like ITEM-QUANTITY default 100.selection-screen end of block b2.*&---------------------------------------------------------------------*START-OF-SELECTION.*&---------------------------------------------------------------------**DATA POPULATION*&---------------------------------------------------------------------*ws_langu = sy-langu.   "Language variable*POPULATE HEADER DATA FOR POHEADER-COMP_CODE  = company    .HEADER-DOC_TYPE   = doctyp     .HEADER-CREAT_DATE = cdate      .HEADER-VENDOR     = vendor     .HEADER-LANGU      = ws_langu   .HEADER-PURCH_ORG  = pur_org    .HEADER-PUR_GROUP  = pur_grp    .*&---------------------------------------------------------------------**POPULATE HEADER FLAG.*&---------------------------------------------------------------------*HEADERX-comp_code  = c_x.HEADERX-doc_type   = c_x.HEADERX-creat_date = c_x.HEADERX-vendor     = c_x.HEADERX-langu      = c_x.HEADERX-purch_org  = c_x.HEADERX-pur_group  = c_x.HEADERX-doc_date   = c_x.*&---------------------------------------------------------------------**POPULATE ITEM DATA.*&---------------------------------------------------------------------*ITEM-PO_ITEM  = item_num.ITEM-MATERIAL = material.ITEM-PLANT    = plant.ITEM-QUANTITY = quantity.APPEND ITEM.*&---------------------------------------------------------------------**POPULATE ITEM FLAG TABLE*&---------------------------------------------------------------------*ITEMX-PO_ITEM    = item_num.ITEMX-MATERIAL   = C_X.ITEMX-PLANT      = C_X .ITEMX-STGE_LOC   = C_X .ITEMX-QUANTITY   = C_X .ITEMX-TAX_CODE   = C_X .ITEMX-ITEM_CAT   = C_X .ITEMX-ACCTASSCAT = C_X .APPEND ITEMX.*&---------------------------------------------------------------------**BAPI CALL*&---------------------------------------------------------------------*CALL FUNCTION 'BAPI_PO_CREATE1'  EXPORTING    POHEADER                     = HEADER    POHEADERX                    = HEADERX*   POADDRVENDOR                 =*   TESTRUN                      =* IMPORTING*   EXPPURCHASEORDER             =*   EXPHEADER                    =*   EXPPOEXPIMPHEADER            = TABLES   RETURN                       = RETURN   POITEM                       = ITEM   POITEMX                      = ITEMX.*&---------------------------------------------------------------------**Confirm the document creation by calling database COMMIT*&---------------------------------------------------------------------*CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING   WAIT          = 'X'* IMPORTING*   RETURN        =          .end-of-selection.*&---------------------------------------------------------------------**Output the messages returned from BAPI call*&---------------------------------------------------------------------*LOOP AT RETURN. WRITE / RETURN-MESSAGE.ENDLOOP.