排除不合的"狀態選擇設定檔"

  IF NOT selid IS INITIAL.
    LOOP AT objnr_tab.
      DATA flg_status_ok TYPE c.       "Statusprüfung OK
      CALL FUNCTION 'STATUS_CHECK_BY_SELSCHEM'
        EXPORTING
          objnr          = objnr_tab-objnr
          selid          = selid
        IMPORTING
          fullfill       = flg_status_ok
        EXCEPTIONS
          no_stat_scheme = 01
          no_stat_tab    = 02.
      IF  sy-subrc      IS INITIAL
      AND flg_status_ok IS INITIAL.
        DELETE objnr_tab.
      ENDIF.
    ENDLOOP.
  ENDIF.