Program to load a flat file in a Hierarchy

Question

Hello Experts,
I have this huge hierarchy which we are trying to load through a flat file.
It is about 10 levels and it is huge and all the readings and guide here are just not helping. It will probably take forever creating this file with the Node ID, Next ID, Parent ID, stuff....
Does any one has a code out there which can go into an Excel file and create the table for loading a hierarchy from a gflat file?
Thanks.

Answer 1

Hi ,
   I have a code which will create BW hierarchy file, this code is for 4 level hierarchy  you need to modify the code as per your requirement.
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
Hope this will help. Please assign points if it helps you.
Cheers,
Balaji