abap 递归 问题实例

很开心做了这个程序，递归bom反向展开的

需要取物料的顶层物料

思路是：反向展开失败就得到叶子节点，即顶层物料

 

*&---------------------------------------------------------------------*
*& Report  Z_BOM_REV                                                   *
*&                                                                     *
*&---------------------------------------------------------------------*
*&                                                                     *
*&                                                                     *
*&---------------------------------------------------------------------*

report  z_bom_rev                       .

types : begin of ty_mat,
matnr type matnr,
andat type andat,
maktx type maktx,
vwalt type stalt,
end of ty_mat.

data it_mat type table of ty_mat with header line.
data: itab type table of  stpov with header line ,