Component where used list

Dear PP Gurus,
My client requires a where used list report for material part number.
When i give the part number, it should display the Semi FG/FG part number in whose BOM that part number is component.
Is there any standard report in system?
If no , through which tables i can create such report using SQVI or do i need ABAP help?
Thanks & Regards
Shalini

Dear Shalini,
If you want to display the where used list for a single material you can use T code CS15.
If it's more muliple material,then You have to develop a small report in order to meet your client's
requirement.
For this you can use the FM's CSEP_MAT_BOM_SELECT_WHERE_USED or else
CS_WHERE_USED_MAT. Prepare the functional Spec's and prepare a customized report.
Regards
Mangalraj.S

Similar Messages

Table name for BW Query Where used list

Hi,
I am looking for Table name where the information of " where used list " of a BW query stores.
Any help ?
Thanks
Satya

Vani,
I dont think it is available...
whats your exact requirement???
you can make use of these below tables
RSZELTDIR              Directory of the reporting component elements
RSZELTTXT      Texts of reporting component elements
RSZELTXREF      Directory of query element references
RSRREPDIR             Directory of all reports (Query GENUNIID)
RSZCOMPDIR      Directory of reporting components
RSZRANGE      Selection specification for an element
RSZSELECT             Selection properties of an element
RSZELTDIR              Directory of the reporting component elements
RSZCOMPIC            Assignment reuseable component <-> InfoCube
RSZELTPRIO      Priorities with element collisions
RSZELTPROP      Element properties (settings)
RSZELTATTR      Attribute selection per dimension element
RSZCALC                    Definition of a formula element
RSZCEL                 Query Designer: Directory of Cells
RSZGLOBV            Global Variables in Reporting

BOM Where used list

Hi All,
Is there any report of BOM which will suffice the requirement like if am putting any level of component like where used list the system will display the highest level of material.
e.g
'A' having component X , Y AND Z
'X' having compnent P Q and R
P having component L, M and N.
if am putting component to search what is the highest level of assembly material, for my requirement i required it should give display of materail 'A'.
I had gone through where used list report CS15 but which is giving only header of the selected component and my requirement it give top material of the assembly.
Plz suggest its urgent.
Regards,
Rajesh

Hi,
Probably it is not possible to have this in Standard SAP.
You need to consider Custom report for this.
In your case you wanted the diplay of Header Material.
Say, your BOM is having 10 level structure and you wanted to have the 8/9th Level Material as input in your report and you wanted the Header Material (Lowest Level) as output.
You need to conider the Low Level Code of the Input Material.
One more thing is this same component may be part of some other Materials as well.
Hope this helps in decision making and some sort of Logic to build the regport..
Regards,
Siva

Where-used list for view methods, and context elements

I want to know where a context element in the component controller is used (and if I can delete it).
Is there something like a where-used list for a context element?
Similar question:
Is there a where-used list for a method of a view?
Best regards,
Daniel

Hi Daniel,
Its not supported for both of these..
Regards
Anuj Goyal

About the Where-used list in BOM

Hi,
can anybody tell how to use the function moudle 'CS_WHERE_USED_MAT' to get the list of materials for each BOM component. Here I have to take inputs from the tables MAST, STKO, STPO
Thanks a lot for your valuable time,
Regards,
Bhaskar

Hi,
The significance of Where used list is that, one can know about an item, where all it being used.
For eg.. If an item 'A' is used in assemblies X,Y,Z(BOM). If you use CS15 and enter item A and Qty., the result shows that, item A is required in X,Y,Z BOMs.
One need not remember about, where the item being used. Just you can use this transaction and know
Regards,
KNM

Context attributes where used list

hello,
is there a way to find out the no longer used context attributes?
I need something like a where used list mechanism for context attributes.
My aim is to delete all context attributes which are not bound to any ui elements or not accessed in the abap coding.
In a larger wda it is a problem to identify the not used context attributes.
Thank you.
Kind regards.

This is a new feature in NetWeaver 7.0 Enahncement Package 2 - but not available before then. It works at the node level however - not the attribute level. It tells what views and components (cross component context binding) the node is bound to as well as any methods that reference the content node in coding (as long as you use the generated constants for access - such as wd_context->get_child_node( name = wd_this->wdctx_* ) ).

Multi level where used list (cs_where_use_mat)

How to get Multi level where use list of a component?
CS_WHERE_USE_MAT has details of a material. but i need to dig where use list for all materials of that component. CS15 does not give compleate details(only few fields are there)

Check the below program :
REPORT ZPPR_BOM_INFOL_REPORT no standard page heading
                 line-size 160
                 line-count 60.
======================================================================
Program Name : ZPPR_BOM_INFOL_REPORT
Table definition                                                    *
TABLES: mast,
        stko,
        stpo,
        T418,
        makt.
TYPE - POOLS
TYPE-POOLS: slis.
Constants
constants : c_tcode(4) type c value 'CS03',
            gc_formname_top_of_page TYPE slis_formname
            VALUE 'TOP_OF_PAGE'.
Variables
data : v_maktx like makt-maktx,
       wa_stko like stko.
DATA:
Objekttyp 'Material'
   otyp_mat(1) TYPE c VALUE '1',
   ootyp_mat(1) TYPE c VALUE 'M',
Objekttyp 'kein Objekt'
   otyp_noo(1) TYPE c VALUE '2',
Objekttyp 'Dokument'
   otyp_doc(1) TYPE c VALUE '3',
Objekttyp 'Klasse'
   otyp_kla(1) TYPE c VALUE '4',
Objekttyp 'Intramaterial'
   otyp_ntm(1) TYPE c VALUE '5'.
maximal anzeigbare Menge
data:   max_num(7) TYPE p DECIMALS 3 VALUE '9999999999.999',
        ueberl_kz(1) TYPE c VALUE '*',
        min_num(7) TYPE p DECIMALS 3 VALUE '9999999999.999-',
        b_flag(1) TYPE c VALUE 'X',
        ecfld(250) TYPE c,
        v_flag type c.
ALV Variables
DATA: gt_fieldcat TYPE slis_t_fieldcat_alv,
      gs_layout   TYPE slis_layout_alv,
      gs_keyinfo TYPE slis_keyinfo_alv,
      gt_sp_group TYPE slis_t_sp_group_alv,
      gt_events   TYPE slis_t_event.
DATA: g_repid LIKE sy-repid.
DATA: gt_list_top_of_page TYPE slis_t_listheader,
            g_tabname_header TYPE slis_tabname,
            g_tabname_item   TYPE slis_tabname,
            g_save(1) TYPE c,
            gx_variant LIKE disvariant,
            g_variant LIKE disvariant,
            g_default(1) TYPE c,
            g_exit(1) TYPE c.
Includes                                                             *
INCLUDE .
Internal Table Declaration                                           *
DATA: t_mast LIKE STANDARD TABLE OF mast WITH HEADER LINE.
*DATA: t_makt LIKE STANDARD TABLE OF makt WITH HEADER LINE.
BOM Function module Related
DATA: t_matcat LIKE cscmat OCCURS 0 WITH HEADER LINE.
Internal Table for Level by Level Function module
DATA: t_stb LIKE stpox OCCURS 0 WITH HEADER LINE.
Get the Relevant data from FM
DATA: BEGIN OF hd_tab OCCURS 0,
         stufe LIKE stpox-stufe,
         vwegx LIKE stpox-vwegx,
      END OF hd_tab.
Final Output
DATA: BEGIN OF alv_stb OCCURS 0.
        INCLUDE STRUCTURE stpox_alv.
DATA:   info(3)   TYPE c,
      END OF alv_stb.
DATA: BEGIN OF stb_orig.
        INCLUDE STRUCTURE stpox.
DATA: END OF stb_orig.
DATA: BEGIN OF stb_add.
        INCLUDE STRUCTURE stpol_add.
DATA: END OF stb_add.
Internal Table for STPO
*-- BOM Line item
TYPES: BEGIN OF ty_stpo,
       stlty TYPE stpo-stlty,
       stlnr TYPE stpo-stlnr,
       stlkn TYPE stpo-stlkn,
       stpoz TYPE stpo-stpoz,
       idnrk TYPE stpo-idnrk,
       meins TYPE stpo-meins,
       menge TYPE stpo-menge, "Component Qty
       END OF ty_stpo.
DATA: t_stpo TYPE STANDARD TABLE OF ty_stpo WITH HEADER LINE.
*-- BOM Header
TYPES: BEGIN OF ty_stko,
       stlty TYPE stko-stlty,
       stlnr TYPE stko-stlnr,
       stlal TYPE stko-stlal,
       stkoz TYPE stko-stkoz,
       bmein TYPE stko-bmein,
       bmeng TYPE stko-bmeng,
       END OF ty_stko.
DATA: t_stko TYPE STANDARD TABLE OF ty_stko WITH HEADER LINE .
data : t_makt like makt occurs 0 with header line.
DATA: BEGIN OF cl_clstab OCCURS 0,                          "YHG079407
         class LIKE klah-class,                             "YHG079407
         klart LIKE klah-klart,                             "YHG079407
         chked LIKE csdata-xfeld,                           "YHG079407
         noobj LIKE csdata-xfeld,                           "YHG079407
         dsply LIKE csdata-xfeld,                           "YHG079407
      END OF cl_clstab.
*-- Header table
TYPES: BEGIN OF ty_main_material,
       matnr TYPE mast-matnr, "Material
       werks TYPE mast-werks, "Plant
       maktx TYPE makt-maktx, "Description
       stlal TYPE mast-stlal, "Alternative BOM
       stlnr TYPE stko-stlnr, "BOM Number
       bmein TYPE stko-bmein, "UOM
       bmeng TYPE stko-bmeng, "Base Qty
       expand(1) TYPE c,      "Expanding Field
       END OF ty_main_material.
DATA: t_main_material TYPE STANDARD TABLE OF ty_main_material WITH
      HEADER LINE.
*-- Item (Component) Table
TYPES: BEGIN OF ty_item_material,
       matnr TYPE mast-matnr, "Material
       werks TYPE mast-werks, "Plant
       idnrk TYPE stpo-idnrk, "Component (Material)
       maktx TYPE makt-maktx, "Description
       stlal TYPE mast-stlal, "Alternative BOM
       stlnr TYPE stpo-stlnr, "BOM Number
       meins TYPE stpo-meins, "UOM
       menge TYPE stpo-menge, "Base Qty
       END OF ty_item_material.
DATA: t_item_material TYPE STANDARD TABLE OF ty_item_material WITH
      HEADER LINE.
Selection Screen                                                     *
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_werks LIKE marc-werks DEFAULT '1000' OBLIGATORY.
SELECT-OPTIONS s_stlal FOR mast-stlal .
SELECT-OPTIONS s_stlan FOR mast-stlan DEFAULT '1'.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
SELECTION-SCREEN SKIP.
PARAMETERS: p_bomlst RADIOBUTTON GROUP g1 DEFAULT 'X'.
SELECT-OPTIONS s_matnr FOR mast-matnr.
SELECTION-SCREEN SKIP.
PARAMETERS: p_compon RADIOBUTTON GROUP g1.
SELECT-OPTIONS: s_idnrk FOR stpo-idnrk.
SELECTION-SCREEN END OF BLOCK b2.
SELECTION-SCREEN END OF BLOCK b1.
selection-screen begin of block b03 with frame title text-b03.
selection-screen begin of line.
selection-screen comment 1(40) text-005.
parameters: p_all radiobutton group r1 default 'X'.
selection-screen end of line.
selection-screen begin of line.
selection-screen comment 1(40) text-006.
parameters: p_one radiobutton group r1 .
selection-screen end of line.
selection-screen end of block b03.
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-003.
PARAMETERS: p_vari LIKE disvariant-variant.
SELECTION-SCREEN END OF BLOCK b3.
At slection screen events                                            *
*-- Process on value request
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_vari.
PERFORM f4_for_variant.
Intitialisation
INITIALIZATION.
g_repid = sy-repid.
g_tabname_header = 'T_MAIN_MATERIAL'.
g_tabname_item   = 'T_ITEM_MATERIAL'.
*-- define keyinformation
CLEAR gs_keyinfo.
gs_keyinfo-header01 = 'MATNR'.
gs_keyinfo-item01   = 'MATNR'.
PERFORM e03_eventtab_build USING gt_events[].
PERFORM e04_comment_build USING gt_list_top_of_page[].
PERFORM e07_sp_group_build USING gt_sp_group[].
PERFORM e08_layout_build   USING gs_layout.
Set Options: save variants userspecific or general
g_save = 'A'.
PERFORM variant_init.
Get default variant
gx_variant = g_variant.
CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'
       EXPORTING
            i_save     = g_save
       CHANGING
            cs_variant = gx_variant
       EXCEPTIONS
            not_found = 2.
IF sy-subrc = 0.
    p_vari = gx_variant-variant.
ENDIF.
S T A R T - O F - S E L E C T I O N *******************
start-of-selection.
if p_all = 'X'.
Get the data from MAST and MAKT Table
    if p_bomlst = 'X'.
Get the data Based On Material #
      perform get_data.
    else.
Get the data Based On Component
      perform get_data_component.
    endif.
else.
Get the Single Level Report
*-- Moved the fiedl catalog here inorder to change the layout based on
*-- Selection
    PERFORM e01_fieldcat_init USING gt_fieldcat[].
    PERFORM select_data.
endif.
E N D - O F - S E L E C T I O N *******************
end-of-selection.
if p_one = 'X'.
    perform alv.
endif.
User Command
at line-selection.
Interactive to CS03 Transaction
case sy-ucomm.
    when 'PICK' or 'F2'.
      if not alv_stb-idnrk is initial .
        if not alv_stb-werks is initial.
          if not alv_stb-objty is initial.
            SET PARAMETER ID 'MAT' FIELD alv_stb-idnrk.
            SET PARAMETER ID 'WRK' FIELD alv_stb-werks.
            SET PARAMETER ID 'CSV' FIELD alv_stb-OBJTY.
            call transaction c_tcode and skip first screen.
          endif.
        endif.
      endif.
      clear alv_stb.
endcase.
*&      Form get_data
      Get data from MAST and MAKT Table
FORM get_data.
data : wa_lines type sy-index.
REFRESH : T_MAST,
            t_STB,
            t_MATCAT,
            alv_STB.
CLEAR : T_MAST,
            t_STB,
            t_MATCAT,
            alv_STB.
Get the data from MAST Table
Get all the information from MAST - BOM Table
SELECT * FROM mast INTO TABLE t_mast WHERE matnr IN s_matnr AND
                                             werks = p_werks AND
                                             stlan IN s_stlan AND
                                             stlal IN s_stlal.
describe table t_mast lines wa_lines.
if wa_lines is initial.
    Write:/2 'List contains no data'.
    stop.
endif.
loop at t_mast.
    clear : v_maktx.
Start of change Seshu
Reason - Remove the new page option
    if sy-tabix ne 1.
      skip 1.
    endif.
End of Change Seshu
Get the material Description
    select single maktx from makt into v_maktx
                             where matnr = t_mast-matnr
                             and   spras = 'E'.
Get the material details from STKO Table
    select single * from stko into wa_stko
                    where STLTY = 'M'
                    and   STLNR = t_mast-stlnr
                    and   STLAL = t_mast-stlal.
Main Header for Each Material
    format color 5 on.
    write:/2 'Material',20 'Material Description',65 'Alternative BOM',
         90 'Base Qty', 115 'Base Unit'.
    format color 5 off.
    format color 1 on.
    write:/2 t_mast-matnr,20 v_maktx,65 wa_stko-STLAL, 85 wa_stko-BMENG,
           115 wa_stko-BMEIN.
    format color 1 off.
Use the Function Module and get the format level by level
    perform get_level_level.
endloop.
ENDFORM.                    " get_data
Top of page                                                  *
top-of-page.
perform report_header .
*&      Form report_header
      text
--> p1        text
<-- p2        text
FORM report_header.
new-page line-size 160 .
format color col_heading intensified on.
write:/ sy-uline(160) .
*--- Write Company Name.
perform calc_col_and_write using    text-h00
                                      sy-linsz.
*--- Write Report Title.
perform calc_col_and_write using    sy-title
                                      sy-linsz.
*--- Write User Id, Date / Time, Program Id, Page etc.
perform write_other_hdr_details.
write:/ sy-uline(160) .
ENDFORM.                    " report_header
*&      Form calc_col_and_write
      text
     -->P_TEXT_H00 text
     -->P_SY_LINSZ text
FORM calc_col_and_write USING    P_TEXT
                                 P_LINSZ.
data: col1 type i,
         col2 type i,
          len type i,
          str type i.
str = strlen( p_text ).
col1 = ( p_linsz / 2 ) - ( str / 2 ) .
len = p_linsz - col1 - 2.
write: at /1 '|'.
write: at col1 p_text,
         at sy-colno(len) space.
write at 160 '|'.
ENDFORM.                    " calc_col_and_write
*&      Form write_other_hdr_details
      text
--> p1        text
<-- p2        text
FORM write_other_hdr_details.
data: col1 type i,
          col2 type i,
          len type i.
col1 = 3.
write:/1 '|'.
write: at col1 'UserId : ',
                  sy-uname.
len = sy-linsz - 1.
write at sy-colno(len) space.
col2 = sy-linsz - 18.
write: at col2 'Date: ',
                 sy-datum mm/dd/yyyy.
write: at sy-linsz '|'.
write:/1 '|'.
write: at col1 'ReportId: ',
                  sy-repid.
write at sy-colno(len) space.
col2 = sy-linsz - 18.
write: at col2 'Page: ',
                  sy-pagno.
write: at sy-linsz '|'.
ENDFORM.                    " write_other_hdr_details
*&      Form get_data_component
      Get the data based on Component level
FORM get_data_component.
data wa_lines type i.
*-- Get the BOM item details
SELECT stlty stlnr stlkn stpoz idnrk meins menge
          FROM stpo
          INTO TABLE t_stpo
WHERE   idnrk IN s_idnrk.
IF sy-subrc = 0.
    CLEAR wa_lines.
    DESCRIBE TABLE t_stpo LINES wa_lines.
    IF wa_lines > 0.
      SELECT stlty stlnr stlal stkoz bmein bmeng
              FROM stko
              INTO TABLE t_stko
              FOR ALL ENTRIES IN t_stpo
      WHERE stlnr = t_stpo-stlnr.
      CLEAR wa_lines.
      DELETE ADJACENT DUPLICATES FROM t_stko COMPARING ALL FIELDS.
      DESCRIBE TABLE t_stko LINES wa_lines.
      IF wa_lines > 0.
*-- Get the BOM item details
        SELECT * FROM mast INTO TABLE t_mast FOR ALL ENTRIES IN t_stko
                                            WHERE werks = p_werks AND
                                              stlnr = t_stko-stlnr
                                              and stlal in s_stlal.
      ENDIF.
    ENDIF.
else.
    Write:/2 'List contains no data'.
    stop.
endif.
loop at t_mast.
    clear : v_maktx.
Start of change Seshu
Reason - Remove the new page option
    if sy-tabix ne 1.
      skip 1.
    endif.
End of change    Seshu
Get the material Description
    select single maktx from makt into v_maktx
                             where matnr = t_mast-matnr
                             and   spras = 'E'.
Get the material details from STKO Table
    select single * from stko into wa_stko
                    where STLTY = 'M'
                    and   STLNR = t_mast-stlnr
                    and   STLAL = t_mast-stlal.
Main Header for Each Material
    format color 5 on.
    write:/2 'Material',20 'Material Description',65 'Alternative BOM',
         90 'Base Qty', 115 'Base Unit'.
    format color 5 off.
    format color 1 on.
    write:/2 t_mast-matnr,20 v_maktx,65 wa_stko-STLAL, 85 wa_stko-BMENG,
           115 wa_stko-BMEIN.
    format color 1 off.
Use the Function Module and get the format level by level
    perform get_level_level.
    clear : t_mast.
endloop.
ENDFORM.                    " get_data_component
*&      Form obj_ident
      text
FORM obj_ident.
weder Mat noch Doc
CHECK: T_stb-objty NE otyp_mat,
         T_stb-objty NE ootyp_mat,
         T_stb-objty NE otyp_doc,
         T_stb-objty NE otyp_ntm.
?T418-WA schon ok
nein
IF T_stb-postp NE t418-postp.
    T418 einlesen
    PERFORM t418_lesen USING T_stb-postp.
ENDIF.
PERFORM cl_clstab_maint.
?MatNr-Eingabe bei diesem PosTyp moeglich
und keine Textposition
trifft zu
IF     t418-matin NE '-'
     AND t418-txpos IS INITIAL.
    aktuelles Objekt ist Material NLAG
    T_stb-objty = '1'.
    PosKurztext in ObjKurztext uebernehmen.
    T_stb-ojtxp = T_stb-potx1.
    MODIFY T_stb.
ELSE.
    IF T_stb-objty IS INITIAL.
      T_stb-objty = '2'.
      MODIFY T_stb.
    ENDIF.
ENDIF.
ENDFORM.                    " obj_ident
*&      Form t418_lesen
      text
     -->P_T_STB_POSTP text
FORM t418_lesen USING   lkl_postp LIKE stpo-postp.
T418-WA initialisieren
CLEAR:
     t418.
Key angeben
t418-postp = lkl_postp.
PosTypDefinition lesen
READ TABLE t418.
ENDFORM.                    " t418_lesen
*&      Form cl_clstab_maint
      text
FORM cl_clstab_maint.
nur fuer Klassenpositionen
CHECK t_STB-OBJTY EQ OTYP_KLA.
Teilkey der Klassenpositionentabelle
CL_CLSTAB-CLASS = t_STB-CLASS.
CL_CLSTAB-KLART = t_STB-KLART.
Klassenpositionentabelle lesen
READ TABLE CL_CLSTAB
     WITH KEY CL_CLSTAB(21)
     BINARY SEARCH.
aktuelle Klassenposition bereits in Klassenpositionentabelle
nein
IF SY-SUBRC <> 0.
    Klassenposition in Klassenpositionentabelle hinzufuegen
    INSERT CL_CLSTAB INDEX SY-TABIX.
ENDIF.
ENDFORM.                    " cl_clstab_maint
*&      Form alv_stb_prep
      Printing the data as LEVEL BY LEVEL
FORM alv_stb_prep.
CLEAR:
      alv_stb,
      stb_orig,
      stb_add.
IF t_stb-hdnfo IS INITIAL.
    stb_orig = t_stb.
    IF t_stb-mngko >= max_num.
      stb_add-ovfls = ueberl_kz.
    ELSE.
      IF t_stb-mngko <= min_num.
        stb_add-ovfls = ueberl_kz.
      ELSE.
        CLEAR: stb_add-ovfls.
      ENDIF.
    ENDIF.
    IF NOT t_stb-xtlnr IS INITIAL.
      stb_add-bomfl = b_flag.
    ENDIF.
    IF    NOT t_stb-knobj IS INITIAL
       OR NOT t_stb-class IS INITIAL
       OR NOT t_stb-kzclb IS INITIAL.
      stb_add-knofl = 'X'.
    ENDIF.
ELSE.
    CHECK t_stb-stufe > 1.
    alv_stb-info = 'C30'.
    IF t_stb-ttidx <> t_matcat-index.
      READ TABLE t_matcat INDEX t_stb-ttidx.
    ENDIF.
    stb_orig-hdnfo = t_stb-hdnfo.
    stb_orig-stufe = t_stb-stufe - 1 .
    stb_orig-ojtxp = t_stb-ojtxb.
    IF NOT t_stb-altst IS INITIAL.
      stb_orig-stlal = t_stb-stlal.
      IF stb_orig-stlal(1) EQ '0'.
        stb_orig-stlal(1) = ' '.
      ENDIF.
    ENDIF.
    stb_orig-idnrk = t_matcat-matnr.
ENDIF.
CLEAR:
    stb_add-dobjt,
    stb_add-objic.
CASE t_stb-objty.
    WHEN otyp_mat.
      WRITE: stb_orig-idnrk TO ecfld.
      stb_add-objic = '@A6@'.
    WHEN 'M'.
      WRITE: stb_orig-idnrk TO ecfld.
      stb_add-objic = '@A6@'.
    WHEN otyp_noo.
      WRITE: stb_orig-potx1 TO ecfld.
      stb_add-objic = '@0Q@'.
    WHEN otyp_doc.
      write stb_orig-doknr to ecfld.                        "note 489354
      IF ecfld CP '*# '. ENDIF.                             "note 489354
      sy-fdpos = sy-fdpos + 1.                              "note 489354
      CONCATENATE
*d      stb_orig-doknr                                      "note 489354
        stb_orig-dokar
        stb_orig-doktl
        stb_orig-dokvr
*d      INTO ecfld                                          "note 489354
        INTO ecfld+sy-fdpos                                 "note 489354
        SEPARATED BY space.
      stb_add-objic = '@AR@'.
    WHEN otyp_kla.
      CONCATENATE
        stb_orig-class
        stb_orig-klart
        INTO ecfld
        SEPARATED BY space.
      stb_add-objic = '@7C@'.
    WHEN otyp_ntm.
      WRITE: stb_orig-intrm TO ecfld.
    WHEN OTHERS.
ENDCASE.
*d CONDENSE ecfld.                                          "note 515408
stb_add-dobjt = ecfld(40).
CLEAR: ecfld.
WRITE stb_orig-stufe TO stb_add-dstuf NO-SIGN.
*d MOVE-CORRESPONDING stb_orig TO alv_stb.                 "note 331962
MOVE-CORRESPONDING stb_add TO alv_stb.
MOVE-CORRESPONDING stb_orig TO alv_stb.                   "note 331962
APPEND alv_stb.
ENDFORM.                    " alv_stb_prep
*&      Form get_level_level
      text
FORM get_level_level.
REFRESH : T_STB,
            T_MATCAT,
            ALV_STB.
CLEAR : T_STB,
          T_MATCAT,
          ALV_STB.
CALL FUNCTION 'CS_BOM_EXPL_MAT_V2'
       EXPORTING
            capid                 = 'PP01'
            datuv                 = sy-datum
            mktls                 = 'X'
            mehrs                 = 'X'
            mtnrv                 = t_mast-matnr
            stlal                 = '01'
            stlan                 = '1'
            stpst                 = 0
            svwvo                 = 'X'
            werks                 = p_werks
            vrsvo                 = 'X'
       TABLES
            stb                   = t_stb
            matcat                = t_matcat
       EXCEPTIONS
            alt_not_found         = 1
            call_invalid          = 2
            material_not_found    = 3
            missing_authorization = 4
            no_bom_found          = 5
            no_plant_data         = 6
            no_suitable_bom_found = 7
            conversion_error      = 8
            OTHERS                = 9.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CLEAR: hd_tab.
        Entry der KlassenstatusTab. initialisieren
         cl_clstab,
        Entry 'Objekte von Klassen' initialisieren
         cl_objmemo.
REFRESH: hd_tab.
SORT t_matcat BY index ASCENDING.
Get the All levels
loop at t_stb.
    IF NOT t_stb-hdnfo IS INITIAL.
      EXIT.
    ENDIF.
Object Identification
    PERFORM obj_ident.
    READ TABLE hd_tab
        WITH KEY stufe = t_stb-stufe
                 vwegx = t_stb-vwegx
        BINARY SEARCH
        TRANSPORTING NO FIELDS.
    ?gibt es diesen Satz schon
    nein
    IF sy-subrc <> 0.
       dann in SFP-Infosatzverweistab. aufnehmen
*d       APPEND HD_TAB.                                       "HGH054648
      hd_tab-stufe = t_stb-stufe.
                                                            "HGH054648
      hd_tab-vwegx = t_stb-vwegx.
                                                            "HGH054648
      INSERT hd_tab                                         "HGH054648
        INTO hd_tab                                         "HGH054648
        INDEX sy-tabix.                                     "HGH054648
       PosNr initialisieren
      CLEAR: t_stb-posnr.
       SFP-InfosatzKz setzen
      t_stb-hdnfo = 'X'.
        stb-objty = otyp_mat.
                                                            "HGE246532
       als SFP-Infosatz in die STB aufnehmen
      append t_stb.
    ENDIF.
*del ENDIF.
    clear t_stb.
endloop.
SORT t_stb ASCENDING BY stufe
              index ASCENDING
*del        POSNR ASCENDING.                                  "HGC062735
              posnr ASCENDING                               "HGC062735
              hdnfo DESCENDING.
LOOP AT t_stb.
    T_stb-index = sy-tabix.
    MODIFY T_stb.
    PERFORM alv_stb_prep.
ENDLOOP.
Displays the Value as Level by Level
loop at ALV_stb.
    if sy-tabix = 1.
      format color 3 on.
      write:/2 'Level',12 'Item',22 'Component',
      42 'Material Description',82 'Base Qty',
      107 'Base Unit',120 'Assembly Indicator'.
      format color 3 on.
    endif.
    if alv_stb-MEINs is initial.
      v_flag = 'X'.
    endif.
    if v_flag = 'X'.
      format color 5 on.
      write:/2 ALV_stb-STUFE,12 alv_stb-posnr,22 alv_stb-idnrk,
             42 alv_stb-OJTXP.
      format color 1 off.
    else.
      if alv_stb-STUFE = '1'.
        format color 1 on.
        write:/2 ALV_stb-STUFE,12 alv_stb-posnr,22 alv_stb-idnrk,
               42 alv_stb-OJTXP,72 alv_stb-mngko,
               107 alv_stb-MEINs, 120 alv_stb-bomfl .
        format color 1 off.
      elseif alv_stb-STUFE = '2'.
        format color 2 on.
        write:/2 alv_stb-STUFE,12 alv_stb-posnr,22 alv_stb-idnrk,
               42 alv_stb-OJTXP,72 alv_stb-mngko,
               107 alv_stb-MEINs,120 alv_stb-bomfl.
        format color 2 off.
      elseif alv_stb-STUFE = '3'.
        format color 3 on.
        write:/2 alv_stb-STUFE,12 alv_stb-posnr,22 alv_stb-idnrk,
                42 alv_stb-OJTXP,72 alv_stb-mngko,
                107 alv_stb-MEINs,120 alv_stb-bomfl .
        format color 3 off.
      elseif alv_stb-STUFE = '4'.
        format color 4 on.
        write:/2 alv_stb-STUFE,12 alv_stb-posnr,22 alv_stb-idnrk,
                42 alv_stb-OJTXP,72 alv_stb-mngko,
                107 alv_stb-MEINs,120 alv_stb-bomfl .
        format color 4 off.
      elseif alv_stb-STUFE = '5'.
        format color 5 on.
        write:/2 alv_stb-STUFE,12 alv_stb-posnr,22 alv_stb-idnrk,
                42 alv_stb-OJTXP,72 alv_stb-mngko,
                107 alv_stb-MEINs,120 alv_stb-bomfl .
        format color 5 off.
      elseif alv_stb-STUFE = '6'.
        format color 7 on.
        write:/2 alv_stb-STUFE,12 alv_stb-posnr,22 alv_stb-idnrk,
               42 alv_stb-OJTXP,72 alv_stb-mngko,
               107 alv_stb-MEINs,120 alv_stb-bomfl.
        format color 6 off.
      elseif alv_stb-STUFE = '7'.
        format color 7 on.
        write:/2 alv_stb-STUFE,12 alv_stb-posnr,22 alv_stb-idnrk,
               42 alv_stb-OJTXP,72 alv_stb-mngko,
               107 alv_stb-MEINs,120 alv_stb-bomfl .
        format color 7 off.
      else.
        format color 1 on.
        write:/2 alv_stb-STUFE,12 alv_stb-posnr,22 alv_stb-idnrk,
                42 alv_stb-OJTXP,72 alv_stb-mngko,
                107 alv_stb-MEINs,120 alv_stb-bomfl .
        format color 1 off.
      endif.
    endif.
    hide: alv_stb.
    clear : alv_stb.
    clear v_flag.
endloop.
ENDFORM.                    " get_level_level
*&      Form f4_for_variant
      text
FORM f4_for_variant.
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
         EXPORTING
              is_variant          = g_variant
              i_save              = g_save
              i_tabname_header    = g_tabname_header
              i_tabname_item      = g_tabname_item
          it_default_fieldcat =
         IMPORTING
              e_exit              = g_exit
              es_variant          = gx_variant
         EXCEPTIONS
              not_found = 2.
IF sy-subrc = 2.
    MESSAGE ID sy-msgid TYPE 'S'      NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ELSE.
    IF g_exit = space.
      p_vari = gx_variant-variant.
    ENDIF.
ENDIF.
ENDFORM.                    " f4_for_variant
      FORM E03_EVENTTAB_BUILD                                       *
--> E03_LT_EVENTS                                                 *
FORM e03_eventtab_build USING e03_lt_events TYPE slis_t_event.
DATA: ls_event TYPE slis_alv_event.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
       EXPORTING
            i_list_type = 0
       IMPORTING
            et_events   = e03_lt_events.
READ TABLE e03_lt_events WITH KEY name = slis_ev_top_of_page
                           INTO ls_event.
IF sy-subrc = 0.
    MOVE gc_formname_top_of_page TO ls_event-form.
    APPEND ls_event TO e03_lt_events.
ENDIF.
ENDFORM.
      FORM E04_COMMENT_BUILD                                        *
--> E04_LT_TOP_OF_PAGE                                            *
FORM e04_comment_build USING e04_lt_top_of_page TYPE slis_t_listheader.
DATA: ls_line TYPE slis_listheader.
Listenüberschrift: Typ H
CLEAR ls_line.
ls_line-typ = 'H'.
LS_LINE-KEY: not used for this type
ls_line-info = text-001.
APPEND ls_line TO e04_lt_top_of_page.
Kopfinfo: Typ S
CLEAR ls_line.
ls_line-typ = 'S'.
ls_line-key = text-050.
ls_line-info = text-010.
APPEND ls_line TO e04_lt_top_of_page.
ls_line-key = text-051.
APPEND ls_line TO e04_lt_top_of_page.
Aktionsinfo: Typ A
CLEAR ls_line.
ls_line-typ = 'A'.
LS_LINE-KEY: not used for this type
ls_line-info = text-002.
APPEND ls_line TO e04_lt_top_of_page.
ENDFORM.
      FORM E07_SP_GROUP_BUILD                                       *
--> E07_LT_SP_GROUP                                               *
FORM e07_sp_group_build USING e07_lt_sp_group TYPE slis_t_sp_group_alv.
DATA: ls_sp_group TYPE slis_sp_group_alv.
CLEAR ls_sp_group.
ls_sp_group-sp_group = 'A'.
ls_sp_group-text     = text-005.
APPEND ls_sp_group TO e07_lt_sp_group.
ENDF

How to find out where used list of Table or T-code

Dear ABAP gurus
I know many of you have done this several times.
wish to find out which Transaction code INSERTs the data into the table IHPA.
I did the where used list - SE11 ( for specific key work called INSERT ).
Used the Table called D010TAB which has some information.
Vise versa if I know a T-CODE , how to know which tables it read & Modify...
any better procedure than spending hours in research...
I found similar custom program to find USER EXITS ...here..., looking soething similar...
[http://wiki.sdn.sap.com/wiki/display/Snippets/FindUser-exits%2CBADIs%2CBTEs%2CEtcbyTCodeorProgram]
thank you for your help
Edited by: Raj Anvesh on Aug 3, 2011 9:58 PM

Hi Anvesh,
Maybe the data INSERTION is happening by BAPI,
So just try to look for the concerned BAPIS.
ECP_SRV_PARTNERS_IHPA
IREP1_IHPA_ADRNR_PRE_FETCH
IREP1_IHPA_ADRNR_READ
MAP2E_DIIHPA_TO_PARTNER
MAP2E_IHPAVB_BAPI2080_NOTPARTE
MAP2E_IHPAVB_TO_BAPI_IHPA
MAP2E_IHPA_BAPI2080_NOTPARTNRI
MAP2E_IHPA_M_BAPI2080_NOTPNRI
MAP2I_BAPI2080_NOTPARTNRI_IHPA
MAP2I_BAPI_IHPA_TO_IHPA
PM_DB_FILL_DIIHPA
PM_PARTNERCOPY_FILL_XIHPA
PM_PARTNER_DELETE_XIHPA
PM_PARTNER_GET_XIHPA
PM_PARTNER_PUT_XIHPA
PM_PARTNER_REFRESH_XIHPA
these are the bapis which are dealing with the IHPA table,
Segregate them as needed and then go to the std program
Revert for further clarification.
Thanks
Sri

Where used list of a function module

hello ,
i want to find out where used list of a function modules , but the problem when I try where used button with in a function module Im getting message saying 'Function Is Not An Include' when it is used in other programs. Function AKB_WHERE_USED_LIST does not exist.Function FUNC_GET_OBJECT does not show the names of the programs.Im Stuck..Plz advise.
Thanks in Advance

Hello,
This is working fine.
i am getting the name of the programs where the Fm is used.
In
OBJ_TYPE FUNC
OBJ_NAME FUNC_GET_OBJECT
Try this.........

Short dump with Where-used list

Hi All,
I'm making some research on specific InfoObjects, and in some cases I want to know where are they being used, but when I try to use the icon for "Where-used list using Data Warehouse" I end up with an error, a short dump.
Message class is: RSQBW
Trigger Location of Runtime Error:
Program: CL_RSQ_ISET_SERVICE===========CP
Include: CL_RSQ_ISET_SERVICE===========CM016
Row: 136
Module Type: (METHOD)
Module Name: EXTEND_FIELD_BUFFER
Does any one can help me to understand why is this going on and how to solve this?
Thank you!!
Miriam

Hi Miriam
In the short dump you should also see the name of the infoset in question.
You probably have to adjust the infoset in transaction RSISET and they try to run the where used list again.
Best Regards,
Vincent

Where used list for business objects in TM

Hi,
There is a where used list framework in TM7 for
Transportation Zone, Lane etc. Is it possible to include the same for TCM business objects like
FA, Tariff, TCCS, Rate Table, Scale etc. Is it possible to do the customization?
Thanks and regards,
Suresh.

Hi
The following may of useful to you.
https://wiki.sdn.sap.com/wiki/display/ESpackages/IntegrationofTransportationManagementSystemBusinessObjects
Regards
Shan

Where used list doesn't work for global data

Hi,
When i try to do where used list on a constant in an include, it doesn't give the results for classes.
The class contains the include in a method that uses the constant, and the where used list for that constant doesn't find the appearance of the constant in the class.
I tried to look for oss note that solves the problem but i couldn't find any.

I tried to update the navigation index but it still doesn't work. from my debuging i found out that it just doesn't look in classes, all classes. I mean even in the where used itself there is not an option for used in classes. I checked it and it's a generic problem of the where used list for global data.
Edited by: Cohen Lior on Apr 14, 2010 6:52 PM

Where used listing for Query Variables

Can someone tell me how to get this list from the metadata repository or from the transport connector?
I have read this thread "where used" list for BEx variables but this isn't working for us.
Is there some config that is required which we have missing?
We are running BI7 SP19 if this helps.
Thanks
Craig

Arun,
Yeah I figured as much, but this is why I am thinking we have something missing, config or otherwise.
Cause all I get when I do this is a new window with just the Variable details and nothing else, no where used list at all i.e.
Page Creation Date: 17.03.2009 15:12:03
Technical name: V_FSTMONTH
Object version: Active version
System: BWDCLNT200
Description (Short): 1st of Month to Toda
Description (Long): 1st of Month to Today
Last Changed On 17.03.2009 13:25:39
Last Changed by ARMSTEC
Is there something I need to get our Basis Team to do ?
Thanks
Craig

How to see an IDOC type & FM, "WHERE USED LIST"?

Hi Experts,
I nned to create an IDOC of WMTCID01 and message type is WMTOCO.
I wanna to see that, Where Where this IDOC was used(especially, in "Z" objects) so that, I can get some idea abt. it and do my coding.
So, let me know that, How to see this IDOC & FM, "WHERE USED LIST"
thanq

hi go to the tcode...
1) Create Segment ( WE31)
2) Create Idoc Type ( WE30)
3) Create Message Type ( WE81)
4) Assign Idoc Type to Message Type ( WE82)
Tcode- we19 is for testing idoc
in the we42 the message type and the idoc function module is ataached by the process code..
this is a best example to understand the creation of idocs(z)..
http://www.****************/Tutorials/ALE/CustomIDOC/Create.htm

Function Module where-used list does not find update rule programs

We have function modules called in update rules. The where-used list in the function builder does not find the update rule programs.
For example, function DATE_GET_WEEK is called in an update rule to InfoCube YCUBE001. The activated program name for this update rule is GP3PWI6PKM5Y3K75A370DIS8I77. When I goto SE37, enter the function DATE_GET_WEEK, click the where-used button, check the programs option and search. The system does not find the program GP3PWI6PKM5Y3K75A370DIS8I77.
Without this search capability it is difficult to do an impact analysis of changing function modules. Does anyone know of a solution?

hi,
i think the reason is the code of update rules' generated program are stored line by line in table(rsaabap), update rules program itself stored in table rsupdrout, link with field codeid, another useful table is rsupdinfo which store infocube, infosource related. other info may stored in some other rs* and rsa* tables.
try to create following program in your system, and run, type in the function module name, and will display out the update rules program id, with additional useful info : which infoprovider, infosource, and detail info of the routine and infoobject in the update rule that using that function module. you may modify the program to have better display out list.
hope this helps.
REPORT Z_FM_UPDRUL_WHEREUSED.
data : lv_sfm,
       lv_line type string,
       lv_where type string.
tables : rsaabap,RSUPDROUT,rsupdinfo.
select-options:
s_fm for rsaabap-LINE.
start-of-selection.
loop at s_fm.
    concatenate s_fm-low ' ' into lv_sfm.
    concatenate '%' s_fm-low into lv_line.
    concatenate lv_line '%' into lv_line.
    write : / 'function module', 'update rule id', 'routine id', 'infoobject', 'infocube', 'infosource'.
    select * from rsaabap
    where line like lv_line and objvers = 'A'.
       select * from rsupdrout
       where codeid = rsaabap-codeid and objvers = 'A'.
         select single * from rsupdinfo
         where updid = rsupdrout-updid and objvers = 'A'.
           write: / lv_sfm, rsupdrout-updid, rsaabap-codeid,
                    rsupdrout-iciobjnm, rsupdinfo-infocube,
                    rsupdinfo-isource.
    endselect.
    endselect.
endloop.

Component where used list

Similar Messages

Maybe you are looking for