METHOD if_ex_me_po_pricing_cust~process_komp.

* populate foreign trade fields of KOMP structure:
* komp-coimp "Code number for import processing in foreign trade"
* komp-verld "Country of dispatch for Foreign Trade"

  DATA: lv_eikp  TYPE eikp,
        lv_eipo  TYPE eipo,
        lv_expos TYPE eipo-expos.

* Import case: EXNUM is not initial
  IF NOT ( im_ekko-exnum IS INITIAL ) .

* read the import item data
    lv_expos = im_ekpo-ebelp.
    CALL FUNCTION 'EXPIMP_ITEM_DATA_READ'
      EXPORTING
        exnum = im_ekko-exnum
        expos = lv_expos
      IMPORTING
        impk  = lv_eikp
        impp  = lv_eipo.

* populate komp fields with import data
    ch_komp-coimp = lv_eipo-coimp.
    ch_komp-verld = lv_eipo-verld.

  ENDIF.

ENDMETHOD.