Hi experts . how can we know the stock details for a perticular plant?

Question

hi experts . how can we know the stock details for a perticular plant

Answer 1

check this code
REPORT  YSG_MATSTK_REP    LINE-SIZE 220
                          LINE-COUNT 50(5).
*&                       DATA DECLARATION                              *
TABLES: MARA,              "GENERAL MASTER DATA
        MARC,              "PLANT DATA FOR MATERIAL
        MARD,              "STORAGE LOCATION DATA FOR MATERIAL
        MBEW,              "MATERIAL VALUATION
        MVKE,              "SALES DATA FOR MATERIAL
        MAKT.              "MATERIAL DESCRIPTION
DATA: BEGIN OF I_MARA OCCURS 0,
           MATNR LIKE MARA-MATNR,"MATERIAL NUMBER
           MBRSH LIKE MARA-MBRSH,"INDUSTRY SECTOR
           MEINS LIKE MARA-MEINS,"BASE UNIT OF MEASURE
      END OF I_MARA.
DATA: BEGIN OF I_MARC OCCURS 0,
          MATNR LIKE MARC-MATNR,"MATERIAL NUMBER
          WERKS LIKE MARC-WERKS,"PLANT
          LVORM LIKE MARC-LVORM,"FLAG MATERIAL FOR DELETION AT PLANT
                                "LEVEL
          PSTAT LIKE MARC-PSTAT,"MAINTENANCE STATUS
          DISPO LIKE MARC-DISPO,"MRP CONTROLLER
      END OF I_MARC.
DATA: BEGIN OF I_MAKT OCCURS 0,
           MATNR LIKE MAKT-MATNR,"MATERIAL NUMBER
           MAKTX LIKE MAKT-MAKTX,"MATERIAL DESCRIPTION
      END OF I_MAKT.
DATA: BEGIN OF I_MVKE OCCURS 0,
           MATNR LIKE MVKE-MATNR,"MATERIAL NUMBER
           VKORG LIKE MVKE-VKORG,"SALES ORGANIZATION
           VTWEG LIKE MVKE-VTWEG,"DISTRIBUTION CHANNEL
      END OF I_MVKE.
DATA: BEGIN OF I_MARD OCCURS 0,
           MATNR LIKE MARD-MATNR,"MATERIAL NUMBER
           LGORT LIKE MARD-LGORT,"STORAGE LOCATION
           LABST LIKE MARD-LABST,"VALUATED STOCK WITH UNRESTRICTED USE
      END OF I_MARD.
DATA: BEGIN OF I_OUT OCCURS 0,
        MATNR LIKE MARC-MATNR,
        WERKS LIKE MARC-WERKS,
        LVORM LIKE MARC-LVORM,
        PSTAT LIKE MARC-PSTAT,
        DISPO LIKE MARC-DISPO,
        MBRSH LIKE MARA-MBRSH,
        MEINS LIKE MARA-MEINS,
        MAKTX LIKE MAKT-MAKTX,
        VKORG LIKE MVKE-VKORG,
        VTWEG LIKE MVKE-VTWEG,
        LGORT LIKE MARD-LGORT,
        LABST LIKE MARD-LABST,
      END OF I_OUT.
DATA : TOT TYPE I. " TOT - TOTAL TO PRINT STOCK
*&                   S E L E C T I O N - S C R E E N                   *
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-100.
SELECT-OPTIONS: S_MATNR FOR MARA-MATNR OBLIGATORY.
PARAMETERS: P_WERKS LIKE MARC-WERKS OBLIGATORY.
SELECT-OPTIONS: S_LGORT FOR MARD-LGORT,
                S_DISPO FOR MARC-DISPO.
SELECTION-SCREEN END OF BLOCK B1.
*&                  I N I T I A L I Z A T I O N                      *
INITIALIZATION.
  S_MATNR-SIGN = 'I'.
  S_MATNR-OPTION = 'EQ'.
  S_MATNR-LOW = 'M-14'.
  S_MATNR-HIGH = 'M-18'.
  P_WERKS = '3000'.
  S_LGORT-SIGN = 'I'.
  S_LGORT-OPTION = 'EQ'.
  S_LGORT-LOW = '0001'.
  S_LGORT-HIGH = '0004'.
  S_DISPO-SIGN = 'I'.
  S_DISPO-OPTION = 'EQ'.
  S_DISPO-LOW = '001'.
  S_DISPO-HIGH = '002'.
  APPEND S_DISPO.
  APPEND S_LGORT.
  APPEND S_MATNR.
  CLEAR S_DISPO.
  CLEAR S_LGORT.
  CLEAR S_MATNR.
*&             S T A R T - O F - S E L E C T I O N                     *
START-OF-SELECTION.
  SELECT MATNR WERKS LVORM DISPO FROM MARC
  INTO CORRESPONDING FIELDS OF TABLE I_MARC
                      WHERE WERKS EQ P_WERKS
                      AND MATNR IN S_MATNR
                      AND DISPO IN S_DISPO
                      AND WERKS = P_WERKS.
  IF I_MARC[] IS INITIAL.
    WRITE:/ 'NO MATCHING DATA AVAILABLE FROM MARC'.
    EXIT.
  ENDIF.
  SELECT MATNR LGORT LABST FROM MARD INTO TABLE  I_MARD
                      FOR ALL ENTRIES IN I_MARC
                      WHERE MATNR = I_MARC-MATNR
                      AND WERKS EQ P_WERKS
                      AND LGORT IN S_LGORT.
  IF I_MARD[] IS INITIAL.
    WRITE:/ 'NO MATCHING DATA AVAILABLE FROM MARD'.
    EXIT.
  ENDIF.
  SELECT MATNR VKORG VTWEG FROM MVKE INTO TABLE I_MVKE
                      FOR ALL ENTRIES IN I_MARC
                      WHERE MATNR = I_MARC-MATNR.
IF I_MVKE[] IS INITIAL.
    WRITE:/ 'NO MATCHING DATA AVAILABLE FROM MVKE'.
    EXIT.
  ENDIF.
  LOOP AT I_MARC.
    MOVE-CORRESPONDING I_MARC TO I_OUT.
    CLEAR MARC.
    SELECT SINGLE MATNR MBRSH MEINS FROM MARA
                     INTO CORRESPONDING FIELDS OF MARA
                     WHERE MATNR = I_OUT-MATNR.
    IF SY-SUBRC = 0.
      MOVE: MARA-MBRSH TO I_OUT-MBRSH,
            MARA-MEINS TO I_OUT-MEINS.
    ELSE.
      CONTINUE.
    ENDIF.
    SELECT SINGLE MATNR MAKTX FROM MAKT
                    INTO  CORRESPONDING FIELDS OF MAKT
                    WHERE  MATNR = I_OUT-MATNR.
    IF SY-SUBRC = 0.
      MOVE: MAKT-MAKTX TO I_OUT-MAKTX.
    ELSE.
      CONTINUE.
    ENDIF.
    LOOP AT I_MARD WHERE MATNR = I_MARC-MATNR.
      MOVE: I_MARD-LABST TO I_OUT-LABST,
            I_MARD-LGORT TO I_OUT-LGORT.
      APPEND I_OUT.
    ENDLOOP.
    LOOP AT I_MVKE WHERE MATNR = I_MARC-MATNR.
      MOVE: I_MVKE-VKORG TO I_OUT-VKORG,
            I_MVKE-VTWEG TO I_OUT-VTWEG.
      APPEND I_OUT.
    ENDLOOP.
    CLEAR I_OUT.
  ENDLOOP.
CALL FUNCTION 'GUI_DOWNLOAD'
  EXPORTING
    FILENAME = 'C:\matstk.TXT'
   FILETYPE                        = 'ASC'
  TABLES
    DATA_TAB                        = I_OUT.
*&                  T O P - O F - P A G E                              *
TOP-OF-PAGE.
  WRITE:/ 'DATE:' ,SY-DATUM.
*&                  E N D - O F - P A G E                              *
END-OF-PAGE.
  WRITE: / SY-ULINE,
         /100 'PAGNO: ',SY-PAGNO,
         SY-ULINE.
*&        E N D -- O F --  S E L E C T I O N                           *
END-OF-SELECTION.
  LOOP AT I_OUT.
    AT FIRST.
      WRITE :/ 'MATERIAL EXTRACTION REPORT',
               SY-ULINE.
    ENDAT.
    WRITE:/    SY-VLINE,
               I_OUT-MATNR,SY-VLINE,
               I_OUT-MEINS,SY-VLINE,
               I_OUT-WERKS,SY-VLINE,
               I_OUT-LVORM,SY-VLINE,
               I_OUT-PSTAT,SY-VLINE,
               I_OUT-DISPO,SY-VLINE,
               I_OUT-MBRSH,SY-VLINE,
               I_OUT-MAKTX,SY-VLINE,
               I_OUT-VKORG,SY-VLINE,
               I_OUT-VTWEG,SY-VLINE,
               I_OUT-LGORT,SY-VLINE,
               I_OUT-LABST,SY-VLINE.
    TOT = TOT + I_OUT-LABST.
    AT NEW MATNR.
      WRITE : 'NEW RECORD',
               SY-VLINE.
    ENDAT.
    AT END OF LABST.
      WRITE : 'STOCK = ',
               TOT,
               SY-VLINE,
               SY-ULINE.
    ENDAT.
    AT LAST.
      FORMAT COLOR 7 INTENSIFIED OFF.
      WRITE : /159 'TOTAL STOCK = ',
                 TOT.
    ENDAT.
  ENDLOOP.
    WRITE : /159 'TOTAL STOCK = ',
                 TOT.
regards,
srinivas
<b>*reward for useful answers*</b>