DATA:
    l_ionra TYPE ionra.

  CLEAR: p_kostl, p_auart.

  CALL FUNCTION 'OBJECT_KEY_GET'
       EXPORTING
            i_objnr           = p_objnr
       IMPORTING
            e_ionra           = l_ionra
       EXCEPTIONS
            wrong_call        = 1
            objectkey_invalid = 2
            OTHERS            = 3.

LOOP AT ZAP.
   CLEAR: V_OBJNR.
    IF NOT ZAP-KOSTL IS INITIAL.
      SELECT SINGLE OBJNR INTO V_OBJNR
                FROM CSKS
                WHERE KOSTL = ZAP-KOSTL.
    ENDIF.
    IF NOT ZAP-AUFNR IS INITIAL.
      SELECT SINGLE OBJNR INTO V_OBJNR
                FROM AUFK
                WHERE AUFNR = ZAP-AUFNR.
    ENDIF.
    IF NOT ZAP-PSPEL IS INITIAL.
      SELECT SINGLE OBJNR INTO V_OBJNR
                FROM PRPS
                WHERE PSPNR = ZAP-PSPEL.
    ENDIF.



    IF NOT V_OBJNR IS INITIAL AND
            V_OBJNR <> 'OUR'.

      CLEAR: I_TEXT, I_IDENT_ALL, I_IDENT.

      CALL FUNCTION 'OBJECT_IDENTIFICATION_GET'
        EXPORTING
          OBJNR          = V_OBJNR
          NO_BUKRS       = 'X'
          NO_ERKRS       = 'X'
          NO_KOKRS       = 'X'
          LANGU          = SY-LANGU
          DATUM          = SY-DATLO
        IMPORTING
          E_TEXT         = I_TEXT        "название объекта
          IDENT_OBJID    = I_IDENT       "номер объекта без нулей
          IDENTIFICATION = I_IDENT_ALL  "идентификатор объекта
          E_IONRA        = LS_IONRA.     "рабочие данные объекта
      ZAP-I_IDENT_ALL = I_IDENT_ALL.
      ZAP-I_TEXT = I_TEXT.
    ENDIF.
...
...
ENDLOOP.