Created by Jerry Wang on Sep 17, 2014
CRM系统有如下hierarchy的IBASE:
使用下列report 打印所有的component:
*&---------------------------------------------------------------------*
*& Report ZIBASE_READ_STRUCTURE
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT zibase_read_structure.
PARAMETERS: id TYPE ibib-ibase OBLIGATORY DEFAULT '112455'.
DATA: ls_header TYPE ibap_head1,
lt_struc_tab TYPE ibap_struc1_tab,
ls_line LIKE LINE OF lt_struc_tab,
ls_comp TYPE ibap_dat1,
ls_comp_detail TYPE ibap_comp2.
ls_header-ibase = id.
CALL FUNCTION 'CRM_IBASE_GET_DETAIL'
EXPORTING
i_ibase_head = ls_header
IMPORTING
e_struc_ibase_tab = lt_struc_tab
EXCEPTIONS
not_specified = 1
doesnt_exist = 2
no_authority = 3.
CHECK sy-subrc = 0.
LOOP AT lt_struc_tab INTO ls_line.
WRITE: / 'Component ID: ' , ls_line-instance COLOR COL_NEGATIVE.
ls_comp-ibase = id.
ls_comp-instance = ls_line-instance.
CALL FUNCTION 'CRM_IBASE_COMP_GET_DETAIL'
EXPORTING
i_comp = ls_comp
IMPORTING
e_comp_det = ls_comp_detail
EXCEPTIONS
not_specified = 1
doesnt_exist = 2
no_authority = 3.
WRITE: / 'Component Description:' , ls_comp_detail-descr COLOR COL_POSITIVE,
'Object ID: ', ls_comp_detail-object_id COLOR COL_GROUP.
WRITE: / 'Component guid: ' , ls_comp_detail-guid_comp COLOR COL_KEY,
'component guidc: ' , ls_comp_detail-guid_compc COLOR COL_HEADING.
ENDLOOP.