zcs15 bom反查

zcs15 bom反查

绝对原创！牺牲了大量脑细胞，呵呵

cs15只能得到用到某个物料的上层物料

本程序利用递归算法 得到某物料的最顶层物料集合

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

report  z_bom_rev                line-size 200       .

types : begin of ty_mat,
matnr_s type matnr,
maktx_s type maktx,
matnr type matnr,
andat type andat,
maktx type maktx,
vwalt type stalt,
end of ty_mat.
types:begin of ty_matnr,
matnr type matnr,
end of ty_matnr.
data ms type table of ty_matnr with header line.
data it_mat type table of ty_mat with header line.
data: itab type table of  stpov with header line ,
      equi type table of cscequi,
      knd  type table of cscknd,
      mat type table of cscmat,
      std type table of cscstd,
      tpl  type table of csctpl.

parameters:
* p_