method IF_EX_ME_PROCESS_PO_CUST~OPEN .
DATA: ls_mepoheader TYPE mepoheader.
*---------------------------------------------------------------------*
* read customer data
*---------------------------------------------------------------------*
 
* this has to be done when we open a persistent object
CHECK im_trtyp EQ 'V' OR im_trtyp EQ 'A'.
 
ls_mepoheader = im_header->get_data( ).
 
* read customer data from database
*  CALL FUNCTION 'MEPOBADIEX_OPEN'
*    EXPORTING
*      im_ebeln = ls_mepoheader-ebeln.
endmethod.