获取物料特性_zerotest07

*&---------------------------------------------------------------------*
*& Report  ZEROTEST07
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  zerotest07.
*TYPES:  BEGIN OF ty_s_zcabn.
*        INCLUDE STRUCTURE zcabn.
*TYPES:  END OF ty_s_zcabn.
DATA: zmatnr LIKE mara-matnr.
DATA: itab_tx LIKE clobjdat OCCURS 0 WITH HEADER LINE.
*DATA: itab_tx TYPE TABLE OF ty_s_zcabn WITH HEADER LINE.
DATA: z_text(150) TYPE c.
DATA: z_text2(255) TYPE c.
DATA: t_line TYPE i.
DATA: ymatnr(50) TYPE c.
zmatnr = '1201WK003'.
MOVE zmatnr TO ymatnr.
*FREE infoname01.
CALL FUNCTION 'ZMM_ATWRT_LIST_06_02'
  EXPORTING
    im_matnr = ymatnr
  IMPORTING
    z_text   = z_text
    z_text2  = z_text2
  TABLES
    itable   = itab_tx.
IF sy-subrc = 0.
  t_line = LINES( itab_tx ).
  WRITE: z_text.
  WRITE: z_text2.
  WRITE: t_line.
ENDIF.