*----- cost elements hierarchy ----------------------------------------- 
data: begin of ivalues occurs 0.                                         
        include structure setvalues.                                     
data: end of ivalues.                                                    
data: begin of itree occurs 1.                                           
        include structure sethier.                                       
data: end of itree.                                                      

parameters:    p_kstar  like t800s-setnr,            "Cost Element Group
              hp_kstar  like sethdr-setid no-display.                   



************************************************************************ 
form select_cost_element_hierarchy.
  concatenate '0H' p_kstar into hp_kstar.            "Cost Element Group
  call function 'G_SET_TREE_IMPORT'                                      
       exporting                                                         
            setid                     = hp_kstar                         
            tabname                   = 'CCSS      '
       tables                                                            
            set_hierarchy             = itree                            
            set_values                = ivalues                          
       exceptions                                                        
            set_not_found             = 1                                
            illegal_field_replacement = 2                                
            illegal_table_replacement = 3                                
            others                    = 4.                               
endform.                                                                 
************************************************************************