REPORT ztestusebapi.
*&---------------------------------------------------------------------*
*DATA DECLARATION.
*&---------------------------------------------------------------------*
TABLES bapimepoheader.
CONSTANTS : c_x VALUE 'X'.
DATA wa_poheader TYPE bapimepoheader.
DATA wa_poheaderx TYPE bapimepoheaderx.
DATA wa_poitem TYPE bapimepoitem.
DATA itab_poitem LIKE TABLE OF wa_poitem.
DATA wa_poitemx TYPE bapimepoitemx.
DATA itab_poitemx LIKE TABLE OF wa_poitemx.
DATA wa_return TYPE bapiret2.
DATA itab_return LIKE TABLE OF wa_return.
*&---------------------------------------------------------------------*
*parameters
*&---------------------------------------------------------------------*.
*head
PARAMETERS :p_poty LIKE bapimepoheader-doc_type DEFAULT 'ZPO1',
p_ponm LIKE bapimepoheader-po_number,
p_vendor LIKE bapimepoheader-vendor DEFAULT 'Y200707',
p_poorg LIKE bapimepoheader-purch_org DEFAULT 'CN01',
p_pogrp LIKE bapimepoheader-pur_group DEFAULT 'KXX',
p_comcd LIKE bapimepoheader-comp_code DEFAULT 'CN01'.
*Item
PARAMETERS :p_poitem LIKE bapimepoitem-po_item DEFAULT 1,
p_matnr LIKE bapimepoitem-material DEFAULT 'FWA-3600',
p_plant LIKE bapimepo
*&---------------------------------------------------------------------*
*DATA DECLARATION.
*&---------------------------------------------------------------------*
TABLES bapimepoheader.
CONSTANTS : c_x VALUE 'X'.
DATA wa_poheader TYPE bapimepoheader.
DATA wa_poheaderx TYPE bapimepoheaderx.
DATA wa_poitem TYPE bapimepoitem.
DATA itab_poitem LIKE TABLE OF wa_poitem.
DATA wa_poitemx TYPE bapimepoitemx.
DATA itab_poitemx LIKE TABLE OF wa_poitemx.
DATA wa_return TYPE bapiret2.
DATA itab_return LIKE TABLE OF wa_return.
*&---------------------------------------------------------------------*
*parameters
*&---------------------------------------------------------------------*.
*head
PARAMETERS :p_poty LIKE bapimepoheader-doc_type DEFAULT 'ZPO1',
p_ponm LIKE bapimepoheader-po_number,
p_vendor LIKE bapimepoheader-vendor DEFAULT 'Y200707',
p_poorg LIKE bapimepoheader-purch_org DEFAULT 'CN01',
p_pogrp LIKE bapimepoheader-pur_group DEFAULT 'KXX',
p_comcd LIKE bapimepoheader-comp_code DEFAULT 'CN01'.
*Item
PARAMETERS :p_poitem LIKE bapimepoitem-po_item DEFAULT 1,
p_matnr LIKE bapimepoitem-material DEFAULT 'FWA-3600',
p_plant LIKE bapimepo