用CSAI_BOM_CREATE创建WBS元素BOM

REPORT  ZTEST2.
data wa_csin type CSIN.


data wa_stpob  like STPOB.
data wa_stzub  like STZUB.


data tab_STPOB type table of STPOB.
data wa_STKOB like STKOB.



data g_warn_stlnr type STZUB-STLNR.

data g_flwarning type CAPIFLAG-FLWARNING.
cLEAR wa_csin.

* wa_csin-aennr = '009900159470'.
 wa_csin-MATNR = '000000000000001223'.
 wa_csin-EMENG = 2.
 wa_csin-datuv = sy-datum.
wa_csin-PSPNR = '00045256'.
wa_csin-werks = '2000'  .
 wa_csin-stlan = '1'.  " 4
 wa_csin-stlty = 'P'.

  wa_stkob-stlty = 'P'.

CLEAR wa_stzub.
 wa_stzub-stlty = 'P'.



CLEAR wa_stpob.
wa_stpob-stlty = 'P'.
wa_stpob-idnrk = '000000000000001040'.
 wa_stpob-postp = 'L'.
 wa_stpob-posnr = '0012' .
 wa_stpob-menge = 3.
 wa_stpob-potx1 = 'liu'.
 wa_stpob-potx2 =  'jin'.
 wa_stpob-datuv = sy-datum.
APPEND wa_stpob TO tab_stpob.
CLEAR wa_stpob.



data: l_text type string.


CALL FUNCTION 'CSAI_BOM_CREATE'
   EXPORTING
     ecsin = wa_csin
     estkob = wa_stkob
     estzub = wa_stzub
   IMPORTING
     fl_warning = g_flwarning
     astlnr = g_warn_stlnr
   TABLES
     t_stpob = tab_stpob
   EXCEPTIONS
     error = 1
     OTHERS = 2.


IF sy-subrc NE 0.   " here Sy-subrc is 1
   MESSAGE ID SY-MSGID TYPE 'I' NUMBER SY-MSGNO into l_text
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
           write l_text.

else.
   write 'OK'.


ENDIF.