REPORT  Z
tables: J_3RFTAX_OBJSEL, j_3rftax_objects.
DATA: itab like J_3RFTAX_OBJSEL occurs 0  with header line,
      HIER_KEY like  J_3RFTAX_OBJSEL-HIER_KEY,
      NODE_CODE like  J_3RFTAX_OBJSEL-NODE_CODE,
      LINENUM like  J_3RFTAX_OBJSEL-LINENUM.
DATA: begin of itab2 occurs 0.
  include structure J_3RFTAX_OBJSEL.
  data: RTAXOBJ LIKE J_3RFTAX_OBJSEL-LOW.
  data: HSL like ZTAXREGT-HSLVT.
DATA: end of itab2.

PARAMETERS: p1 LIKE  j_3rftax_objects-hier_key OBLIGATORY.
SELECT-OPTIONS p2 FOR J_3RFTAX_OBJSEL-NODE_CODE.

START-OF-SELECTION.

select * from j_3rftax_objsel  into table itab "выборка в таблицу itab
  where HIER_KEY = P1 and NODE_CODE in P2 and SEQNR = '02'.
  loop at itab into itab2.
          select  single * from j_3rftax_objsel
            where
                     HIER_KEY = itab-HIER_KEY
                     and NODE_CODE = itab-NODE_CODE
                     and LINENUM = ITAB-LINENUM
                     and TABNAME  = 'GLU1'
                     and FIELDNAME = 'RTAXOBJ'.
check  sy-subrc = 0.
    itab2-RTAXOBJ = J_3RFTAX_OBJSEL-LOW.
insert itab2.
   WRITE:/ itab2-hier_key, itab2-NODE_CODE, itab2-RTAXOBJ, itab2-HIGH, itab2-HSL, itab2-LINENUM.
 
   endloop.

loop at itab.
          select  single * from j_3rftax_objsel
            where
                     HIER_KEY = itab-HIER_KEY
                     and NODE_CODE = itab-NODE_CODE
                     and LINENUM = ITAB-LINENUM
                     and TABNAME  = 'GLU1'
                     and FIELDNAME = 'RTAXOBJ'.
check  sy-subrc = 0.
   move-corresponding  itab into itab2.
    itab2-RTAXOBJ = J_3RFTAX_OBJSEL-LOW.
   insert itab2.
   WRITE:/ itab2-hier_key, itab2-NODE_CODE, itab2-RTAXOBJ, itab2-HIGH, itab2-HSL, itab2-LINENUM.
 
   endloop.

  loop at itab.
          select  single * from j_3rftax_objsel
            where
                     HIER_KEY = itab-HIER_KEY
                     and NODE_CODE = itab-NODE_CODE
                     and LINENUM = ITAB-LINENUM
                     and TABNAME  = 'GLU1'
                     and FIELDNAME = 'RTAXOBJ'.
   check  sy-subrc = 0.
   move-corresponding  itab into itab2.
    itab2-RTAXOBJ = J_3RFTAX_OBJSEL-LOW.
   WRITE:/ itab2-hier_key, itab2-NODE_CODE, itab2-RTAXOBJ, itab2-HIGH, itab2-HSL, itab2-LINENUM.
   exit.
   endloop.

append itab2.

   WRITE:/ itab2-hier_key, itab2-NODE_CODE, itab2-RTAXOBJ, itab2-HIGH, itab2-HSL, itab2-LINENUM.
   exit.
   endloop.