基于每个组件检查BOM递归

PARAMETERS :  p_matnr  type  matnr MODIF  ID  Z1 ,
            p_idnrk  type  idnrk MODIF  ID  Z2 .
*---- Struktur zum Beschaffen der Dispostufe aus Materialstamm
data :  begin  of  tma29v  occurs  0 .
          include  structure  ma29v .

data: end of tma29v.

*---- Dispostufenvergabe
data :  begin  of  tmc29u  occurs  0 .
          include  structure  mc29u .

data: end of tmc29u.

*---- Struktur zum Beschaffen der Dispostufe von Materialien ( INPUT )
data :  begin  of  tpre03  occurs  0 .
          include  structure  pre03 .
data :  end  of  tpre03 .

    clear  :  tma29v ,
           tmc29u ,
           tpre03 .

    refresh  :  tma29v ,
             tmc29u ,
             tpre03 .

tpre03 - MATNR  =  p_matnr .
append  tpre03 .

  call  function  'MATERIAL_READ_DISST'
         tables  ima29v  =  tma29v
               ipre03  =  tpre03 .

    loop  at  tma29v .
       move-corresponding  tma29v  to  tmc29u .
       append  tmc29u .
    endloop .

    call  function  'CS_RC_RECURSIVITY_CHECK'
         exporting   eidnrk             =  p_idnrk
                   emode              =  '1'
         tables      headertab          =  tmc29u
         exceptions  recursivity_found  =  1 .

    if  sy - subrc <>  0 .
       message  i000 ( 26 )  with  'BOM递归错误！' .
    endif .