ME_CREATE_PO SAP Function module - Create Purchase Order

DATA:
ld_e_ebeln  
 
 TYPE EKKO-EBELN
,
ld_e_ebelp  
 
 TYPE EKPO-EBELP
,
it_xeket  
 
 TYPE STANDARD TABLE OF EKET,"TABLES PARAM
wa_xeket
 
 LIKE LINE OF it_xeket
,
it_xekkn  
 
 TYPE STANDARD TABLE OF EKKN,"TABLES PARAM
wa_xekkn
 
 LIKE LINE OF it_xekkn
,
it_xekpo  
 
 TYPE STANDARD TABLE OF IEKPO,"TABLES PARAM
wa_xekpo
 
 LIKE LINE OF it_xekpo
,
it_xemsg  
 
 TYPE STANDARD TABLE OF EMSG,"TABLES PARAM
wa_xemsg
 
 LIKE LINE OF it_xemsg
.

 

SELECT single BEDAT 
  FROM EKKO 
  INTO @DATA(ld_i_bedat).

 

SELECT single BSART 
  FROM EKKO 
  INTO @DATA(ld_i_bsart).

 

SELECT single BUKRS 
  FROM EKKO 
  INTO @DATA(ld_i_bukrs).

 

SELECT single EKGRP 
  FROM EKKO 
  INTO @DATA(ld_i_ekgrp).

 

SELECT single EKORG 
  FROM EKKO 
  INTO @DATA(ld_i_ekorg).

 

SELECT single KONNR 
  FROM EKKO 
  INTO @DATA(ld_i_konnr).

 

SELECT single LIFNR 
  FROM EKKO 
  INTO @DATA(ld_i_lifnr).

 

SELECT single RESWK 
  FROM EKKO 
  INTO @DATA(ld_i_reswk).


DATA(ld_i_new_item_number) = 'some text here'.
 

SELECT single STATU 
  FROM EKPO 
  INTO @DATA(ld_i_no_commit).


DATA(ld_i_ticket_header) = 'Check type of data required'.

DATA(ld_i_ticket_item) = 'Check type of data required'.

DATA(ld_i_oijnomh) = 'Check type of data required'.

DATA(ld_i_oijnomi) = 'Check type of data required'.

DATA(ld_i_oijimport) = 'Check type of data required'.
 

"populate fields of struture and append to itab
append wa_xeket to it_xeket.
 

"populate fields of struture and append to itab
append wa_xekkn to it_xekkn.
 

"populate fields of struture and append to itab
append wa_xekpo to it_xekpo.
 

"populate fields of struture and append to itab
append wa_xemsg to it_xemsg.
.

CALL FUNCTION 'ME_CREATE_PO'
  EXPORTING
*   i_bedat =                    ld_i_bedat
    i_bsart =                    ld_i_bsart
*   i_bukrs =                    ld_i_bukrs
*   i_ekgrp =                    ld_i_ekgrp
    i_ekorg =                    ld_i_ekorg
*   i_konnr =                    ld_i_konnr
*   i_lifnr =                    ld_i_lifnr
*   i_reswk =                    ld_i_reswk
*   i_new_item_number =          ld_i_new_item_number
*   i_no_commit =                ld_i_no_commit
*   i_ticket_header =            ld_i_ticket_header
*   i_ticket_item =              ld_i_ticket_item
*   i_oijnomh =                  ld_i_oijnomh
*   i_oijnomi =                  ld_i_oijnomi
*   i_oijimport =                ld_i_oijimport
  IMPORTING
    e_ebeln =                    ld_e_ebeln
    e_ebelp =                    ld_e_ebelp
  TABLES
    xeket =                      it_xeket
    xekkn =                      it_xekkn
    xekpo =                      it_xekpo
    xemsg =                      it_xemsg
  EXCEPTIONS
    ERROR_HEADER =               1
    NO_ITEMS =                   2
    .  "  ME_CREATE_PO

IF SY-SUBRC EQ 0.
  "All OK
ELSEIF SY-SUBRC EQ 1. "Exception
  "Add code for exception here
ELSEIF SY-SUBRC EQ 2. "Exception
  "Add code for exception here
ENDIF.