DATA: BEGIN of trk ,

     pgmid like e071-pgmid,
     object like e071-object,
     obj_name like e071-obj_name,
      trkorr like e071-trkorr,
     END OF trk.

     DATA: gt_trk LIKE SORTED TABLE OF trk WITH UNIQUE KEY pgmid object obj_name.



     SELECT e71~trkorr e71~pgmid e71~object e71~obj_name INTO CORRESPONDING FIELDS OF trk
          FROM e071 as e71 JOIN e070 as e70 on e71~trkorr = e70~trkorr
                                    WHERE e70~as4user = sy-uname AND e70~strkorr ne ''.

       READ TABLE gt_trk TRANSPORTING NO FIELDS WITH TABLE KEY  pgmid = trk-pgmid object = trk-object obj_name = trk-obj_name.
       IF sy-subrc ne 0.
         INSERT trk INTO TABLE gt_trk.
       ENDIF.
     ENDSELECT.