Subscribe

RSS Feed (xml)

Powered By

Skin Design:
Free Blogger Skins

Powered by Blogger

Sunday, March 2, 2008

Display the growth history of a selected tablespace using SAP graphics - interactive report

*
* Display the growth history of a specific tablespace using SAP graphics.
* The tablespace has to be selected from an interactive list.
*
REPORT ZTBSPCGR.

DATA: BEGIN OF HIST OCCURS 100.
INCLUDE STRUCTURE HIST.
DATA: END OF HIST.
DATA: BEGIN OF HIST2 OCCURS 100,
TS LIKE HIST-TS,
DATE_ LIKE HIST-DATE_,
TUSED LIKE HIST-TUSED,
END OF HIST2 .
DATA: BEGIN OF DATA OCCURS 1,
W TYPE I,
F TYPE F,
END OF DATA.
DATA: BEGIN OF OPTS OCCURS 1,
C(80),
END OF OPTS.
DATA: SELTS LIKE HIST-TS, CLIN(7) TYPE N, CCLIN(7), LIN TYPE I,
DATEC(25), REFDAT TYPE D VALUE '19970801', X1 TYPE I VALUE 0,
X2 TYPE I VALUE 300, Y1 TYPE I VALUE 0, Y2 TYPE I VALUE 10000,
FLAG TYPE I.

START-OF-SELECTION.

CALL FUNCTION 'DB_ORA_TABLESPACE_HISTORY' DESTINATION 'zzzzzzzz'
TABLES
HIST1 = HIST.

LOOP AT HIST.
MOVE-CORRESPONDING HIST TO HIST2.
HIST2-TUSED = HIST2-TUSED / 1024.
HIST2-DATE_ = HIST2-DATE_ - REFDAT.
APPEND HIST2.
ENDLOOP.

SORT HIST2 BY TS.
FLAG = 0.
LOOP AT HIST2.
AT NEW TS.
FLAG = FLAG + 1. FLAG = FLAG MOD 2.
IF FLAG = 0.
WRITE: / HIST2-TS COLOR 2. HIDE: HIST2-TS.
ELSE.
WRITE: / HIST2-TS COLOR 4. HIDE: HIST2-TS.
ENDIF.
ENDAT.
ENDLOOP.

AT LINE-SELECTION.
SELTS = HIST2-TS.
SY-LSIND = SY-LSIND - 1.
SORT HIST2 BY DATE_ ASCENDING.
CLEAR DATA. REFRESH DATA.
CLEAR OPTS. REFRESH OPTS.
LOOP AT HIST2.
IF HIST2-TS = SELTS.
DATA-W = HIST2-DATE_.
DATA-F = HIST2-TUSED.
APPEND DATA.
ENDIF.
ENDLOOP.

DESCRIBE TABLE DATA LINES LIN.
CLIN = LIN. CCLIN = CLIN. CCLIN(1) = '$'.
DATEC = 'TABLESPACE: '. DATEC+12 = SELTS.
OPTS-C = CCLIN .APPEND OPTS.
OPTS-C = 'COLOR=1'.APPEND OPTS.
OPTS-C = 'thick=1'.APPEND OPTS.
OPTS-C = 'LTEXT='.APPEND OPTS.
OPTS-C = 'DTEXT='.APPEND OPTS.

CALL FUNCTION 'STAT_GRAPH'
EXPORTING
TTEXT = DATEC
UTEXT = 'Kb/day (from Aug-01-97)'
X_ART = 'LIN'
Y_ART = 'LIN'
SCALE = 'MAN'
XRNGL = X1
XRNGU = X2
YRNGL = Y1
YRNGU = Y2
XTCKS = '11'
YTCKS = '11'
XDECS = '0'
YDECS = '0'
TABLES
OPTS = OPTS
DATA = DATA.