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.