SELECT mast~matnr mast~werks stpo~idnrk stpo~lgort stpo~lkenz
mara~bismt mara~normt makt~maktx stpo~menge stpo~ausch
  INTO TABLE all_cech1 FROM mast
    INNER JOIN stpo ON
      mast~stlnr EQ stpo~stlnr
    INNER JOIN mara ON
      stpo~idnrk EQ mara~matnr
    INNER JOIN makt ON
      stpo~idnrk EQ makt~matnr
        where mast~matnr in material
  GROUP BY mast~matnr mast~werks stpo~idnrk stpo~lgort stpo~lkenz
stpo~menge stpo~ausch mara~bismt mara~normt makt~maktx.

loop at all_cech1 into s_table_c1.
  if ( s_table_c1-komp NE ''
    and ( s_table_c1-komp LT 300000000000000000
    or s_table_c1-komp GE 400000000000000000 ) ).
*######################################################################*
SELECT mast~matnr mast~werks stpo~idnrk stpo~lgort stpo~lkenz
mara~bismt mara~normt makt~maktx stpo~menge stpo~ausch
  INTO TABLE all_cech2 FROM mast
    INNER JOIN stpo ON
      mast~stlnr EQ stpo~stlnr
    INNER JOIN mara ON
      stpo~idnrk EQ mara~matnr
    INNER JOIN makt ON
      stpo~idnrk EQ makt~matnr
        where mast~matnr EQ s_table_c1-komp
        and stpo~lkenz EQ ''
  GROUP BY mast~matnr mast~werks stpo~idnrk stpo~lgort stpo~lkenz
stpo~menge stpo~ausch mara~bismt mara~normt makt~maktx.

loop at all_cech2 into s_table_c2.
  if ( s_table_c2-komp NE ''
    and ( s_table_c2-komp LT 300000000000000000
    or s_table_c2-komp GE 400000000000000000 ) ).
*######################################################################*
SELECT mast~matnr mast~werks stpo~idnrk stpo~lgort stpo~lkenz
mara~bismt mara~normt makt~maktx stpo~menge stpo~ausch
  INTO TABLE all_cech3 FROM mast
    INNER JOIN stpo ON
      mast~stlnr EQ stpo~stlnr
    INNER JOIN mara ON
      stpo~idnrk EQ mara~matnr
    INNER JOIN makt ON
      stpo~idnrk EQ makt~matnr
        where mast~matnr EQ s_table_c2-komp
        and stpo~lkenz EQ ''
  GROUP BY mast~matnr mast~werks stpo~idnrk stpo~lgort stpo~lkenz
stpo~menge stpo~ausch mara~bismt mara~normt makt~maktx.

loop at all_cech3 into s_table_c3.
  if ( s_table_c3-komp NE ''
    and ( s_table_c3-komp LT 300000000000000000
    or s_table_c3-komp GE 400000000000000000 ) ).
      .
  else.
      temp = s_table_c3.
      insert temp into temp_all index 1.
  endif.
endloop.

*######################################################################*
  else.
      temp = s_table_c2.
      insert temp into temp_all index 1.
  endif.
endloop.

*######################################################################*
  else.
      temp = s_table_c1.
      insert temp into temp_all index 1.
  endif.
endloop.

insert temp into temp_all index 1.

*&---------------------------------------------------------------------*
*& 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.

  ENDIF.

  LOOP AT t_mast.

    CLEAR : v_maktx.

* Get the material Description

    SELECT SINGLE maktx FROM makt INTO v_maktx
    WHERE matnr = t_mast-matnr
    AND spras = sy-langu.

* 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.

* Use the Function Module and get the format level by level

    PERFORM get_level_level.

    CLEAR : t_mast.
  ENDLOOP.

ENDFORM. " get_data_component

*&---------------------------------------------------------------------*
*& 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.

ENDFORM. " get_level_level

INTO TABLE all_cech1 FROM mast
    INNER JOIN stpo ON
   mast~stlnr EQ stpo~stlnr