用CSAI_BOM_READ读取WBS元素BOM

REPORT  ZTES3.

data wa_csin type CSIN.

data tab_stpob type table of STPOB.
data tab_STKOB type table of STKOB.
data tab_DEP_DATA type table of CSDEP_DAT.
  data tab_DEP_DESCR type table of CSDEP_DESC.
data tab_DEP_ORDER type table of CSDEP_ORD.
data tab_DEP_SOURCE type table of CSDEP_SORC.
data tab_DEP_DOC type table of CSDEP_DOC.

data g_warn_stlnr type STZUB-STLNR.

data g_flwarning type CAPIFLAG-FLWARNING.
cLEAR wa_csin.

* wa_csin-aennr = '009900159470'.
 wa_csin-MATNR = '00000000000001040'.
 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'.


data: l_text type string.


CALL FUNCTION 'CSAI_BOM_READ'
   EXPORTING
     ECSIN              = wa_csin
   IMPORTING
     fl_warning = g_flwarning
   TABLES
     t_stpob = tab_stpob
    T_STKOB            = tab_stkob
    T_DEP_DATA         = tab_dep_data
    T_DEP_DESCR        = tab_dep_descr
    T_DEP_ORDER        = tab_dep_order
    T_DEP_SOURCE       = tab_dep_source
    T_DEP_DOC          = tab_dep_doc
  EXCEPTIONS
    ERROR              = 1
    OTHERS             = 2
           .
IF SY-SUBRC <> 0.
  MESSAGE ID SY-MSGID TYPE 'I' NUMBER SY-MSGNO into l_text
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  write l_text.
ENDIF.