ABAP retrieve statistical data from the STAT file

Details

Category: Utilities

Published on Friday, 12 March 2010 23:51

Written by anon

Hits: 5426

This version works with ERP 6.0

*&---------------------------------------------------------------------*
*& Report  ZSTATS
*&---------------------------------------------------------------------*

REPORT zstats LINE-SIZE 164.

DATA: statistic_version_used LIKE sapwlpstrc-version,
sort_field(20),
normal_records TYPE sapwlnormrecs,
wa_normal_records TYPE LINE OF sapwlnormrecs.

* General input parameters: from/to, client, STAT file path
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE t7.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(30) f1.
SELECTION-SCREEN POSITION 40.
PARAMETERS: fdat LIKE sy-datum,
ftim LIKE sy-uzeit.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(30) f2.
SELECTION-SCREEN POSITION 40.
PARAMETERS: tdat LIKE sy-datum,
ttim LIKE sy-uzeit.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(30) f4.
SELECTION-SCREEN POSITION 40.
PARAMETERS: cli LIKE sy-mandt.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b1.

* Sort order input
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE t5.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(30) f5.
SELECTION-SCREEN POSITION 40.
PARAMETERS: asc  RADIOBUTTON GROUP ord,
desc RADIOBUTTON GROUP ord.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b2.

* Sort criteria input
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE t6.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(30) t1.
SELECTION-SCREEN POSITION 62.
PARAMETERS: a1 RADIOBUTTON GROUP sort.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(55) t2.
SELECTION-SCREEN POSITION 62.
PARAMETERS: a2 RADIOBUTTON GROUP sort.
PARAMETERS: a3 RADIOBUTTON GROUP sort.
SELECTION-SCREEN POSITION 67.
PARAMETERS: a4 RADIOBUTTON GROUP sort.
PARAMETERS: a5 RADIOBUTTON GROUP sort.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(55) t3.
SELECTION-SCREEN POSITION 62.
PARAMETERS: a6 RADIOBUTTON GROUP sort.
PARAMETERS: a7 RADIOBUTTON GROUP sort.
SELECTION-SCREEN POSITION 67.
PARAMETERS: a8 RADIOBUTTON GROUP sort.
PARAMETERS: a9 RADIOBUTTON GROUP sort.
SELECTION-SCREEN POSITION 72.
PARAMETERS: aa RADIOBUTTON GROUP sort.
PARAMETERS: ab RADIOBUTTON GROUP sort.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(50) t4.
SELECTION-SCREEN POSITION 62.
PARAMETERS: ac RADIOBUTTON GROUP sort.
PARAMETERS: ad RADIOBUTTON GROUP sort.
SELECTION-SCREEN POSITION 67.
PARAMETERS: ae RADIOBUTTON GROUP sort.
PARAMETERS: af RADIOBUTTON GROUP sort.
SELECTION-SCREEN POSITION 72.
PARAMETERS: ag RADIOBUTTON GROUP sort.
PARAMETERS: ah RADIOBUTTON GROUP sort.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b3.

DATA: BEGIN OF sum OCCURS 100,
account(32),
readseqrec TYPE i,
readseqti TYPE i,
readdirrec TYPE i,
readdirti TYPE i,
updrec TYPE i,
updti TYPE i,
delrec TYPE i,
delti TYPE i,
insrec TYPE i,
insti TYPE i,
sum_rd_row TYPE i,
sum_rd_tim TYPE i,
sum_mod_row TYPE i,
sum_mod_tim TYPE i,
sum_all_row TYPE i,
sum_all_tim TYPE i,
END OF sum.

*Initialize the selection screen
INITIALIZATION.
t1 = 'User Name and Report Name'.
t2 = 'READ: Sequential(row/time) Direct(row/time)'.
t3 = 'Update(row/time) Delete(row/time) Insert(row/time)'.
t4 = 'SUM: Read(row/time) Modify(row/time) All(row/time)'.
t5 = 'Sort'.
t6 = 'By'.
t7 = 'Period, Client and STAT file'.

f1 = 'From: (date/time)'.
f2 = 'To: (date/time)'.
* F3 = 'STAT file path(only for old stat)'.
f4 = 'Client'.
f5 = 'Ascending/Descending'.

fdat = sy-datum. ftim = sy-uzeit.
fdat = fdat - 1. ttim = sy-uzeit.
tdat = sy-datum.
cli = sy-mandt.

* Write a page header
TOP-OF-PAGE.
WRITE:        / 'User and Report ' COLOR 2,
34(15) 'Sequential read' COLOR 2,
50(15) 'Direct read' COLOR 2,
66(15) 'Update' COLOR 2,
82(15) 'Delete' COLOR 2,
98(15) 'Insert' COLOR 2,
114(15) 'Sum Read' COLOR 5,
130(15) 'Sum Modify' COLOR 5,
146(15) 'Sum All' COLOR 6.

WRITE:        / 'name' COLOR 2,
34(6) 'rows' COLOR 2,
41(8) 'time(ms)' COLOR 2,
50(6) 'rows' COLOR 2,
57(8) 'time(ms)' COLOR 2,
66(6) 'rows' COLOR 2,
73(8) 'time(ms)' COLOR 2,
82(6) 'rows' COLOR 2,
89(8) 'time(ms)' COLOR 2,
98(6) 'rows' COLOR 2,
105(8) 'time(ms)' COLOR 2,
114(6) 'rows' COLOR 5,
121(8) 'time(ms)' COLOR 5,
130(6) 'rows' COLOR 5,
137(8) 'time(ms)' COLOR 5,
146(6) 'rows' COLOR 6,
153(8) 'time(ms)' COLOR 6.

* Main
START-OF-SELECTION.
* Figure out the sort field name
IF a1 = 'X'.
sort_field = 'ACCOUNT'.
ELSEIF a2 = 'X'.
sort_field = 'READSEQREC'.
ELSEIF a3 = 'X'.
sort_field = 'READSEQTI'.
ELSEIF a4 = 'X'.
sort_field = 'READDIRREC'.
ELSEIF a5 = 'X'.
sort_field = 'READDIRTI'.
ELSEIF a6 = 'X'.
sort_field = 'UPDREC'.
ELSEIF a7 = 'X'.
sort_field = 'UPDTI'.
ELSEIF a8 = 'X'.
sort_field = 'DELREC'.
ELSEIF a9 = 'X'.
sort_field = 'DELTI'.
ELSEIF aa = 'X'.
sort_field = 'INSREC'.
ELSEIF ab = 'X'.
sort_field = 'INSTI'.
ELSEIF ac = 'X'.
sort_field = 'SUM_RD_ROW'.
ELSEIF ad = 'X'.
sort_field = 'SUM_RD_TIM'.
ELSEIF ae = 'X'.
sort_field = 'SUM_MOD_ROW'.
ELSEIF af = 'X'.
sort_field = 'SUM_MOD_TIM'.
ELSEIF ag = 'X'.
sort_field = 'SUM_ALL_ROW'.
ELSEIF ah = 'X'.
sort_field = 'SUM_ALL_TIM'.
ENDIF.

CALL FUNCTION 'SAPWL_STATREC_DIRECT_READ'
EXPORTING
*   NO_OF_RECORDS                     = -1
read_start_date                   = fdat
read_start_time                   = ftim
read_end_date                     = tdat
read_end_time                     = ttim
read_client                       = cli
IMPORTING
normal_records                    = normal_records
EXCEPTIONS
wrong_parameter_combination       = 1
file_problems                     = 2
convert_overflow                  = 3
OTHERS = 4
.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.


LOOP AT normal_records INTO wa_normal_records.
wa_normal_records-readseqti = wa_normal_records-readseqti / 1000.
wa_normal_records-readdirti = wa_normal_records-readdirti / 1000.
wa_normal_records-updti = wa_normal_records-updti  / 1000.
wa_normal_records-delti = wa_normal_records-delti / 1000.
wa_normal_records-insti = wa_normal_records-insti / 1000.
MODIFY normal_records FROM wa_normal_records
TRANSPORTING readseqti readdirti updti delti insti.
ENDLOOP.

LOOP AT normal_records INTO wa_normal_records.
MOVE-CORRESPONDING wa_normal_records TO sum.
CONCATENATE wa_normal_records-account wa_normal_records-cua_prog
INTO sum-account SEPARATED BY space.
COLLECT sum.
ENDLOOP.

LOOP AT sum.
sum-sum_rd_row  = sum-readseqrec + sum-readdirrec.
sum-sum_rd_tim  = sum-readseqti + sum-readdirti.
sum-sum_mod_row = sum-updrec + sum-delrec + sum-insrec.
sum-sum_mod_tim = sum-updti + sum-delti + sum-insti.
sum-sum_all_row = sum-sum_rd_row + sum-sum_mod_row.
sum-sum_all_tim = sum-sum_rd_tim + sum-sum_mod_tim.
MODIFY sum.
ENDLOOP.

IF asc = 'X'.
SORT sum BY (sort_field) ASCENDING.
ELSE.
SORT sum BY (sort_field) DESCENDING.
ENDIF.


LOOP AT sum.
WRITE: /  sum-account,
34(7) sum-readseqrec,
42(7) sum-readseqti,
54(7) sum-readdirrec,
58(7) sum-readdirti,
66(7) sum-updrec,
74(7) sum-updti,
82(7) sum-delrec,
90(7) sum-delti,
98(7) sum-insrec,
106(7) sum-insti,
114(7) sum-sum_rd_row,
122(7) sum-sum_rd_tim,
130(7) sum-sum_mod_row,
138(7) sum-sum_mod_tim,
146(7) sum-sum_all_row,
154(7) sum-sum_all_tim.

ENDLOOP.
*-------- END OF PROGRAM --------------------------------------------*

• < Prev
• Next >