BAPI me21n vl10b vl02n

FUNCTION ZTEST01.
*"----------------------------------------------------------------------
*"*"Local interface:
*"  IMPORTING
*"     VALUE(IT_TABP01) LIKE  ZMM_NCP01 STRUCTURE  ZMM_NCP01
*"  EXPORTING
*"     VALUE(MSG) TYPE  MAKTX
*"  TABLES
*"      IT_TABP02 STRUCTURE  ZMM_NCP02
*"----------------------------------------------------------------------
  TABLES: ZMM_NCP01,
          ZMM_NCP02,
          EKPO.


  DATA:
        POHEADER         LIKE BAPIMEPOHEADER OCCURS 0 WITH HEADER LINE,
        POHEADERX        LIKE BAPIMEPOHEADERX OCCURS 0 WITH HEADER LINE,
        EXPPURCHASEORDER LIKE BAPIMEPOHEADER-PO_NUMBER OCCURS 0 WITH HEADER LINE,
        RETURN           LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE,
        POITEM           LIKE BAPIMEPOITEM OCCURS 0 WITH HEADER LINE,
        POITEMX          LIKE BAPIMEPOITEMX OCCURS 0 WITH HEADER LINE,
        POSCHEDULE       LIKE BAPIMEPOSCHEDULE OCCURS 0 WITH HEADER LINE,
        POSCHEDULEX      LIKE BAPIMEPOSCHEDULX OCCURS 0 WITH HEADER LINE,
        P_ITEMNO         LIKE EKPO-EBELP.


*            **Header Data
        POHEADER-PO_NUMBER   = ''.
        POHEADER-COMP_CODE   = IT_TABP01-BUKRS.
        POHEADER-DOC_TYPE    = IT_TABP01-BSART.
        POHEADER-CREAT_DATE  = SY-DATUM.
        POHEADER-CREATED_BY  = SY-UNAME.
        POHEADER-LANGU       = SY-LANGU.
        POHEADER-PURCH_ORG   = IT_TABP01-EKORG.
        POHEADER-PUR_GROUP   = IT_TABP01-EKGRP.
        POHEADER-DOC_DATE    = SY-DATUM.
        POHEADER-VAT_CNTRY   = 'CNY'.
        POHEADER-SUPPL_PLNT