topic Re: Internal table using At Statment in Application Development and Automation Discussions

Internal table using At Statment

Former Member — Wed, 28 Nov 2007 05:04:46 GMT

Dear All

i have one internal table . In that table materialcode, qty,movementtype fields are available. i want to get sum of the qty based on materialcode and movermenttype.

internaltable

materialcode movementtype qty

1039-2006-mat 101 25

1039-2006-mat 102 25

1039-2006-mat 231 25

cutpcs 101 25

cutpcs 102 25

i want output following

materialcode movementtype qty

1039-2006-mat 101 50

1039-2006-mat 102 50

1039-2006-mat 231 50

cutpcs 101 25

cutpcs 102 25

This is not ALV Report

Thanks and Regards

Suresh

Re: Internal table using At Statment

Former Member — Wed, 28 Nov 2007 05:06:59 GMT

USE

AT NEW ur fields.

sum.

endat

Re: Internal table using At Statment

Former Member — Wed, 28 Nov 2007 05:09:36 GMT

Hi se this example code you can understand very easily

Using AT FIRST , AT NEW, AT THE END OF , AT LAST.

DATA: BEGIN OF ITAB OCCURS 0,

F1 TYPE I,

F2(6) TYPE C,

F3(10) TYPE N,

F4(16) TYPE P DECIMALS 2,

END OF ITAB.

DATA: SUB_TOT(10) TYPE P DECIMALS 3.

**--1

ITAB-F1 = 1.

ITAB-F2 = 'ONE'.

ITAB-F3 = 10.

ITAB-F4 = '1000.00'.

APPEND ITAB.

CLEAR ITAB.

ITAB-F1 = 1.

ITAB-F2 = 'ONE'.

ITAB-F3 = 20.

ITAB-F4 = '2000.00'.

APPEND ITAB.

CLEAR ITAB.

ITAB-F1 = 1.

ITAB-F2 = 'ONE'.

ITAB-F3 = 30.

ITAB-F4 = '3000.00'.

APPEND ITAB.

CLEAR ITAB.

*--2

ITAB-F1 = 2.

ITAB-F2 = 'TWO'.

ITAB-F3 = 10.

ITAB-F4 = '1000.00'.

APPEND ITAB.

CLEAR ITAB.

ITAB-F1 = 2.

ITAB-F2 = 'TWO'.

ITAB-F3 = 20.

ITAB-F4 = '2000.00'.

APPEND ITAB.

CLEAR ITAB.

*-- 3

ITAB-F1 = 3.

ITAB-F2 = 'THREE'.

ITAB-F3 = 10.

ITAB-F4 = '1000.00'.

APPEND ITAB.

CLEAR ITAB.

ITAB-F1 = 3.

ITAB-F2 = 'THREE'.

ITAB-F3 = 20.

ITAB-F4 = '2000.00'.

APPEND ITAB.

CLEAR ITAB.

SORT ITAB BY F1.

LOOP AT ITAB.

AT FIRST.

WRITE: /35 ' MATERIAL DETAILS:'.

ULINE.

ENDAT.

AT NEW F1.

WRITE: / 'DETAILS OF MATERIAL:' COLOR 7 , ITAB-F1.

ULINE.

ENDAT.

WRITE: / ITAB-F1, ITAB-F2, ITAB-F3, ITAB-F4.

SUB_TOT = SUB_TOT + ITAB-F4.

AT END OF F1.

ULINE.

WRITE: / 'SUB TOTAL :' COLOR 3 INVERSE ON, SUB_TOT COLOR 3 INVERSE ON.

CLEAR SUB_TOT.

ENDAT.

AT LAST.

SUM.

ULINE.

WRITE: 'SUM:', ITAB-F4.

ULINE.

ENDAT.

ENDLOOP.

Re: Internal table using At Statment

former_member386202 — Wed, 28 Nov 2007 05:09:44 GMT

Hi,

For that u should use COLLECT statement

Loop at itab

collect itab to itab1.

endloop.

if its not working then

do like this

loop at itab.

lv_index = sy-index - 1.

read table itab with index lv_index

if sy-subrc = 0.

add ur amount here.

endif.

on change of material.

append itab1.

endon.

endloop.

Regards,

Prashant

Re: Internal table using At Statment

Former Member — Wed, 28 Nov 2007 05:10:54 GMT

declare ur internal table in the following format. the field sequence should be as below

materialcode

movementtype

qty

After populating data. Sort as below.

sort itab by material code movementtype.

loop at itab.

at end of movementtype.

SUM.

write:/ itab-materialcode, itab-movementtype, itab-qty.

endat.

endlloop.

Re: Internal table using At Statment

Former Member — Wed, 28 Nov 2007 06:07:37 GMT

hi Naresh Nelapatla

Thanks your Reply

Your code work first material and first movement type next not working

Regards

Suresh

Re: Internal table using At Statment

Former Member — Wed, 28 Nov 2007 06:08:26 GMT

Hi suresh,

try this.

data : store_mat(20) type c,

store_movt(4) type n,

ctr type i.

loop at itab.

at new matcode.

ctr = itab_qty.

store_mat = itab-matcode.

store_movt = itab-movt.

endat.

if sy-tabix ne 1.

if store_mat = itab-matcode and store_movt = itab-movt.

ctr = ctr + itab-qty.

else.

write : / itab-matcode,

/t itab-movt,

/t ctr.

clear itab.

clear ctr.

endif.

endloop.

hope this helps.

Re: Internal table using At Statment

Former Member — Wed, 28 Nov 2007 06:30:49 GMT

Collect

Creating subtotal and groups of the internal table.

Syntax of collect statement:

Data: begin of itab occurs 0,

c1,

c2 type i,

end of itab.

itab-c1 = 'a'.

itab-c2 = 10.

collect itab.

itab-c1 = 'a'.

itab-c2 = 10.

collect itab.

loop at itab.

write:/ itab-c1,

itab-c2.

endloop.

Re: Internal table using At Statment

Former Member — Wed, 28 Nov 2007 08:30:38 GMT

Thanks your Reply

Your code work first material and first movement type next not working

Regards

Suresh

Re: Internal table using At Statment

Former Member — Wed, 28 Nov 2007 08:35:44 GMT

suppose you have the data in itab then declare one int tbale itab1 like itab.

loop at itab.

read table itab1 with key matnr = itab-matnr bwart = itab-bwart.

if sy-subrc = 0.

itab1-menge = itab-menge + itab1-menge.

modify itab1 index sy-tabix.

else.

append itab to itab1.

endif.

clear : itab,itab1.

endloop.

loop at itab1.

write : / itab1-matnr,itab1-bwart,itab1-menge.

endloop.

regards

shiba dutta