topic Re: finding lowest dates in Application Development and Automation Discussions

finding lowest dates

Former Member — Tue, 16 Jan 2007 16:46:11 GMT

Dear experts,

I have an internal table with the date field . I need to delete all the dates except the least date in the Internal table list.

Can anyone send the code for this.

thanks in advance

karthik

Re: finding lowest dates

RichHeilman — Tue, 16 Jan 2007 16:53:13 GMT

You can try something like this.



report zrich_0001.

types: begin of t_datum,
       datum type sy-datum,
       end of t_datum.
data: i_datum type table of t_datum.
data: x_datum like line of i_datum.

x_datum-datum = '20060112'.  append x_datum to i_datum.
x_datum-datum = '20060112'.  append x_datum to i_datum.
x_datum-datum = '20060102'.  append x_datum to i_datum.
x_datum-datum = '20060102'.  append x_datum to i_datum.
x_datum-datum = '20060103'.  append x_datum to i_datum.
x_datum-datum = '20060103'.  append x_datum to i_datum.
x_datum-datum = '20060104'.  append x_datum to i_datum.
x_datum-datum = '20060104'.  append x_datum to i_datum.
x_datum-datum = '20060104'.  append x_datum to i_datum.

sort i_datum ascending by datum.

read table i_datum into x_datum index 1.
delete i_datum where datum <> x_datum-datum.

check sy-subrc  = 0.

Regards,

Rich Heilman

Re: finding lowest dates

Former Member — Tue, 16 Jan 2007 16:54:50 GMT

Hi,

sort the internal table and delete the other records..

Example

SORT ITAB BY DATE.

DESCRIBE TABLE ITAB.

DELETE ITAB FROM 2 TO SY-TFILL.

Thanks,

Naren

Re: finding lowest dates

Former Member — Tue, 16 Jan 2007 16:55:53 GMT

Hi,

A complete example

DATA: BEGIN OF ITAB OCCURS 0,

DATE TYPE SYDATUM,

END OF ITAB.

ITAB-DATE = SY-DATUM + 1.

APPEND ITAB.

ITAB-DATE = SY-DATUM.

APPEND ITAB.

ITAB-DATE = SY-DATUM - 1.

APPEND ITAB.

SORT ITAB BY DATE.

DESCRIBE TABLE ITAB.

DELETE ITAB FROM 2 TO SY-TFILL.

DESCRIBE TABLE ITAB.

WRITE: / SY-TFILL.

Thanks,

Naren

Re: finding lowest dates

Former Member — Tue, 16 Jan 2007 16:55:59 GMT

Sort the table in ascending order.

then delete all the contents of the table and make one condition that sy-index <> 1.

This is work

Re: finding lowest dates

RichHeilman — Tue, 16 Jan 2007 17:00:51 GMT

Naren, but what if there are multiple occurances of the lowest date and he wants to keep all of the records for that lowest date?

Regards,

RIch Heilman

Re: finding lowest dates

Former Member — Tue, 16 Jan 2007 17:03:58 GMT

Hi Rich,

We can go for sorting of the table in ascending order now date of index 1 should be stored in some var and while deleting the table content we should make sure that the date should not be equal.

if equal then leave the record in the table.

I guess this is the solution . but if you have any then please tell us.

Re: finding lowest dates

Former Member — Tue, 16 Jan 2007 17:05:07 GMT

Hi Rich,

You are correct..:-)).If there are mulitple records with the same least date..Then my code will delete all the other records other than the first record..

My code will work if the least date record is having only one record..

Thanks,

Naren