REPORT  ZFORWARD.
TABLES HRUS_D2.
SELECT-OPTIONS: US_NAME  FOR HRUS_D2-US_NAME,
                REP_NAME FOR HRUS_D2-REP_NAME,
                BEGDA    FOR HRUS_D2-BEGDA,
                ENDDA    FOR HRUS_D2-ENDDA.
 
DATA: SUBTAB LIKE HRUS_D2 OCCURS 10 WITH HEADER LINE.
 
SELECT * FROM HRUS_D2 INTO TABLE SUBTAB
         WHERE US_NAME  IN US_NAME
           AND REP_NAME IN REP_NAME
           AND BEGDA    IN BEGDA
           AND ENDDA    IN ENDDA
           AND ACTIVE   =  'X'.
 
WRITE: / 'Automatic Forwardings'.
WRITE: AT /1 'User', AT 15 'Substitute', AT 30 'From', AT 45 'To'.
LOOP AT SUBTAB.
  AT NEW US_NAME.
    WRITE: SUBTAB-US_NAME UNDER 'User'.
  ENDAT.
  WRITE:   SUBTAB-REP_NAME UNDER 'Substitute',
           SUBTAB-BEGDA UNDER 'From',
           SUBTAB-ENDDA UNDER 'To', / ' '.
ENDLOOP.