Detects the "heavy" ABAP programs of a certain period of time: interprets the collected data - report

* This program interprets the sequential file created by ZHEAVYPR
* and displays the "heavy" ABAPs of a specified period of time.
* The result is a list of ABAPS categorized by app. server and
* work process type, and sorted by a number: how many times
* that particular ABAP was found running for too long time (>5min)
* during that period.
*
REPORT ZHEAVYLS.

DATA: INPUT_FILE(40) VALUE '/oracle/SID/sapreorg/heavy_abaps'.
PARAMETERS: DATE LIKE AMDS-ANDAT DEFAULT SY-DATUM,
          FROMTIME LIKE PLKZ-AEUZEIT DEFAULT SY-UZEIT,
          TOTIME LIKE PLKZ-AEUZEIT DEFAULT SY-UZEIT.

DATA: BEGIN OF O,
    1(10), 2(8), 3(8), 4(3), 5(8), 6(8),
END OF O.
DATA: BEGIN OF A OCCURS 100,
    3(8), 4(3), 6(8), NUM TYPE I,
END OF A.

OPEN DATASET INPUT_FILE FOR INPUT IN TEXT MODE.
DO.
READ DATASET INPUT_FILE INTO O.
IF SY-SUBRC <> 0.EXIT.ENDIF.
IF O-1 = DATE AND O-2 >= FROMTIME AND O-2 <= TOTIME.
  MOVE-CORRESPONDING O TO A. A-NUM = 1.
  COLLECT A.
ENDIF.
ENDDO.
CLOSE DATASET INPUT_FILE.

WRITE: / DATE, FROMTIME, '---', TOTIME.
SKIP 2.
SORT A BY 3 4 NUM DESCENDING.
LOOP AT A.
AT NEW 3.
  WRITE: / A-3 COLOR 2.
ENDAT.
AT NEW 4.
  WRITE: / '      ',A-4 COLOR 3.
ENDAT.
WRITE: / '             ', A-6, A-NUM.
ENDLOOP.