基于每个组件检查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 .