DATA: l_from     LIKE  sy-tabix,
        l_to       LIKE  sy-tabix.
  DATA: BEGIN OF t0003_idx OCCURS 0,   "인덱스 관리
          setname  TYPE  setnamenew,
          from     LIKE  sy-tabix,
          to       LIKE  sy-tabix,
        END   OF t0003_idx.

 CLEAR : lv_index.
  SORT gt_t0003 BY setname act_gpcd.
  LOOP AT gt_t0003 INTO gs_t0003.
    lv_index = lv_index + 1.

    AT NEW setname.
      l_new = 'X'.
    ENDAT.
    IF l_new = 'X'.
      t0003_idx-setname  = gs_t0003-setname.
      t0003_idx-from     = lv_index.
      CLEAR : l_new.
    ENDIF.
    AT END OF setname.
      l_end = 'X'.
    ENDAT.
    IF l_end = 'X'.
      t0003_idx-to     = lv_index.
      APPEND t0003_idx.  CLEAR : t0003_idx.
      CLEAR : l_end.
    ENDIF.
    CLEAR : gs_t0003.
  ENDLOOP.

  SORT t0003_idx BY setname.
 LOOP AT gt_nodes.
*    l_to = l_to + gt_nodes-vcount.
    CLEAR: t0003_idx.
    READ  TABLE t0003_idx
               WITH KEY  setname = gt_nodes-shortname.

    IF sy-subrc <> 0.
      CLEAR: gt_nodes.
      CONTINUE.
    ENDIF.
    LOOP AT gt_t0003 INTO gs_t0003
         FROM t0003_idx-from  TO t0003_idx-to.

    ENDLOOP.
ENDLOOP.