*
* This program displays the objects in released repairs and their original
* systems
*
REPORT ZREPAIRS.

TABLES: E070, E071, TADIR.

SELECT * FROM E070 WHERE TRFUNCTION = 'R' AND
                         TRSTATUS = 'R'.
 SELECT * FROM E071 WHERE TRKORR = E070-TRKORR. 
    SELECT SINGLE * FROM TADIR WHERE
    PGMID = E071-PGMID AND
    OBJECT = E071-OBJECT AND
    OBJ_NAME = E071-OBJ_NAME.
    WRITE:
    / E071-TRKORR, E071-PGMID, 20(10) E071-OBJECT, 31(30) E071-OBJ_NAME,
     62(5) TADIR-SRCSYSTEM.
  ENDSELECT.
ENDSELECT.