* Alle Kalkulationspositionen ermitteln in denen Bauteil vorkommt.
  SELECT DISTINCT LEDNR BZOBJ KALNR KALKA KADKY TVERS BWVAR KKZMA
         FROM CKIS INTO CORRESPONDING FIELDS OF TABLE T_KHSK1
                                       WHERE LEDNR EQ '00'
                                       AND   BZOBJ IN SBPFC_BZOBJ_RANGE
                                       AND   KADKY EQ 00000000
                                       AND   TVERS EQ '01'
                                       AND   BWVAR EQ SPACE
                                       AND   KKZMA EQ SPACE
                                       AND   EXTNR EQ SBPFC_EXTNR.
* Falls Bauteil nirgendwo vorkommt --> Beenden
  IF NOT SY-SUBRC IS INITIAL.
    MESSAGE I751 WITH SBPFC_KOKRS SBPFC_EXTNR RAISING NOTHING_FOUND.
    EXIT.
  ENDIF.