Solved: Select some fields internal table

Former Member · ‎01-08-2015

Hi, i have an internal table "itab" with a lot of fields. table is sorted.

Like this

Header 1	Header 2	Header 3
a	2132	123
a	312	123
a	312	312
b	132	132
c	32	123
c	12	13

lets say i want the last lines of the different values of Header 1.

in this case, the last one where header 1 is a, then last one where is b, last one where it is c

a 312 312

b 132 132

c 12 13

is there any simple solution?

Former Member · ‎01-08-2015

hi bruno,

Try this code for the solution.

REPORT ZR_TEST2.

TYPES: BEGIN OF TY,
         HEADER1 TYPE C LENGTH 10,
         HEADER2 TYPE C LENGTH 10,
         HEADER3 TYPE C LENGTH 10,
        END OF TY.

DATA: WA TYPE TY,
       WA1 TYPE TY,
       ITAB LIKE STANDARD TABLE OF WA,
       ITAB1 LIKE STANDARD TABLE OF WA.

WA-HEADER1 = 'a'.
WA-HEADER2 = '2132'.
WA-HEADER3 = '123'.
APPEND WA TO ITAB.
CLEAR WA.

WA-HEADER1 = 'a'.
WA-HEADER2 = '312'.
WA-HEADER3 = '123'.
APPEND WA TO ITAB.
CLEAR WA.

WA-HEADER1 = 'a'.
WA-HEADER2 = '312'.
WA-HEADER3 = '312'.
APPEND WA TO ITAB.
CLEAR WA.

WA-HEADER1 = 'b'.
WA-HEADER2 = '132'.
WA-HEADER3 = '132'.
APPEND WA TO ITAB.
CLEAR WA.

WA-HEADER1 = 'c'.
WA-HEADER2 = '32'.
WA-HEADER3 = '123'.
APPEND WA TO ITAB.
CLEAR WA.

WA-HEADER1 = 'c'.
WA-HEADER2 = '12'.
WA-HEADER3 = '13'.
APPEND WA TO ITAB.
CLEAR WA.

SORT ITAB BY header1.

LOOP AT ITAB INTO WA.
   WA1-HEADER1 = WA-HEADER1.
   WA1-HEADER2 = WA-HEADER2.
   WA1-HEADER3 = WA-HEADER3.

   AT END OF HEADER1.
     APPEND WA1 TO ITAB1.
   ENDAT.
ENDLOOP.

WRITE: / 'FINAL'.

LOOP AT ITAB1 INTO WA.
   WRITE: / WA-header1, WA-header2, wa-header3.
ENDLOOP.

former_member538259 · ‎01-08-2015

that table is sorted only by key of the header 1 so maybe your result in a future will be not the correct...

init variable actual with the first row of the table

loop.

save the actual value of header1 in a variable actual.

when the next value is different append the preview row to result table..

endloop.

here a link for abap code https://training.sap.com/shop/certification/c_taw12_731-sap-certified-development-associate---abap-w...

regards.

Alberto

Former Member · ‎01-08-2015

well, i can try to search the SAP FM and get a table for each one of those aaaa bb cccc. But then again i need to read the last line. i can get that by sy-tabix right?

and then read the index = sy-tabix.

Former Member · ‎01-08-2015

hi bruno,

Try this code for the solution.

REPORT ZR_TEST2.

TYPES: BEGIN OF TY,
         HEADER1 TYPE C LENGTH 10,
         HEADER2 TYPE C LENGTH 10,
         HEADER3 TYPE C LENGTH 10,
        END OF TY.

DATA: WA TYPE TY,
       WA1 TYPE TY,
       ITAB LIKE STANDARD TABLE OF WA,
       ITAB1 LIKE STANDARD TABLE OF WA.

WA-HEADER1 = 'a'.
WA-HEADER2 = '2132'.
WA-HEADER3 = '123'.
APPEND WA TO ITAB.
CLEAR WA.

WA-HEADER1 = 'a'.
WA-HEADER2 = '312'.
WA-HEADER3 = '123'.
APPEND WA TO ITAB.
CLEAR WA.

WA-HEADER1 = 'a'.
WA-HEADER2 = '312'.
WA-HEADER3 = '312'.
APPEND WA TO ITAB.
CLEAR WA.

WA-HEADER1 = 'b'.
WA-HEADER2 = '132'.
WA-HEADER3 = '132'.
APPEND WA TO ITAB.
CLEAR WA.

WA-HEADER1 = 'c'.
WA-HEADER2 = '32'.
WA-HEADER3 = '123'.
APPEND WA TO ITAB.
CLEAR WA.

WA-HEADER1 = 'c'.
WA-HEADER2 = '12'.
WA-HEADER3 = '13'.
APPEND WA TO ITAB.
CLEAR WA.

SORT ITAB BY header1.

LOOP AT ITAB INTO WA.
   WA1-HEADER1 = WA-HEADER1.
   WA1-HEADER2 = WA-HEADER2.
   WA1-HEADER3 = WA-HEADER3.

   AT END OF HEADER1.
     APPEND WA1 TO ITAB1.
   ENDAT.
ENDLOOP.

WRITE: / 'FINAL'.

LOOP AT ITAB1 INTO WA.
   WRITE: / WA-header1, WA-header2, wa-header3.
ENDLOOP.

Former Member · ‎01-08-2015

that's it! thanks mate! works great

Former Member · ‎01-08-2015

Although this does work in this case, I prefer to take care of things like this manually. See what happens of you sort by header3 and do AT END OF header3 in the loop.

Rob

Former Member · ‎01-08-2015

Hi

Interesting the code (easy), is possible, explain a little about this line code:

AT END OF HEADER1.

APPEND WA1 TO ITAB1.

ENDAT.

if possible.

thanks

Former Member · ‎01-08-2015

Interesting, AT END have a isussue, if the column isn't the first of the table not work properly.

the Help Say..

thanks

Former Member · ‎01-09-2015

within the AT...... ENDAT the fields are filled with '*'. therefore before this AT....ENDAT I am assigning values to work area wa1.

AT END ... is used here to get the last record only.

Former Member · ‎01-09-2015


abdul raheem mohammad wrote:

within the AT...... ENDAT the fields are filled with '*'. therefore before this AT....ENDAT I am assigning values to work area wa1.

AT END ... is used here to get the last record  only.

And that's the problem. Since the dawn of time, programmers have written code to do a specific task. We need to develop code that is more easily reusable.

After all, the dirty little secret of programmers is that a large portion of what we do is <CTL>C <CTL>V.

Rob

Former Member · ‎01-09-2015

Any sugestion aboup a better way to do it?
Is better to check the lines of the itab with sy-tabix and then read the last one by it's index? is it possible to do it with an internal table? (it should have a header line)

sorrry the questions.

i'm starting in this whole new world of abap! all the best.

Former Member · ‎01-09-2015

Like I said, I prefer to do it manually. Keep a work are with the last value of the field you are interested in. Compare the next value with the old value. When it changes, do what you need to do and replace the work area with the new value.

I'm sure there are better ways. This just what I have done since running into the noted problems with AT NEW, ON CHANGE OF, etc.

Rob