*&---------------------------------------------------------------------*
*& Report  ZGET_KEEPINGSTOCK_DN
*&
*&---------------------------------------------------------------------*
*& Author              : CHUNG NAM INTERNATIONAL CO.,LTD. MICHAELCHOW
*& Creation Date       : 19.02.2009
*& Program Type        : Executable Programs
*& Logical DB          : [Nil]
*& Text Elements
*&   (Titles&Headers)  : [Nil]
*&   (Selection Texts) : [Nil]
*&   (Text symbols)    : [Nil]
*& GUI Status          : [Nil] OR [Standard]
*& Variants            : [Nil] OR Variant
*& Message Class       : [Nil]
*& Description         :
*&
*&---------------------------------------------------------------------*
*& Modifications       :
*& ID   Date        Programmer   Description
*&     2009.02.19   M.C          GET Open Qty in Stockkeeping Units for Transfer of Reqmts to MRP
*&---------------------------------------------------------------------*
REPORT  ZGET_KEEPINGSTOCK_DN.
DATA: kzwso LIKE mara-kzwsm.
RANGES: WS_WERKS FOR MARC-WERKS.
DATA: BEGIN OF xtab4 OCCURS 100,         "Tabelle der Vertriebsbedarfe
         matnr LIKE vbbe-matnr,
         werks LIKE vbbe-werks,
         lgort LIKE vbbe-lgort,
         charg LIKE vbbe-charg,
         vbmna LIKE vbbe-omeng,       "offene Anfragemenge
         vbmnb LIKE vbbe-omeng,       "offene Angebotsmenge
         vbmnc LIKE vbbe-omeng,       "offene Auftragsmenge
         vbmne LIKE vbbe-omeng,       "offene Lieferplanmenge
         vbmng LIKE vbbe-omeng,       "offene Kontraktmenge
         vbmni LIKE vbbe-omeng,       "offene Menge kostenloser Liefer.
         omeng LIKE vbbe-omeng,       "offene Liefermegne
         vrkme LIKE vbep-vrkme,       "Verkaufsmengeneinheit "ALR14884SW
         wmeng LIKE vbep-wmeng,       "Erfmng im Beleg       "ALR14884SW
END OF xtab4.
selection-screen begin of block b1 with frame TITLE TEXT-001.
PARAMETERS: P_MATNR LIKE MARA-MATNR,
            P_WERKS LIKE MARC-WERKS.
selection-screen end of block b1 .
START-OF-SELECTION.
CHECK NOT p_MATNR IS INITIAL.
CLEAR XTAB4. REFRESH XTAB4.
CALL FUNCTION 'MB_SELECT_SD_SCHEDULED_STOCK'
EXPORTING
      X_MATNR = P_MATNR
      X_KZWSO = KZWSO       "ALK014884 SW
TABLES
      XTAB4   = XTAB4
      XWERKS  = WS_WERKS.
Loop at XTAB4.
ENDLOOP.

T685T: Conditions: Types: Texts