Program for Bills of Materials

Question

Hi all,
Could you please tell me is there any program available in SAP for 'Bills of Materials'?
Thanks.

Answer 1

Dev,
if u give ur  mail id i can farward some program to u
u can check this program
REPORT ZMM00120_AUDIT .
CHANGE HISTORY                                                       *
Date      Level  Description.                               Author   *
03/02/05  46C    AUDIT REPORT FOR BOM COMPONENTS           EIFERTGE
SYSTEM DETAILS                                                       *
ABAP DETAILS                                                         *
  Title           : BOM COMPONENT AUDIT
TABLES: MAST, STKO, STAS.
DATA: BEGIN OF ZAUDIT OCCURS 0,
         MATNR LIKE MAST-MATNR,
         WERKS LIKE MAST-WERKS,
         STLNR LIKE MAST-STLNR,
         STLAL LIKE STKO-STLAL,
         ZZLIFNR LIKE STKO-ZZLIFNR,
         ZZSEASON LIKE STKO-ZZSEASON,
         ZZEKORG LIKE STKO-ZZEKORG,
         END OF ZAUDIT.
DATA: Z_STLNR LIKE STKO-STLNR.
*ALV GRID WORKING STORAGE                                   "GLE03/05
TYPE-POOLS: SLIS.
DATA:       ALV_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
            ALV_LAYOUT   TYPE SLIS_LAYOUT_ALV,
            ALV_LAYOUT_L TYPE SLIS_LAYOUT_ALV,
            ALV_FIELDCAT_L TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
            ALV_LAYOUT_B TYPE SLIS_LAYOUT_ALV,
            ALV_FIELDCAT_B TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
            ALV_STATUS TYPE SLIS_FORMNAME VALUE 'XXXXXXX',
            ALV_USER_COMMAND TYPE SLIS_FORMNAME
                          VALUE 'USER_COMMAND_ALV',
            ALV_GRID_TITLE TYPE LVC_TITLE,
            ALV_GRID_SETTINGS TYPE LVC_S_GLAY,
            ALV_VARIANT TYPE DISVARIANT,
            CALL-REPID LIKE SY-REPID.
Ereignisse                                                *
DATA:      ET_EVENTS TYPE SLIS_T_EVENT,
           ET_EVENTS_REST TYPE SLIS_T_EVENT.
DATA:      ET_EVENT_EXIT       TYPE   SLIS_T_EVENT_EXIT.
DATA:      S_PRINT             TYPE   SLIS_PRINT_ALV.
DATA: IT_LIST_COMMENTARY TYPE SLIS_T_LISTHEADER,
      C-TEXT(15) TYPE C,   " TYPE slis_entry,
      IT_LIST_COMMENTARY_LINE TYPE SLIS_LISTHEADER.
DATA: KEYINFO  TYPE SLIS_KEYINFO_ALV.
SELECT-OPTIONS: S_MATNR FOR MAST-MATNR,
                S_WERKS FOR MAST-WERKS.
Start of selection                                                   *
START-OF-SELECTION.
SELECT * INTO CORRESPONDING FIELDS OF TABLE ZAUDIT
  FROM STKO INNER JOIN MAST
    ON STKOSTLNR = MASTSTLNR
   WHERE MATNR IN S_MATNR
     AND WERKS IN S_WERKS
     AND MAST~STLAN =  'S'.
LOOP AT ZAUDIT.
  SELECT SINGLE STLNR INTO Z_STLNR FROM STAS
    WHERE STLNR = ZAUDIT-STLNR
      AND STLAL = ZAUDIT-STLAL.
  IF SY-SUBRC = 0.
   DELETE ZAUDIT.
  ENDIF.
ENDLOOP.
End of Selection                                                     *
END-OF-SELECTION.
Ereignisse fühlen                                       *
  DATA:  ET_EVENTS_LINE TYPE SLIS_ALV_EVENT.
  CLEAR ET_EVENTS_LINE.
  ET_EVENTS_LINE-NAME = SLIS_EV_TOP_OF_PAGE.
  ET_EVENTS_LINE-FORM = 'EVENT_TOP_OF_LIST'.
  APPEND ET_EVENTS_LINE TO ET_EVENTS.
  CLEAR ET_EVENTS_LINE.
  ET_EVENTS_LINE-NAME = SLIS_EV_TOP_OF_LIST.
  ET_EVENTS_LINE-FORM = 'EVENT_TOP_OF_LIST'.
  APPEND ET_EVENTS_LINE TO ET_EVENTS.
  CLEAR ET_EVENTS_LINE.
  ET_EVENTS_LINE-NAME = slis_ev_after_line_output.
  ET_EVENTS_LINE-FORM = 'AFTER_LINE_OUTPUT'.
  APPEND ET_EVENTS_LINE TO ET_EVENTS.
event exist                                           *
  DATA:      ET_EVENT_EXIT_LINE  TYPE   SLIS_EVENT_EXIT.
  IF 'A' = 'A'.
    CLEAR  ET_EVENT_EXIT_LINE.
    ET_EVENT_EXIT_LINE-UCOMM = '&IC'.
    ET_EVENT_EXIT_LINE-BEFORE = 'X'.
    APPEND  ET_EVENT_EXIT_LINE TO ET_EVENT_EXIT.
  ENDIF.
  IF NOT ZAUDIT[] IS INITIAL.
    PERFORM ALV_GRID_DISPLAY.
  ENDIF.
      FORM EVENT_TOP_OF_LIST                                        **
FORM EVENT_TOP_OF_LIST.
  DATA: DUMMY.
  DATA: S-TIME(8) TYPE C,
       S-DATE(10) TYPE C,
        SEPARATOR(3) TYPE C VALUE SPACE.
S_PRINT-NO_PRINT_LISTINFOS = 'X'.            "NO PRT TOTALS/SUBTOTALS
S_PRINT-NO_PRINT_SELINFOS = 'X'.            "NO PRINT ???
  CLEAR IT_LIST_COMMENTARY_LINE.
  REFRESH IT_LIST_COMMENTARY.
  IT_LIST_COMMENTARY_LINE-TYP = 'H'.
  clear IT_LIST_COMMENTARY_LINE-INFO.
  WRITE  'W O L V E R I N E  W O R L D  W I D E , I N C.'  TO
     IT_LIST_COMMENTARY_LINE-INFO.
  APPEND IT_LIST_COMMENTARY_LINE TO IT_LIST_COMMENTARY.
  clear IT_LIST_COMMENTARY_LINE-INFO.
   IT_LIST_COMMENTARY_LINE-INFO = 'BOM Component Audit'.
   APPEND IT_LIST_COMMENTARY_LINE TO IT_LIST_COMMENTARY.
   clear IT_LIST_COMMENTARY_LINE-INFO.
  IT_LIST_COMMENTARY_LINE-TYP = 'A'.
  CONCATENATE 'EXECUTED BY:' SY-UNAME INTO
        IT_LIST_COMMENTARY_LINE-INFO SEPARATED BY ' '.
  APPEND IT_LIST_COMMENTARY_LINE TO IT_LIST_COMMENTARY.
  CLEAR  IT_LIST_COMMENTARY_LINE-INFO.
  WRITE SY-DATUM TO IT_LIST_COMMENTARY_LINE-INFO.
  WRITE SY-UZEIT TO S-TIME.
  CONCATENATE 'Date:' IT_LIST_COMMENTARY_LINE-INFO
              'Time:' S-TIME
     INTO IT_LIST_COMMENTARY_LINE-INFO SEPARATED BY SEPARATOR.
  WRITE SY-PAGNO TO C-TEXT LEFT-JUSTIFIED NO-ZERO.
  CONCATENATE 'PAGE:' C-TEXT INTO C-TEXT SEPARATED BY ' '.
  IT_LIST_COMMENTARY_LINE-INFO+50 = C-TEXT.
  APPEND IT_LIST_COMMENTARY_LINE TO IT_LIST_COMMENTARY.
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
       EXPORTING
            IT_LIST_COMMENTARY = IT_LIST_COMMENTARY
       EXCEPTIONS
            OTHERS             = 1.
ENDFORM.
*&      Form  ALV_GRID_DISPLAY
FORM ALV_GRID_DISPLAY.
  CLEAR: S_PRINT, ALV_LAYOUT.
s_print-print = 'X'.                "DIRECT TO PRINT NO DISPLAY
  CALL-REPID = SY-REPID.
ALV_GRID_SETTINGS-NO_COLWOPT = 'X'.
  ALV_LAYOUT-colwidth_optimize = 'X'.        "MINIMIZE COL WIDTHS
  ALV_LAYOUT-ZEBRA = 'X'.                    "ZEBRA PRINT
  ALV_FIELDCAT-TABNAME = ZAUDIT.
  ALV_FIELDCAT-FIELDNAME = 'MATNR'.
  ALV_FIELDCAT-SELTEXT_L = 'Material'.
  APPEND ALV_FIELDCAT.
  CLEAR ALV_FIELDCAT.
  ALV_FIELDCAT-TABNAME = ZAUDIT.
  ALV_FIELDCAT-FIELDNAME = 'ZZLIFNR'.
  ALV_FIELDCAT-SELTEXT_L = ' Vendor#  '.
  ALV_FIELDCAT-JUST = 'R'.
ALV_FIELDCAT-LZERO = 'X'.
  ALV_FIELDCAT-NO_ZERO = 'X'.
  APPEND ALV_FIELDCAT.
  CLEAR ALV_FIELDCAT.
  ALV_FIELDCAT-TABNAME = ZAUDIT.
  ALV_FIELDCAT-FIELDNAME = 'WERKS'.
  ALV_FIELDCAT-SELTEXT_S = 'Plant'.
  APPEND ALV_FIELDCAT.
  CLEAR ALV_FIELDCAT.
  ALV_FIELDCAT-TABNAME = ZAUDIT.
  ALV_FIELDCAT-FIELDNAME = 'ZZEKORG'.
  ALV_FIELDCAT-SELTEXT_S = 'Pur. Org'.
  APPEND ALV_FIELDCAT.
  CLEAR ALV_FIELDCAT.
  ALV_FIELDCAT-TABNAME = ZAUDIT.
  ALV_FIELDCAT-FIELDNAME = 'ZZSEASON'.
  ALV_FIELDCAT-SELTEXT_l = 'Season'.
  APPEND ALV_FIELDCAT.
  CLEAR ALV_FIELDCAT.
   PERFORM GET_ALV_VARIANT.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM                = CALL-REPID
      I_CALLBACK_USER_COMMAND           = ALV_USER_COMMAND
    I_STRUCTURE_NAME                  = 'ZFOB_ALV'
      I_GRID_TITLE                      = ALV_GRID_TITLE
      I_GRID_SETTINGS                   = ALV_GRID_SETTINGS
      IS_LAYOUT                         =  ALV_LAYOUT
      IT_FIELDCAT                       =  ALV_FIELDCAT[]
      I_DEFAULT                         = 'X'
      I_SAVE                            = 'A'
      IS_VARIANT                        = ALV_VARIANT
      IT_EVENTS                         = ET_EVENTS
      IT_EVENT_EXIT                     = ET_EVENT_EXIT
      IS_PRINT                          = S_PRINT           "GLE02/05
    TABLES
      T_OUTTAB                          =  ZAUDIT
    EXCEPTIONS
      PROGRAM_ERROR                     = 1
      OTHERS                            = 2
  IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
ENDFORM.                    " ALV_GRID_DISPLAY
*&      Form  GET_ALV_VARIANT
FORM GET_ALV_VARIANT.
  ALV_VARIANT-REPORT = CALL-REPID.
  ALV_VARIANT-USERNAME = SY-UNAME.
  CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'
       EXPORTING  "USER DEFINED VARIANT
            I_SAVE        = 'A'
       CHANGING
            CS_VARIANT    = ALV_VARIANT
       EXCEPTIONS
            WRONG_INPUT   = 1
            NOT_FOUND     = 2
            PROGRAM_ERROR = 3
            OTHERS        = 4.
  IF SY-SUBRC <> 0.    "GET DEFAULT VARIANT
    CLEAR ALV_VARIANT-USERNAME.
    CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'
         EXPORTING
              I_SAVE        = 'A'
         CHANGING
              CS_VARIANT    = ALV_VARIANT
         EXCEPTIONS
              WRONG_INPUT   = 1
              NOT_FOUND     = 2
              PROGRAM_ERROR = 3
              OTHERS        = 4.
    IF SY-SUBRC <> 0.
      CLEAR ALV_VARIANT.
    ENDIF.
  ENDIF.
ENDFORM.                    " GET_ALV_VARIANT
*&      Form  USER_COMMAND_ALV
FORM USER_COMMAND_ALV USING R_UCOMM LIKE SY-UCOMM
                            RS_SELFIELD TYPE SLIS_SELFIELD.
  RS_SELFIELD-REFRESH = 'X'.
  CASE R_UCOMM.
   WHEN 'PICK' OR '&IC1'.
     IF RS_SELFIELD-fieldNAME = 'BELNR'.
       SET PARAMETER ID 'GJR' FIELD ACCTDTLS-GJAHR.
       CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
     ENDIF.
    RS_SELFIELD-COL_STABLE = 'X'.     "SET CURSOR TO CURRENT POSTITION
     RS_SELFIELD-ROW_STABLE = 'X'.
     ALV_LAYOUT-INFO_FIELDNAME    = 'DISPLAY-COL'.
    WHEN '&RNT'.                       "Print
      CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'
           EXPORTING
                IS_PRINT = S_PRINT.
  ENDCASE.
ENDFORM.
Regards,
Naveen