Building a custom hierarchy data source extractor

Question

Hi SDN,
The ECC side has given us a Z table which contains a hierarchy. I will write a function module to extract the hierarchy and pass on to BI.
Can someone assist with steps needed to accomplish this? Obviously FM, Z table and view over it, etc are custom. What should the function module generate and fill what to load into BI? How do you generate a data source for such a custom situation?
Please advise.
Thanks.

Answer 1

Hi Shahid,
Only way you can extract is dumping the data or hierarchy  into flat file and loading into BI. Download the data into flat file and then you have upload the same. You cannot create Generic datasource for Hierarchy.
If you have your data in Flat structure in the table then this same code may help you.
report zbiw_glacc_hier line-size 250.
data :
     begin of itab occurs 0,
      seg(5),
      segname(30),
      spu(5),
      spuname(30),
      bu(5),
      buname(30),
      pu(15),
      puname(30),
     cust(8),
     custname(60),
      end of itab.
data : itab_all like itab occurs 0 with header line,
         itab_root like itab occurs 0 with header line.
data : begin of i_hier occurs 0.    " BIW Structure to hold hirearchy
       INCLUDE STRUCTURE E1RSHND.
data:   nodeid like e1rshnd-nodeid,           "NODE ID
        infoobject like e1rshnd-infoobject,   "infoobjectNAME
        nodename like e1rshnd-nodename,       "nodename year
        link(5), "   LIKE E1RSHND-LINK,              "linkname
        parentid like e1rshnd-parentid.       "parent id
data:   leafto(32),                           "Interval - to
        leaffrom(32).                         "Interval - from
        include structure e1rsrlt.
        include structure rstxtsml.
*DATA : PARENT LIKE E1RSHND-NODENAME.
data : end of i_hier.
data : sr(8) type n value '00000000'.
data : begin of itab1 occurs 0, " Node Level1 of Hierarchy
       z_ah_level1 like itab-seg,
       z_ah_level2 like itab-spu,
       z_ah_desc_level2 like itab-spuname,
       end of itab1.
data : begin of itab2 occurs 0, " Node Level1 of Hierarchy
       z_ah_level2 like itab-spu,
       z_ah_level3 like itab-bu,
       z_ah_desc_level3 like itab-buname,
       end of itab2.
data : begin of itab3 occurs 0,   " Node Level3 of Hierarchy
       z_ah_level3 like itab-bu,
       z_ah_level4 like itab-pu,
       z_ah_desc_level4 like itab-puname,
       end of itab3.
data wa like itab.
data : begin of itab_first occurs 0, " Node Level2 of Hierarchy
       z_ah_level1 like ITAB-SEG,
       end of itab_first.
data : begin of itab_sec occurs 0, " Node Level2 of Hierarchy
       z_ah_level2 like ITAB-SPU,
       end of itab_sec.
data : begin of itab_third occurs 0, " Node Level2 of Hierarchy
       z_ah_level3 like ITAB-BU,
       end of itab_third.
data : begin of i_download occurs 0,
       record(250),
       end of i_download.
data : v_pid like e1rshnd-nodeid,
       v_line(250).
start-of-selection.
CALL FUNCTION 'UPLOAD'
EXPORTING
  CODEPAGE                      = ' '
   FILENAME                      = 'C:/'
   FILETYPE                      = 'DAT'
  TABLES
    DATA_TAB                      = itab .
IF SY-SUBRC  0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
itab_all[] = itab[].
  itab_root[] = itab_all[].
  sort itab_all by seg spu bu pu .
  sort itab_root by seg.
  delete adjacent duplicates from itab_root comparing seg.
Appending Root level of node
sr = 00000001.
move : sr to i_hier-nodeid,
       '0HIER_NODE' to i_hier-infoobject,
       'SHA HIERARCHY' to i_hier-nodename,
       '00000000' to i_hier-parentid,
       'EN' to i_hier-langu,
       'SHA HIERARCHY' to i_hier-txtmd.
append i_hier.
clear i_hier.
v_pid  = '00000000'.
loop at itab_root.
if itab_root-seg = itab_root-spu.
  delete itab_root.
endif.
endloop.
  loop at itab_root.
Appending first level of the node
    sr = sr + 1.
    move : sr to i_hier-nodeid,
          '0HIER_NODE' to i_hier-infoobject,
           itab_root-seg to i_hier-nodename,
           v_pid to i_hier-parentid,
          'EN' to i_hier-langu,
          itab_root-segname to i_hier-txtsh,
          itab_root-segname to i_hier-txtmd,
          itab_root-segname to i_hier-TXTLG.
    append i_hier.
    clear i_hier.
  endloop.
  loop at itab_all.
    move itab_all to wa.
Separation of level 3 of the node
    at new spu.
      if not wa-spu is initial.
        move : wa-seg to itab1-z_ah_level1,
               wa-spu to itab1-z_ah_level2,
               wa-spuname to itab1-z_ah_desc_level2.
        append itab1.
        clear itab1.
      endif.
    endat.
Separation of level 3 of the node
    at new bu.
      if not wa-bu is initial.
        move : wa-spu to itab2-z_ah_level2,
               wa-bu to itab2-z_ah_level3,
               wa-buname to itab2-z_ah_desc_level3.
        append itab2.
        clear itab2.
      endif.
    endat.
Separation of level 2 of the node
    at new pu.
      if not wa-pu  is initial.
        move : wa-bu to itab3-z_ah_level3,
               wa-pu to itab3-z_ah_level4,
               wa-puname to itab3-z_ah_desc_level4.
        append itab3.
        clear itab3.
      endif.
    endat.
    clear wa.
  endloop.
  sort itab1 by z_ah_level1 z_ah_level2.
  delete adjacent duplicates from itab1 comparing z_ah_level1
                                              z_ah_level2.
  sort itab2 by z_ah_level2 z_ah_level3.
  delete adjacent duplicates from itab2 comparing z_ah_level2
                                                  z_ah_level3.
  sort itab3 by z_ah_level3 z_ah_level4.
  delete adjacent duplicates from itab3 comparing z_ah_level3
                                                  z_ah_level4.
loop at itab_root.
move itab_root-SEG to itab_first-z_ah_level1.
append itab_first.
clear itab_first.
endloop.
itab_sec[] = itab2[].
itab_third[] = itab3[].
sort itab_first by z_ah_level1.
delete adjacent duplicates from itab_first.
sort itab_sec by z_ah_level2.
delete adjacent duplicates from itab_sec.
sort itab_third by z_ah_level3.
delete adjacent duplicates from itab_third.
data : indx like sy-tabix.
clear indx.
loop at itab_first.
indx = sy-tabix.
read table itab_sec with key z_ah_level2 = itab_first-z_ah_level1
                        binary search.
if sy-subrc eq 0.
delete itab_first index indx.
endif.
endloop.
clear indx.
loop at itab_sec.
indx = sy-tabix.
read table itab_third with  key z_ah_level3 = itab_sec-z_ah_level2
                        binary search.
if sy-subrc eq 0.
delete itab_sec index indx.
endif.
endloop.
clear indx.
clear indx.
loop at itab1.
If itab1-z_ah_level1 = itab1-z_ah_level2.
  delete itab1.
endif.
endloop.
loop at itab2.
If itab2-z_ah_level2 = itab2-z_ah_level3.
  delete itab2.
endif.
endloop.
loop at itab3.
If itab3-z_ah_level3 = itab3-z_ah_level4.
  delete itab3.
endif.
endloop.
Appending First level node to Hierarchy table
  loop at itab_root.
    loop at itab1 where z_ah_level1 = itab_root-SEG.
      read table i_hier with key nodename = itab1-z_ah_level2.
       if sy-subrc ne 0.
      read table i_hier with key nodename = itab1-z_ah_level1.
      if sy-subrc eq 0.
      move i_hier-nodeid to i_hier-parentid.
Appending First level node to Hierarchy table
      sr = sr + 1.
      move  : sr to i_hier-nodeid,
              '0HIER_NODE' to i_hier-infoobject,
              itab1-z_ah_level2 to i_hier-nodename,
              'EN' to i_hier-langu,
              itab1-z_ah_desc_level2 to i_hier-txtsh,
              itab1-z_ah_desc_level2 to i_hier-txtmd,
              itab1-z_ah_desc_level2 to i_hier-txtlg.
      append i_hier.
      clear i_hier.
      endif.
      endif.
    endloop.
  endloop.
Appending second level node to Hierarchy table
  loop at itab_sec.
    loop at itab2 where z_ah_level2 = itab_sec-z_ah_level2.
      read table i_hier with key nodename = itab2-z_ah_level3.
       if sy-subrc ne 0.
      read table i_hier with key nodename = itab2-z_ah_level2.
       if sy-subrc eq 0.
      move i_hier-nodeid to i_hier-parentid.
Appending second level node to Hierarchy table
      sr = sr + 1.
      move : sr to i_hier-nodeid,
            '0HIER_NODE' to i_hier-infoobject,
            itab2-z_ah_level3 to i_hier-nodename,
            'EN' to i_hier-langu,
            itab2-z_ah_desc_level3  to i_hier-txtsh,
            itab2-z_ah_desc_level3 to i_hier-txtmd,
            itab2-z_ah_desc_level3 to i_hier-txtlg.
      append i_hier.
      clear i_hier.
     endif.
     endif.
    endloop.
  endloop.
Appending third level node to Hierarchy table
  loop at itab_third.
    loop at itab3 where z_ah_level3 = itab_third-z_ah_level3.
      read table i_hier with key nodename = itab3-z_ah_level4.
    if sy-subrc ne 0.
      read table i_hier with key nodename = itab3-z_ah_level3.
       if sy-subrc eq 0.
      move i_hier-nodeid to i_hier-parentid.
Appending third level node to Hierarchy table
      sr = sr + 1.
      move : sr to i_hier-nodeid,
           'ZGL_AC_CD' to i_hier-infoobject,
            '0GL_ACCOUNT' to i_hier-infoobject,
            itab3-z_ah_level4 to i_hier-nodename,
            'EN' to i_hier-langu,
            itab3-z_ah_desc_level4 to i_hier-txtsh,
            itab3-z_ah_desc_level4 to i_hier-txtmd,
            itab3-z_ah_desc_level4 to i_hier-txtlg.
      append i_hier.
      clear i_hier.
      endif.
        endif.
    endloop.
  endloop.
  loop at i_hier.
    concatenate i_hier-nodeid i_hier-infoobject i_hier-nodename
                i_hier-link i_hier-parentid i_hier-leafto
                i_hier-leaffrom i_hier-langu i_hier-txtsh
                i_hier-txtmd i_hier-txtlg into v_line
                separated by ','.
    move  v_line to i_download-record.
    append i_download.
    write : / i_hier.
  endloop.
  perform f_download.
**&      Form  f_download
      text
-->  p1        text
<--  p2        text
form f_download.
  call function 'DOWNLOAD'
   exporting
  BIN_FILESIZE                  = ' '
  CODEPAGE                      = ' '
  FILENAME                      = ' '
      filetype                      = 'DAT'
  ITEM                          = ' '
  MODE                          = ' '
  WK1_N_FORMAT                  = ' '
  WK1_N_SIZE                    = ' '
  WK1_T_FORMAT                  = ' '
  WK1_T_SIZE                    = ' '
  FILEMASK_MASK                 = ' '
  FILEMASK_TEXT                 = ' '
  FILETYPE_NO_CHANGE            = ' '
  FILEMASK_ALL                  = ' '
  FILETYPE_NO_SHOW              = ' '
  SILENT                        = 'S'
  COL_SELECT                    = ' '
  COL_SELECTMASK                = ' '
  NO_AUTH_CHECK                 = ' '
IMPORTING
  ACT_FILENAME                  =
  ACT_FILETYPE                  =
  FILESIZE                      =
  CANCEL                        =
    tables
      data_tab                      = i_download
  FIELDNAMES                    =
EXCEPTIONS
  INVALID_FILESIZE              = 1
  INVALID_TABLE_WIDTH           = 2
  INVALID_TYPE                  = 3
  NO_BATCH                      = 4
  UNKNOWN_ERROR                 = 5
  GUI_REFUSE_FILETRANSFER       = 6
  CUSTOMER_ERROR                = 7
  OTHERS                        = 8
  if sy-subrc  0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  endif.
endform.                    " f_download
this code may need modification as your requirement and this may be the optimized one.
First you have to read data from you Z-table into internal table then need to separate a each node level.
hope this helps.
There is PDF article on this. Good Luck.
Regards
Satish Arra
Edited by: Satish Arra on Feb 11, 2009 1:45 AM