Threding problem

[Former Member]

Hi ABAP Gurus,

Now i'm facying the problem of kunnr repitition and according to KUNNR other fields also goes to repet.Pls help me.

Thanks & Regards

Atul

TABLES : kna1.

DATA : BEGIN OF project,

ort01 TYPE kna1-ort01, "customer city

kunnr TYPE kna1-kunnr, "customer code

name1 TYPE kna1-name1, "customer name

stras TYPE kna1-stras, "customer street

pstlz TYPE kna1-pstlz, "city zip-code

END OF project.

DATA itab LIKE project OCCURS 0 WITH HEADER LINE.

SELECTION-SCREEN : BEGIN OF BLOCK blk1 WITH FRAME TITLE t1.

SELECT-OPTIONS : customer FOR kna1-kunnr.

SELECTION-SCREEN : END OF BLOCK blk1.

INITIALIZATION.

t1 = 'Customer List'.

customer-low = '1410'.

customer-high = '2410'.

APPEND customer.

START-OF-SELECTION.

SELECT kunnr name1 stras ort01 pstlz INTO CORRESPONDING FIELDS OF TABLE itab FROM kna1

WHERE kunnr IN customer.

END-OF-SELECTION.

SORT itab BY ort01.

LOOP AT itab.

AT NEW ort01.

WRITE : /1 sy-vline, 'city:-', 8 itab-ort01,

35 sy-vline,

90 sy-vline,

100 sy-vline.

WRITE : /1(100) sy-uline.

ENDAT.

LOOP AT itab WHERE ort01 = itab-ort01.

WRITE : /1 sy-vline, 21 itab-kunnr,

35 sy-vline, 36 itab-name1,

90 sy-vline, 91 itab-pstlz,

100 sy-vline.

WRITE : / sy-vline, 35 sy-vline, 50 itab-stras, 90 sy-vline, 100 sy-vline.

ENDLOOP.

ENDLOOP.

[SuhaSaha]

Hello Atul,

What exactly is your requirement?

Please close your [Previous Post|; or continue with it.

Do you want to print only unique records ?

BR,

Suhas

Edited by: Suhas Saha on Jan 30, 2009 11:56 AM

[Former Member]

Hi,

After sort of internal table use,

DELETE ADJACENT DUPLICATES FROM itab BY COMPARING ALL FIELDS.

[Former Member]

Hey,

See ur previous post i gave the solution for ur problem,

Thanks.

[Former Member]

You are looping your table itab twice that why data is repiting

do it this way:

END-OF-SELECTION.

SORT itab BY ort01." kunnr.
LOOP AT itab.
AT NEW ort01.
*AT NEW kunnr.
WRITE : /1 sy-vline, 'city:-', 8 itab-ort01,
35 sy-vline,
90 sy-vline,
100 sy-vline.
WRITE : /1(100) sy-uline.
ENDAT.

*LOOP AT itab WHERE ort01 = itab-ort01. " remove this

WRITE : /1 sy-vline, 21 itab-kunnr,
35 sy-vline, 36 itab-name1,
90 sy-vline, 91 itab-pstlz,
100 sy-vline.
WRITE : / sy-vline, 35 sy-vline, 50 itab-stras, 90 sy-vline, 100 sy-vline.

*ENDLOOP.       " remove this 
ENDLOOP.

With luck,

Pritam.