Created by Jerry Wang, last modified on Sep 03, 2014
輸入application id:
輸出是application包含object的name和類型:
REPORT zdisplay_app.
PARAMETERS: id TYPE if_fdt_types=>id OBLIGATORY DEFAULT
'FA163E8EAB031EE48B847A9EF751D5F0'.
START-OF-SELECTION.TYPES: BEGIN OF ty_code,code TYPE if_fdt_types=>object_type,text TYPE string,END OF ty_code.DATA: lo_instance TYPE REF TO if_fdt_admin_data,lo_app TYPE REF TO cl_fdt_application,lt_all TYPE if_fdt_types=>ts_object_id,lv_unknown TYPE boolean,lt_map TYPE STANDARD TABLE OF ty_code WITH KEY code.CALL METHOD cl_fdt_factory=>get_instance_genericEXPORTINGiv_id = idIMPORTINGeo_instance = lo_instanceev_id_unknown = lv_unknown.lo_app ?= lo_instance.lo_app->if_fdt_application_objects~get_all( IMPORTING ets_object_id = lt_all ).LOOP AT lt_all ASSIGNING FIELD-SYMBOL(<id>).PERFORM display USING <id>.ENDLOOP.
FORM display USING id TYPE if_fdt_types=>id.CALL METHOD cl_fdt_factory=>get_instance_genericEXPORTINGiv_id = idIMPORTINGeo_instance = lo_instanceev_id_unknown = lv_unknown.IF lv_unknown = abap_true.WRITE: / 'ID Unknown.' COLOR COL_NEGATIVE.EXIT.ENDIF.DATA(lo_object) = cl_abap_classdescr=>describe_by_object_ref( lo_instance ).DATA(lv_type) = lo_object->get_relative_name( ).WRITE: / lv_type COLOR COL_NEGATIVE.PERFORM display_by_type USING lo_instance lv_type.
ENDFORM.
FORM display_by_type USING io_obj TYPE REF TO if_fdt_admin_dataiv_type TYPE string.DATA: lv_type_full TYPE string,lv_text TYPE string,lt_dt_all TYPE if_fdt_types=>ts_object_id,lt_fo_all LIKE lt_dt_all.CASE iv_type.WHEN 'CL_FDT_ELEMENT'.DATA(lo_element) = CAST cl_fdt_element( io_obj ).lv_text = lo_element->if_fdt_admin_data~get_name( ).DATA(lv_type) = lo_element->if_fdt_admin_data~get_object_type( ).PERFORM get_type USING lv_type CHANGING lv_type_full.WRITE: / 'element text: ', lv_text, ' type: ', lv_type_full COLOR COL_POSITIVE.WHEN 'CL_FDT_DECISION_TABLE'.DATA(lo_dt) = CAST cl_fdt_decision_table( io_obj ).lv_text = lo_dt->if_fdt_admin_data~get_name( ).WRITE: / 'Decision table name: ', lv_text COLOR COL_GROUP.CLEAR: lt_dt_all.lo_dt->if_fdt_admin_data~get_referenced_objects( IMPORTING ets_object_id = lt_dt_all ).WRITE: / 'Below elements are within decision table' COLOR COL_POSITIVE.LOOP AT lt_dt_all ASSIGNING FIELD-SYMBOL(<dt_id>).PERFORM display USING <dt_id>.ENDLOOP.WRITE: / 'Decision table element display finished' COLOR COL_POSITIVE.WHEN 'CL_FDT_FORMULA'.DATA(lo_fo) = CAST cl_fdt_formula( io_obj ).lv_text = lo_fo->if_fdt_admin_data~get_name( ).WRITE: / 'Formula name: ' , lv_text COLOR COL_KEY.lo_fo->if_fdt_admin_data~get_referenced_objects( IMPORTING ets_object_id = lt_fo_all ).LOOP AT lt_fo_all ASSIGNING FIELD-SYMBOL(<fo_id>).WRITE: / 'Below elements are within formula' COLOR COL_POSITIVE.PERFORM display USING <fo_id>.WRITE: / 'formula element display finished' COLOR COL_POSITIVE.ENDLOOP.ENDCASE.
ENDFORM.
FORM get_type USING iv_code TYPE if_fdt_types=>object_type CHANGING cv_type TYPE string.DATA: ls_posttype TYPE ty_code,lv_code TYPE dd07l-domvalue_l,lv_result TYPE dd07v.READ TABLE lt_map WITH KEY code = iv_code INTO ls_posttype.IF sy-subrc = 0.cv_type = ls_posttype-text.ELSE.CLEAR ls_posttype.lv_code = iv_code.CALL FUNCTION 'DD_DOMVALUE_TEXT_GET'EXPORTINGdomname = 'FDT_OBJECT_TYPE'value = lv_codeIMPORTINGdd07v_wa = lv_result.ls_posttype-code = iv_code.ls_posttype-text = lv_result-ddtext.APPEND ls_posttype TO lt_map.cv_type = lv_result-ddtext.ENDIF.
ENDFORM.
