DATA: BEGIN OF TSTK2.
    INCLUDE STRUCTURE STKO_API02.
  DATA: END OF TSTK2.
*---- TABELLE STÜCKLISTENPOSITIONEN
  DATA: BEGIN OF TSTP2 OCCURS 0.
    INCLUDE STRUCTURE STPO_API02.
  DATA: END OF TSTP2.
*---- TABELLEN FÜR BEZIEHUNGSWISSEN:
*     BASISDATEN
  DATA: BEGIN OF TDEP2_DATA OCCURS 0.
    INCLUDE STRUCTURE DEP_DATA.
  DATA: END OF TDEP2_DATA.
*     BESCHREIBUNG
  DATA: BEGIN OF TDEP2_DESCR OCCURS 0.
    INCLUDE STRUCTURE DEP_DESCR.
  DATA: END OF TDEP2_DESCR.
*     SOURCE
  DATA: BEGIN OF TDEP2_SOURCE OCCURS 0.
    INCLUDE STRUCTURE DEP_SOURCE.
  DATA: END OF TDEP2_SOURCE.
*     REIHENFOLGE
  DATA: BEGIN OF TDEP2_ORDER OCCURS 0.
    INCLUDE STRUCTURE DEP_ORDER.
  DATA: END OF TDEP2_ORDER.
*     DOKUMENTATION
  DATA: BEGIN OF TDEP2_DOC OCCURS 0.
    INCLUDE STRUCTURE DEP_DOC.
  DATA: END OF TDEP2_DOC.
  DATA: FLG_WARNING LIKE CAPIFLAG-FLWARNING.
*- DATENBANKPROTOKOLL ERÖFFNEN
  CALL FUNCTION 'CALO_INIT_API'
  EXCEPTIONS
    LOG_OBJECT_NOT_FOUND     = 1
    LOG_SUB_OBJECT_NOT_FOUND = 2
    OTHER_ERROR              = 3
    OTHERS                   = 4.
*- ERÖFFNEN DER STÜCKLISTE FÜR ÄNDERUNGEN
  CALL FUNCTION 'CSAP_MAT_BOM_OPEN'
  EXPORTING
    MATERIAL               = 'PAVT_001'
    PLANT                  = '1100'
    BOM_USAGE              = '6'
    ALTERNATIVE            = '1'
    VALID_FROM             = '01.08.2010' "PDATUV
*             CHANGE_NO  = 'AE001'
  IMPORTING
    O_STKO     = TSTK2
    FL_WARNING = FLG_WARNING
  TABLES
    T_STPO     = TSTP2
  EXCEPTIONS
    ERROR      = 1.
*- NEUE POSITION ITEM_NODE UND ITEM_COUNT MÜSSEN INITIAL SEIN
  CLEAR: TDEP2_DATA,
  TDEP2_SOURCE,
  TDEP2_DESCR,
  TDEP2_ORDER,
  TDEP2_DOC.
  REFRESH: TDEP2_DATA,
  TDEP2_SOURCE,
  TDEP2_DESCR,
  TDEP2_ORDER,
  TDEP2_DOC.

  TSTP2-COMPONENT  = 'PELOU_001'. " Номер материала компонетна
  TSTP2-ITEM_NO = '0020'. " Номер строки
  TSTP2-ITEM_CATEG = 'L'. "
  TSTP2-COMP_QTY   = '20'. " Кол-во
  CALL FUNCTION 'CSAP_BOM_ITEM_MAINTAIN'
    EXPORTING
      I_STPO       = TSTP2
    IMPORTING
      FL_WARNING   = FLG_WARNING
    TABLES
*                T_DEP_DATA   =
*                T_DEP_DESCR  =
*                T_DEP_ORDER  =
      T_DEP_SOURCE = TDEP2_SOURCE
*                T_DEP_DOC    =
    EXCEPTIONS
      ERROR        = 1
      OTHERS       = 2.
  CALL FUNCTION 'CSAP_MAT_BOM_CLOSE'
  IMPORTING
    FL_WARNING = FLG_WARNING
  EXCEPTIONS
    ERROR   = 1.