FUNCTION zctlg_get_zr00 .
*"----------------------------------------------------------------------
*"  IMPORTING
*"     REFERENCE(MATNR) TYPE  MATNR
*"     REFERENCE(VKORG) TYPE  VKORG OPTIONAL
*"     REFERENCE(KUNNR) TYPE  KUNNR OPTIONAL
*"     REFERENCE(PLTYP) TYPE  PLTYP OPTIONAL
*"  EXPORTING
*"     REFERENCE(CONDITION) TYPE  KONP
*"  EXCEPTIONS
*"      NOT_FOUND
*"----------------------------------------------------------------------
  DATA: lt_kondtab   TYPE TABLE OF a000,
        wa_kondtab   TYPE a000.

  DATA: komk LIKE komk,
        komp LIKE komp,
        z_entries LIKE sy-tabix,
        wa_t685 TYPE t685,
        lt_t682i TYPE TABLE OF t682i,
        wa_t682i TYPE t682i.
  DATA: wa_koprt TYPE  koprt.
  CONSTANTS: c_kvewe TYPE kvewe VALUE 'A',
             c_kappl TYPE kappl VALUE 'V',
             c_kschl TYPE kschl VALUE 'ZR00'.
  CLEAR condition.
  komp-matnr = matnr.
  komk-vkorg = vkorg.
*  komk-vtweg = vtweg.
  komk-pltyp = pltyp.
  komk-kunnr = kunnr.
  komp-pmatn = komp-matnr.
  SELECT SINGLE * FROM t685 INTO wa_t685
                  WHERE kvewe = c_kvewe
                    AND kappl = c_kappl
                    AND kschl = c_kschl.
  SELECT * FROM t682i  INTO TABLE lt_t682i
                  WHERE kvewe = c_kvewe
                    AND kappl = c_kappl
                    AND kozgf = wa_t685-kozgf.
  SORT lt_t682i BY kolnr.
  LOOP AT lt_t682i INTO wa_t682i.
    CALL FUNCTION 'SD_COND_ACCESS'
      EXPORTING
        application          = c_kappl
        condition_type       = c_kschl
        date                 = sy-datum
        header_comm_area     = komk
        position_comm_area   = komp
        prestep              = ' '
        protocol_access      = ' '
        read_only_one_record = 'X'
        t682i_i              = wa_t682i
        koprt_i              = wa_koprt
        no_mem_import        = 'X'
      TABLES
        condition_records    = lt_kondtab
      EXCEPTIONS
        field_is_initial     = 8
        not_read_unqualified = 2
        read_but_not_found   = 4.
    CHECK: sy-subrc = 0.
    DESCRIBE TABLE lt_kondtab LINES z_entries.
    IF sy-tabix > 0.
      EXIT.
    ENDIF.
  ENDLOOP.
  IF sy-subrc = 0 AND z_entries > 0.
    READ TABLE lt_kondtab INTO wa_kondtab INDEX 1.
    SELECT SINGLE * INTO  condition
                    FROM  konp
                    WHERE knumh = wa_kondtab-knumh
                      AND kopos = '01'.
  ELSE.
    RAISE not_found.
  ENDIF.
ENDFUNCTION.