doubt

Former Member — Mon, 05 Nov 2007 07:46:27 GMT

I have internal table with following fields.

Vbeln netwr sum_netwr.

I already calculated sum of netwr for all line item.now I need to send netwr to sum_netwr

Eg: VBELN NETWR Sum_of_NETWR

1000 10 30

1000 20 30

Please help me.

To be reward all helpful answers.

JNJ

Re: doubt

RaymondGiuseppi — Mon, 05 Nov 2007 07:58:27 GMT

Just modify your internal table at the end.

* Calculate sum.
LOOP AT itab.
  AT LAST.
    SUM.
    w_sum = itab-netwr.
  ENDAT.
ENDLOOP.
* Update internal table
itab-sum_of_netwr = w_sum.
MODIFY itab TRANSPORTING sum_of_netwr WHERE sum_of_netwr IS initial.

Regards

Re: doubt

Former Member — Mon, 05 Nov 2007 08:01:36 GMT

REPORT zstatfile LINE-SIZE 164.

************************************************************************

This is an example of how to dig out some interesting performance
and statistical data from the STAT file.
The program creates a rank list of users based upon their database
update and read activity. The results are the accumulated database
time and row number per user for the different categories:
insert/delete/modify and sequential/direct read. The results can be
sorted by any of these categories.
There are a lot more interesting data in the STAT file that can
be used to write similar programs.

************************************************************************

DATA: STATISTIC_VERSION_USED LIKE SAPWLPSTRC-VERSION. "SAP Workload: St

DATA: sort_field(20).

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 BEGIN OF LINE.

*SELECTION-SCREEN COMMENT 1(35) F3.

*SELECTION-SCREEN POSITION 40.

*PARAMETERS: FILE(128) LOWER CASE.

*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.

*Internal tables

DATA: BEGIN OF v1_normal_records OCCURS 100.

INCLUDE STRUCTURE sapwlstatr.

DATA: END OF v1_normal_records.

DATA: BEGIN OF v2_normal_records OCCURS 100.

INCLUDE STRUCTURE sapwlpfnrm.

DATA: END OF v2_normal_records.

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_READ_FILE'

EXPORTING

read_client = cli

read_end_date = tdat

read_end_time = ttim

read_start_date = fdat

read_start_time = ftim

STATISTIC_FILE = FILE

IMPORTING

statistic_version_used = statistic_version_used

TABLES

v1_normal_records = v1_normal_records

v2_normal_records = v2_normal_records.

LOOP AT v2_normal_records.

v2_normal_records-readseqti = v2_normal_records-readseqti / 1000.

v2_normal_records-readdirti = v2_normal_records-readdirti / 1000.

v2_normal_records-updti = v2_normal_records-updti / 1000.

v2_normal_records-delti = v2_normal_records-delti / 1000.

v2_normal_records-insti = v2_normal_records-insti / 1000.

MODIFY v2_normal_records.

ENDLOOP.

LOOP AT v1_normal_records.

v1_normal_records-readseqti = v1_normal_records-readseqti / 1000.

v1_normal_records-readdirti = v1_normal_records-readdirti / 1000.

v1_normal_records-updti = v1_normal_records-updti / 1000.

v1_normal_records-delti = v1_normal_records-delti / 1000.

v1_normal_records-insti = v1_normal_records-insti / 1000.

MODIFY v1_normal_records.

ENDLOOP.

LOOP AT v2_normal_records.

MOVE-CORRESPONDING v2_normal_records TO sum.

CONCATENATE v2_normal_records-account v2_normal_records-cua_prog

INTO sum-account SEPARATED BY space.

COLLECT sum.

ENDLOOP.

LOOP AT v1_normal_records.

MOVE-CORRESPONDING v1_normal_records TO sum.

CONCATENATE v1_normal_records-account v1_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 PRGORAM -

Re: doubt

Former Member — Mon, 05 Nov 2007 08:04:55 GMT

Hi,

use the following...

move the total value into field sum_netwr of your work_area (or header line) &

modify the complete table.

e.g if u have the total value in a variable say L_TOTAL,

use...

MOVE L_TOTAL TO ITAB-sum_netwr.

MODIFY ITAB WHERE VBELN IS NOT INITIAL TRANSPORTING sum_netwr.

topic Re: doubt in Application Development and Automation Discussions

doubt

Re: doubt

Re: doubt

Re: doubt