Finding bom component item stufe = 1 without subitems

Question

Hi friends,
We have developed a bom explosion report,
Here we got the output as folows.
level component number component desc uom
materials A is have the following sfg.
1 stufe = 1
..2
1
..2
...3
here we are getting the subitem levels correctly.
1.
but at the last level if the sub item is not present, it is not fetching the stufe = 1 without subitems.
1.
1.
please suggest us with sutiable solution to get the last Sutfe without sub items.
Below we have pasted the Code used to retreviev the data for reference.
TABLES : MAST.
DATA: BEGIN OF ISTPO OCCURS 1000.
        INCLUDE STRUCTURE STPOX.
      DATA: END OF ISTPO.
DATA: W_TOPMAT LIKE CSTMAT.
SELECT-OPTIONS : P_MATNR FOR MAST-MATNR.
PARAMETERS     : P_WERKS TYPE MAST-WERKS.
DATA : BEGIN OF ITAB OCCURS 0,
           MATNR LIKE MAST-MATNR,
           WERKS LIKE MAST-WERKS,
           END OF ITAB.
DATA: IT_STB LIKE ISTPO OCCURS 0 WITH HEADER LINE.
data : istpofinal like istpo occurs 0 with header line.
data : istpotemp like istpo occurs 0 with header line.
START-OF-SELECTION.
CLEAR ISTPO. REFRESH ISTPO.
SELECT MATNR WERKS FROM MAST INTO CORRESPONDING FIELDS OF TABLE ITAB
WHERE MATNR  IN
P_MATNR AND WERKS = P_WERKS.
LOOP AT ITAB.
  CALL FUNCTION 'CS_BOM_EXPL_MAT_V2'
    EXPORTING
      CAPID                 = 'PP01'
      MEHRS                 = '1'
      MMAPS                 = 'X'
     MDMPS                 =  '1'
     BREMS                  = 'X'
      DATUV                 = SY-DATUM
      MTNRV                 = ITAB-MATNR
      WERKS                 = P_WERKS
      EMENG                 = '1'
      STKKZ                 = ' '
      FBSTP                 = ' '
      FTREL                 = ' '
    IMPORTING
      TOPMAT                = W_TOPMAT
    TABLES
      STB                   = ISTPO
    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.
  IF SY-SUBRC = 0.
WRITE:/ 'MaterialNumber' ,21 'Description'.
SKIP 1.
WRITE: / W_TOPMAT-MATNR UNDER TEXT-H00 COLOR COL_HEADING,
         W_TOPMAT-MAKTX UNDER TEXT-H01 COLOR COL_HEADING.
data : ttabix like sy-tabix,
        tstufe like stpox-stufe.
  data : len type i.
istpotemp[] = istpo[].
LOOP AT ISTPO .
      ttabix = sy-tabix - 1.
      if tstufe ge istpo-stufe.
     read table istpotemp index ttabix.
move-corresponding istpotemp to istpofinal.
append istpofinal.
  endif.
tstufe = istpo-stufe.
   WRITE :/ ISTPO-STPOZ,
           ISTPO-STLKN,
           ISTPO-POSNR,
           ISTPO-IDNRK,
           ISTPO-OJTXP,
           ISTPO-MENGE,
           ISTPO-MEINS.
  ENDLOOP.
   ENDIF.
  SKIP 5.
ENDLOOP.
skip 3.
loop at istpofinal.
     WRITE :/ ISTPOFINAL-STPOZ,
            ISTPOFINAL-STLKN,
            ISTPOFINAL-POSNR,
            ISTPOFINAL-IDNRK,
            ISTPOFINAL-OJTXP,
            ISTPOFINAL-MENGE,
            ISTPOFINAL-MEINS.
endloop.
Suggestions and Help will be appreciated very much.
Regards.
DS.

Answer 1

Dear Shiba,
In the<b> ISTPO</b> we are getting all the values like
1
...2
.....3
1
....2
1
<b>1</b>
But in the <b>ISTPOFINAL</b> we are getting only
1
.....3-------want this -
we got
1
....2-----want this--
we got
1.-------want this -
upto this. we got
we are not getting the last Level 1 wihich has no subitems in it, which is mentiond below in this example. like if the level has one or more level 1 without subitems we are not getting the values in it.
<b>1........if this level is present without subitem we need to get this also</b>
we have attached the sample code below for ur refernce.
data : ttabix like sy-tabix,
        tstufe like stpox-stufe.
  data : len type i.
istpotemp[] = istpo[].
describe table istpotemp lines len.
LOOP AT ISTPO .
  if sy-tabix = len.
  read table istpotemp index sy-tabix.
  move-corresponding istpotemp to istpofinal.
  append istpofinal.
endif.
      ttabix = sy-tabix - 1 .
      if tstufe ge istpo-stufe.
     read table istpotemp index ttabix.
move-corresponding istpotemp to istpofinal.
append istpofinal.
  endif.
tstufe = istpo-stufe.
  WRITE :/ ISTPO-STPOZ,
           ISTPO-STLKN,
           ISTPO-POSNR,
           ISTPO-IDNRK,
           ISTPO-OJTXP,
           ISTPO-MENGE,
           ISTPO-MEINS.
ENDLOOP.
ENDIF.
SKIP 5.
skip 3.
loop at istpofinal.
     WRITE :/ ISTPOFINAL-STPOZ,
            ISTPOFINAL-STLKN,
            ISTPOFINAL-POSNR,
            ISTPOFINAL-IDNRK,
            ISTPOFINAL-OJTXP,
            ISTPOFINAL-MENGE,
            ISTPOFINAL-MEINS.
endloop.
ENDLOOP.