反查bom

    data:l_date like sy-datum.
  l_date = '99991230'.
  CLEAR:ltb,ltb[],kndcat,kndcat[].
  CALL FUNCTION 'CS_WHERE_USED_MAT'
    EXPORTING
      datub                      = l_date "valid date to
      datuv                      = sy-datum "valid date from
      matnr                      = p_matnr
*      postp                      = ' '
*      retcode_only               = ' '
      stlan                      = '1'
      werks                      = p_werks
*      stltp                      = 'M'
    IMPORTING
      topmat                     = topmat
    TABLES
      wultb                      = ltb  "material bom
      equicat                    = equicat 
      kndcat                     = kndcat "order bom
      matcat                     = matcat
      stdcat                     = stdcat
      tplcat                     = tplcat
      prjcat                     = prjcat
    EXCEPTIONS
      call_invalid               = 1
      material_not_found         = 2
      no_where_used_rec_found    = 3
      no_where_used_rec_selected = 4
      no_where_used_rec_valid    = 5
      OTHERS                     = 6.