Bapi program

Question

hi,
i am sending a bapi program .
this bapi program is not executed only selection screen appears. but when i click on execute button then no data
shows what id plz suggest.
*& Report  ZBAPI_1                                                     *
REPORT  ZBAPI_1  .
*tables: ekko.
DATA: BEGIN OF I_POITEM OCCURS 0.
      INCLUDE STRUCTURE BAPIEKPO.
DATA: END OF I_POITEM.
*data: begin of it_ekko occurs 0,
     ebeln like ekko-ebeln,
     end of it_ekko.
PARAMETERS P_EBELN LIKE EKKO-EBELN default '4500012164'  ..
CALL FUNCTION 'BAPI_PO_GETDETAIL'
  EXPORTING
    PURCHASEORDER                    = P_EBELN
  ITEMS                            = 'X'
  ACCOUNT_ASSIGNMENT               = ' '
  SCHEDULES                        = ' '
  HISTORY                          = ' '
  ITEM_TEXTS                       = ' '
  HEADER_TEXTS                     = ' '
  SERVICES                         = ' '
  CONFIRMATIONS                    = ' '
  SERVICE_TEXTS                    = ' '
  EXTENSIONS                       = ' '
*IMPORTING
  PO_HEADER                        =
  PO_ADDRESS                       =
TABLES
  PO_HEADER_TEXTS                  =
  PO_ITEMS                         = I_POITEM.
  PO_ITEM_ACCOUNT_ASSIGNMENT       =
  PO_ITEM_SCHEDULES                =
  PO_ITEM_CONFIRMATIONS            =
  PO_ITEM_TEXTS                    =
  PO_ITEM_HISTORY                  =
  PO_ITEM_HISTORY_TOTALS           =
  PO_ITEM_LIMITS                   =
  PO_ITEM_CONTRACT_LIMITS          =
  PO_ITEM_SERVICES                 =
  PO_ITEM_SRV_ACCASS_VALUES        =
  RETURN                           =
  PO_SERVICES_TEXTS                =
  EXTENSIONOUT                     =
*select po_number po_item pur_mat changed_on
       short_text co_code
       plant mat_grp ner_price from bapiekpo
       into table i_poitem
       where ebeln in p_ebeln.
*select ebeln from ekko
into table it_ekko
  where ebeln = p_ebeln.
LOOP AT I_POITEM.
write: / 'ebeln    = ' , it_ekko-ebeln.
WRITE: / 'PO NUMBER  = ' , I_POITEM-PO_NUMBER COLOR COL_HEADING,
        / 'ITEM        =' , I_POITEM-PO_ITEM,
        / 'MATERIAL = ' , I_POITEM-PUR_MAT,
        / 'CHANGED ON = ', I_POITEM-CHANGED_ON,
        / 'SHORT TEXT = ' , I_POITEM-SHORT_TEXT,
       / 'COMPANY CODE = ' , I_POITEM-CO_CODE,
       / 'PLANT = ' , I_POITEM-PLANT,
       / 'MATERIAL GROUP = ' , I_POITEM-MAT_GRP,
       / 'QUANTITY = ' , I_POITEM-QUANTITY LEFT-JUSTIFIED,
        / 'UNIT = ' , I_POITEM-UNIT,
       / 'NET PRICE = ' , I_POITEM-NET_PRICE LEFT-JUSTIFIED.
  ULINE.
  ENDLOOP.

Answer 1

Hello.
Try is like this:
*& Report ZBAPI_1 *
REPORT ZBAPI_1 .
*tables: ekko.
DATA: BEGIN OF I_POITEM OCCURS 0.
INCLUDE STRUCTURE BAPIEKPO.
DATA: END OF I_POITEM.
*data: begin of it_ekko occurs 0,
ebeln like ekko-ebeln,
end of it_ekko.
PARAMETERS P_EBELN LIKE EKKO-EBELN default '4500012164' ..
start-of-selection.
CALL FUNCTION 'BAPI_PO_GETDETAIL'
EXPORTING
PURCHASEORDER = P_EBELN
ITEMS = 'X'
ACCOUNT_ASSIGNMENT = ' '
SCHEDULES = ' '
HISTORY = ' '
ITEM_TEXTS = ' '
HEADER_TEXTS = ' '
SERVICES = ' '
CONFIRMATIONS = ' '
SERVICE_TEXTS = ' '
EXTENSIONS = ' '
*IMPORTING
PO_HEADER =
PO_ADDRESS =
TABLES
PO_HEADER_TEXTS =
PO_ITEMS = I_POITEM.
PO_ITEM_ACCOUNT_ASSIGNMENT =
PO_ITEM_SCHEDULES =
PO_ITEM_CONFIRMATIONS =
PO_ITEM_TEXTS =
PO_ITEM_HISTORY =
PO_ITEM_HISTORY_TOTALS =
PO_ITEM_LIMITS =
PO_ITEM_CONTRACT_LIMITS =
PO_ITEM_SERVICES =
PO_ITEM_SRV_ACCASS_VALUES =
RETURN =
PO_SERVICES_TEXTS =
EXTENSIONOUT =
*select po_number po_item pur_mat changed_on
short_text co_code
plant mat_grp ner_price from bapiekpo
into table i_poitem
where ebeln in p_ebeln.
*select ebeln from ekko
into table it_ekko
where ebeln = p_ebeln.
end-of-selection.
LOOP AT I_POITEM.
write: / 'ebeln = ' , it_ekko-ebeln.
WRITE: / 'PO NUMBER = ' , I_POITEM-PO_NUMBER COLOR COL_HEADING,
/ 'ITEM =' , I_POITEM-PO_ITEM,
/ 'MATERIAL = ' , I_POITEM-PUR_MAT,
/ 'CHANGED ON = ', I_POITEM-CHANGED_ON,
/ 'SHORT TEXT = ' , I_POITEM-SHORT_TEXT,
/ 'COMPANY CODE = ' , I_POITEM-CO_CODE,
/ 'PLANT = ' , I_POITEM-PLANT,
/ 'MATERIAL GROUP = ' , I_POITEM-MAT_GRP,
/ 'QUANTITY = ' , I_POITEM-QUANTITY LEFT-JUSTIFIED,
/ 'UNIT = ' , I_POITEM-UNIT,
/ 'NET PRICE = ' , I_POITEM-NET_PRICE LEFT-JUSTIFIED.
ULINE.
ENDLOOP.
Please reward if ot helps,
Regards
George