-

How to Create Dynamic Node with attribute

*----------------------------------------------------------------
*  add node to context
*---------------------------------------------------------------- 
  data:
   LO_PARENT_NODE_INFO  type ref to IF_WD_CONTEXT_NODE_INFO,
   LO_CHILD_NODE_INFO   type ref to IF_WD_CONTEXT_NODE_INFO,
   LV_STRUCT_NAME       type STRING,
   LT_CHILD_NODE_MAP    type WDR_CONTEXT_CHILD_INFO_MAP.
*  get context node info 
  LO_PARENT_NODE_INFO = WD_CONTEXT->GET_NODE_INFO( ).
* get all child node of context
  LT_CHILD_NODE_MAP = LO_PARENT_NODE_INFO->GET_CHILD_NODES( ).
* check node name exist or not which we want to create 
* if node name exist then first remove then create 
  read table LT_CHILD_NODE_MAP transporting no fields 
                  with table key NAME = `TEST_DYNAMIC`.
  if SY-SUBRC = 0.
    " REMOVE_CHILD_NODE
    LO_PARENT_NODE_INFO->REMOVE_CHILD_NODE( `TEST_DYNAMIC` ).
  endif.
*  add child node with property you want
  call method LO_PARENT_NODE_INFO->ADD_NEW_CHILD_NODE
    exporting
*     supply_method                =
*     supply_object                =
*     dispose_method               =
*     dispose_object               =
      STATIC_ELEMENT_TYPE          = LV_STRUCT_NAME
      NAME                         = `TEST_DYNAMIC`
*     is_mandatory                 = ABAP_FALSE
*     is_mandatory_selection       = ABAP_FALSE
      IS_MULTIPLE                  = ABAP_TRUE
*     is_multiple_selection        = ABAP_TRUE
*     is_singleton                 = ABAP_FALSE
*     is_initialize_lead_selection = ABAP_TRUE
*     static_element_rtti          = lv_struct_name
      IS_STATIC                    = ABAP_FALSE
*     attributes                   =
    receiving
      CHILD_NODE_INFO              = LO_CHILD_NODE_INFO.
*-----------------------------------------------------------
*  add attribute to the node
*-----------------------------------------------------------
  data LT_ATT         type     STRING_TABLE.
  data LR_ATTRIBUTE   type     WDR_CONTEXT_ATTRIBUTE_INFO.
*  get all attribute of the node 
  LT_ATT = LO_CHILD_NODE_INFO->GET_ATTRIBUTE_NAMES( ).
  LR_ATTRIBUTE-NAME = 'TEST_ATTRIBUTE'.
  LR_ATTRIBUTE-TYPE_NAME ='CHAR40'.
* check attribut name is exist or not 
*  if attribute name exist then first remove attribute 
*  then add to node
  read table LT_ATT transporting no fields 
        with key TABLE_LINE = 'TEST_ATTRIBUTE'.
  if SY-SUBRC ne 0.
    call method LO_CHILD_NODE_INFO->ADD_ATTRIBUTE
      exporting
        ATTRIBUTE_INFO = LR_ATTRIBUTE.
    clear LR_ATTRIBUTE.
  endif.

Comments

Post a Comment

Popular posts from this blog

Alternative to READ_TEXT Function Module (to fetch multiple long text at one go )

-
Multi READ_TEXT Code in SAP    *&---------------------------------------------------------------------* *& Report  ZMULTI_READ_TEXT *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT  ZMULTI_READ_TEXT. *---------------------------------------------------------------------* * data declaration *---------------------------------------------------------------------* TABLES  vbap . DATA  curs  TYPE  cursor . TYPES :  BEGIN  OF  ty_stxl ,           tdname  TYPE  stxl - tdname ,           tdid    TYPE  stxl - tdid ,           clustr  TYPE  stxl - clustr ,       ...
Read more
-
How to implement the created badi in your program 1: create Badi with any name as I have created badi with name 'ZBADI_TEST' if you are new to create badi please refer previous post. 2: create reference of the badi as I am doing.   2: then call the method of your badi in try catch. DATA lr_badi TYPE REF TO ZBADI_TEST.   TRY.       GET BADI lr_badi.       IF lr_badi IS BOUND.         CALL BADI lr_badi->PROCESS_FIELDS           Exporting             IV_DUMMY                 = LV_DUMMY               Changing             CS_HEADER       = CS_HEADER         Endif.     CATCH cx_badi_not_implemented.       "Throw error   ENDTRY.
Read more