WBS element from WBS group

Question

Hi
  I want to know if there is any FM or table which gives me all the WBS elements under WBS group?
Thanks

Answer 1

1) call the function module CALL FUNCTION 'G_SET_GET_ID_FROM_NAME' with the WBS group as input and the output will be setid.
2) call the funtion module G_SET_FETCH' with the input as setid and the output will be two different internal tables values ans nodes.
3) Loop at the values internal table that will have the WBS element range values, that means the range as from WBS element value to WBS element.
4) Loop at the nodes internal table and for every loop value call the function module G_SET_FETCH again.So the output will be nodes and values are internal table, where the again you will be collecting the WBS element value,
Below is the code.
Types declaration
  TYPES: BEGIN OF ltype_wbs,
          value_fr   TYPE rgsbv-from,     " To hold WBS values
          value_to   TYPE rgsbv-to,       " To hold WBS values
         END OF ltype_wbs.
Internal table declaration
  DATA : lt_values    TYPE STANDARD TABLE OF rgsbv,
         lt_nodes     TYPE STANDARD TABLE OF rgsb1,
         lt_nodes1    TYPE STANDARD TABLE OF rgsb1,
         lt_wbs     TYPE STANDARD TABLE OF ltype_prctr,
         lw_wbs     TYPE ltype_prctr,
Work area declaration
         lw_values    TYPE rgsbv,
         lw_nodes     TYPE rgsb1,
Local variable to store the set ID.
         lv_id        TYPE sethier-setid.
Ranges                                                              *
RANGES:      r_wbs               TYPE RANGE OF rgsbv-from,
      r_wbs_wa            LIKE LINE OF r_wbs.
get the set ID from the name.
  CALL FUNCTION 'G_SET_GET_ID_FROM_NAME'
    EXPORTING
      shortname                = p_pcgrp
    IMPORTING
      new_setid                = lv_id
    EXCEPTIONS
      no_set_found             = 1
      no_set_picked_from_popup = 2
      wrong_class              = 3
      wrong_subclass           = 4
      table_field_not_found    = 5
      fields_dont_match        = 6
      set_is_empty             = 7
      formula_in_set           = 8
      set_is_dynamic           = 9
      OTHERS                   = 10.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
Get the values from ID
  CALL FUNCTION 'G_SET_FETCH'
    EXPORTING
      setnr            = lv_id
    TABLES
      set_lines_basic  = lt_values
      set_lines_single = lt_nodes
    EXCEPTIONS
      no_authority     = 1
      set_is_broken    = 2
      set_not_found    = 3
      OTHERS           = 4.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
  IF lt_values IS NOT INITIAL OR lt_nodes IS NOT INITIAL.
    LOOP AT lt_values INTO lw_values.
      lw_wbs-value_fr = lw_values-from.
      lw_wbs-value_to = lw_values-to.
      APPEND lw_wbs TO lt_wbs.
    ENDLOOP.
    LOOP AT lt_nodes INTO lw_nodes.
      REFRESH lt_values.
get the values from ID
      CALL FUNCTION 'G_SET_FETCH'
        EXPORTING
          setnr            = lw_nodes-setnr
        TABLES
          set_lines_basic  = lt_values
          set_lines_single = lt_nodes1
        EXCEPTIONS
          no_authority     = 1
          set_is_broken    = 2
          set_not_found    = 3
          OTHERS           = 4.
      IF sy-subrc <> 0.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
           WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      ENDIF.
      APPEND LINES OF lt_nodes1 TO lt_nodes.
      LOOP AT lt_values INTO lw_values.
        lw_wbs-value_fr = lw_values-from.
        lw_wbs-value_to = lw_values-to.
        APPEND lw_wbs TO lt_wbs.
      ENDLOOP.
      REFRESH lt_nodes1.
    ENDLOOP.
  ENDIF.
Range for profit centers in the table t_prctr_cc
  LOOP AT lt_wbs INTO lw_wbs.
    r_prctr_wa-sign   = c_i.
    r_prctr_wa-option = c_eq.
    r_prctr_wa-low    = lw_wbs-value_fr.
    r_prctr_wa-high   = lw_wbs-value_to.
    APPEND r_wbs_wa TO r_wbs.
  ENDLOOP.
  DELETE ADJACENT DUPLICATES FROM r_wbs.