topic Internal table logic issue in Application Development and Automation Discussions

Internal table logic issue

Former Member — Tue, 11 Jul 2006 12:40:15 GMT

Hi All,

I have one logical issue related to internal table manipulation.

I have one internal table :

I_DAT - This is related to Loading/Unloading of Goods.

for example with 3 fields

VSTEL, KUNNA, KMMANG.

Now suppose my data looks like this after sorting:

VSTEL KUNNA KMMANG

100 - -

200 - -

300 - -

400 - -

- 500 X

- 600 X

- 700 X

- 800 X

Here 100,200,300,400 are Loading points.

ANd 500,600,700,800 are unloading points.

Now what i want is For loading & Unloading points i need to pick up Address and print one after other.

But how they need to print is:

FOR INITIAL LOADING OF

ADDRESS- For 100

FIRST STOP: FOR LOADING OF

ADDRESS- For 200

SECOND STOP: FOR LOADING OF

ADDRESS- For 300

Etc .....

Then

FOR UNLOADING OF:

ADDRESS- For 400

FIRST STOP: FOR UNLOADING OF

etc.

FINAL STOP: FOR FINAL UNLOADING OF

We might get as many records :

Can any body give me the logic:

Printing Address is not a problem:

But Above every address we need to print FIRST STOP, SECOND etc like that.

For this i need logic.

Can anybody give the solution!

Thanks in advance.

Thanks & Regards,

Prasad.

Re: Internal table logic issue

Former Member — Tue, 11 Jul 2006 12:43:08 GMT

Loop at I_DAT.

At new VSTEL.

Write:/ Address Logic.

ENDAT.

Endloop.

-Kiran

Re: Internal table logic issue

Former Member — Tue, 11 Jul 2006 13:08:46 GMT

Try this.I think you want output like this......

DATA: BEGIN OF LINE,

CARRID TYPE SBOOK-CARRID,

CONNID TYPE SBOOK-CONNID,

FLDATE TYPE SBOOK-FLDATE,

CUSTTYPE TYPE SBOOK-CUSTTYPE,

CLASS TYPE SBOOK-CLASS,

BOOKID TYPE SBOOK-BOOKID,

END OF LINE.

DATA ITAB LIKE SORTED TABLE OF LINE WITH UNIQUE KEY TABLE LINE.

SELECT CARRID CONNID FLDATE CUSTTYPE CLASS BOOKID

FROM SBOOK INTO CORRESPONDING FIELDS OF TABLE ITAB.

LOOP AT ITAB INTO LINE.

AT FIRST.

WRITE / 'List of Bookings'.

ULINE.

ENDAT.

AT NEW CARRID.

WRITE: / 'Carrid:', LINE-CARRID.

ENDAT.

AT NEW CONNID.

WRITE: / 'Connid:', LINE-CONNID.

ENDAT.

AT NEW FLDATE.

WRITE: / 'Fldate:', LINE-FLDATE.

ENDAT.

AT NEW CUSTTYPE.

WRITE: / 'Custtype:', LINE-CUSTTYPE.

ENDAT.

WRITE: / LINE-BOOKID, LINE-CLASS.

AT END OF CLASS.

ULINE.

ENDAT.

ENDLOOP.

This is also helpful......

LOOP AT <itab>.

AT FIRST. ... ENDAT.

AT NEW <f1>. ...... ENDAT.

AT NEW <f2 >. ...... ENDAT.

.......

.......

AT END OF <f2>. ... ENDAT.

AT END OF <f1>. ... ENDAT.

AT LAST. .... ENDAT.

ENDLOOP.

Regards

Abhishek