After getting the bom ,find routing,workcenter,how to get component routing

Question

hi experts.
          the requirement is find the find the routing details of the given materials.
input is
material using select-options.
  plant
out put
1.operator
2.material
3.material description
4.workcenter
5.vendor
6.operation description
7.uom
8.qty
9.uom
10.setuptime
11.processingtime
12.deliverytime
example.
       materials t4595959----this materials bom is give below
       3939393----
procurement type is f
       3393939 -
procurement type is e
       3939393------- procurement type is x
    i explanied what i tried.
   tables : marc,mapl,plpo,crhd,eord,eina,eine.
    1. using cs_com_expl_mat_v2  to get the bom explosion
   2. after got the materials with bom
   <b>MARC </b>                                  <b>MAPL</b>                  MATNR                                             MATNR               
  WERKS                1                         WERKS
BESKZ        =======> E OR x          PLNTY
                                                         PLNNR
            2                                              3
<b>MAPL</b> =====>  <b> PLPO</b>      =====> CRHD
                         PLNTY                                  OBJID
                        PLNNR                                   ARBPL
                       VORNR
                        ARBID
                        LTXA1
                        VGE01
                        VGW01
                         VGW02
<b>                   1                         2                     3
MARC</b>      ==>     <b>EORD</b> =>   <b>EINA</b> =>     EINE
BESKZ == 'F'              MATNR             MATNR          INFNR
                                   LIFNR               LIFNR             APLFZ
                                  FLIFN = 'X'          INFNR
followed this method to explode the bom and got the operation.
but its only fetch the header materials operation ,not component operaion
h we get the opeations of the component
thanks in advance
Regards
ds

Answer 1

hI,
       Yes i checked the debugging mode ,its only fecthed the header materials
but not component materials,
i here give the query for ur review ,pl give me a solution
START-OF-SELECTION.
  CLEAR ISTPO. REFRESH ISTPO.
  LOOP AT ITAB.
  CALL FUNCTION 'CS_BOM_EXPL_MAT_V2'
      EXPORTING
        CAPID                 = 'PP01'
        MEHRS                 = 'X'
        MMAPS                 = ' '
        MDMPS                 =  ' '
     BREMS                  = 'X'
     DISMM                 = ' '
     LIFNR                 = ' '
     WEBAZ                 = ' '
        DATUV                 = SY-DATUM
        MTNRV                 = ITAB-MATNR
        WERKS                 = P_WERKS
        EMENG                 = '1'
        STKKZ                 = ' '
        FBSTP                 = ' '
        FTREL                 = ' '
      IMPORTING
        TOPMAT                = W_TOPMAT
       DSTST                 = DSTST
      TABLES
        STB                   = ISTPO
        MATCAT                = 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
        OTHERS                = 8.
  WRITE: / W_TOPMAT-MATNR UNDER TEXT-H00 COLOR COL_HEADING,
           W_TOPMAT-MAKTX UNDER TEXT-H01 COLOR COL_HEADING.
    SELECT MATNR WERKS OBJID BESKZ FROM MARC INTO CORRESPONDING FIELDS OF TABLE IT_ITAB_IDEL
  WHERE MATNR = ITAB-MATNR  AND BESKZ = 'X' OR BESKZ = 'E' OR BESKZ = 'F'.
SELECT MATNR WERKS PLNTY PLNNR LIFNR FROM MAPL INTO CORRESPONDING FIELDS OF TABLE IT_MAPL_IDEL
                                            WHERE  MATNR = ITAB-MATNR AND
                                                     WERKS = 'IN01' .
SELECT PLNTY PLNNR ZAEHL VORNR  ARBID OBJTY LTXA1 VGE01 VGW01 VGW02 PLIFZ FROM PLPO INTO CORRESPONDING FIELDS OF TABLE IT_PLPO_IDEL
                                        FOR ALL ENTRIES IN IT_MAPL_IDEL
                                         WHERE PLNTY = IT_MAPL_IDEL-PLNTY AND
                                              PLNNR = IT_MAPL_IDEL-PLNNR AND
                                               WERKS = 'IN01' AND ARBID <> 0.
    SELECT OBJTY OBJID ARBPL FROM CRHD INTO CORRESPONDING FIELDS OF TABLE IT_CRHD_IDEL
                                                          FOR ALL ENTRIES IN IT_PLPO_IDEL
                                                          WHERE OBJID = IT_PLPO_IDEL-ARBID.
LOOP AT ISTPO.
  IT_FINAL_IDEL-POSNR  = ISTPO-POSNR.
  IT_FINAL_IDEL-IDNRK  = ISTPO-IDNRK.
  IT_FINAL_IDEL-OJTXP  = ISTPO-OJTXP.
  IT_FINAL_IDEL-MENGE  = ISTPO-MENGE.
  IT_FINAL_IDEL-MEINS  = ISTPO-MEINS.
LOOP AT IT_PLPO_IDEL.
    IT_FINAL_IDEL-VORNR = IT_PLPO_IDEL-VORNR.
    IT_FINAL_IDEL-ARBID = IT_PLPO_IDEL-ARBID.
    IT_FINAL_IDEL-OBJTY = IT_PLPO_IDEL-OBJTY.
    IT_FINAL_IDEL-LTXA1 = IT_PLPO_IDEL-LTXA1.
    IT_FINAL_IDEL-VGE01 = IT_PLPO_IDEL-VGE01.
    IT_FINAL_IDEL-VGW01 = IT_PLPO_IDEL-VGW01.
    IT_FINAL_IDEL-VGW02 = IT_PLPO_IDEL-VGW02.
    READ TABLE IT_CRHD_IDEL WITH KEY OBJID = IT_PLPO_IDEL-ARBID.
    IT_FINAL_IDEL-ARBPL = IT_CRHD_IDEL-ARBPL.
    APPEND IT_FINAL_IDEL.
    CLEAR : IT_FINAL_IDEL,IT_PLPO_IDEL,IT_CRHD_IDEL,ISTPO.
  ENDLOOP.
   ENDLOOP.