Función para leer características de un objeto

    IV_OBJEK-MATNR = MARD-MATNR.
    IV_OBJEK-CHARG = MCHB-CHARG.
    SELECT SINGLE * FROM INOB WHERE  OBJEK = IV_OBJEK.
      MOVE INOB-CUOBJ TO IV_OBJECAUSP.


    CALL FUNCTION 'CLFM_SELECT_AUSP'
      EXPORTING
        mafid                    = 'O'
        classtype                = '023'
        OBJECT                   = IV_OBJECAUSP
*       FEATURE                  =
*       CLEAR_BUFFER             = ' '
*       KEY_DATE                 =
*       WITH_CHANGE_NUMBER       = ' '
*       TABLE                    =
*       I_ATZHL_SAME_INI         = ' '
*       I_AENNR                  = ' '
     TABLES
       EXP_AUSP                 = IT_AUSP
     EXCEPTIONS
       NO_VALUES                = 1
       OTHERS                   = 2
              .
    IF sy-subrc <> 0.
* Implement suitable error handling here
    ENDIF.
    LOOP AT IT_AUSP.
      WRITE: / IT_AUSP-ATINN, IT_AUSP-ATWRT.
    ENDLOOP.