topic Re: sorting itabs in Application Development and Automation Discussions

sorting itabs

Former Member — Mon, 10 Sep 2007 07:42:57 GMT

Hi. Could You give me some tip how to solve such problem:

REPORT ZWOP_TEST5 .

DATA: BEGIN OF a OCCURS 0,
        value1 TYPE c,
      END OF a.

DATA: BEGIN OF b OCCURS 0,
        value2 TYPE c,
      END OF b.

TYPES: BEGIN OF _itab.
  INCLUDE STRUCTURE a.
  INCLUDE STRUCTURE b  .
TYPES: END OF _itab.
DATA: itab TYPE STANDARD TABLE OF _itab WITH HEADER LINE.

a-value1 = 'A'. APPEND a.
a-value1 = 'B'. APPEND a.
a-value1 = 'C'. APPEND a.
a-value1 = 'D'. APPEND a.
SORT a BY value1.

b-value2 = 'A'. APPEND b.
b-value2 = 'B'. APPEND b.
b-value2 = 'B'. APPEND b.
b-value2 = 'C'. APPEND b.
SORT b BY value2

So it's

a | b
--|--
A | A
B | B
C | B
D | C

I want itab looks sth like that:

v1|v2
--|--
A | A
B | B
  | B
C | C
D |

Sorry, I hadn't precised my post.

I neet to fill table itab with values from a & b creating 'pairs'.

Message was edited by:

Piotr Wojciechowski

Re: sorting itabs

Former Member — Mon, 10 Sep 2007 07:49:14 GMT

hi,

try like this,

a-value1 = 'A'. APPEND a.

a-value1 = 'B'. APPEND a.

a-value1 = ' '. APPEND a. // OR USE KEYWORD NULL

a-value1 = 'C'. APPEND a.

a-value1 = 'D'. APPEND a.

b-value2 = 'A'. APPEND b.

b-value2 = 'B'. APPEND b.

b-value2 = 'C'. APPEND b.

b-value2 = ' '. APPEND b.

IF HELPFUL REWARD SOME POINTS.

WITH REGARDS,

SURESH ALURI.

Re: sorting itabs

Former Member — Mon, 10 Sep 2007 07:49:31 GMT

Hi,

sort itab v2

regards

Nicole

Re: sorting itabs

Former Member — Mon, 10 Sep 2007 07:50:52 GMT

Hi,

do like this.

DATA: BEGIN OF a OCCURS 0,

value1 TYPE c,

END OF a.

DATA: BEGIN OF b OCCURS 0,

value2 TYPE c,

END OF b.

TYPES: BEGIN OF _itab.

INCLUDE STRUCTURE a.

INCLUDE STRUCTURE b .

TYPES: END OF _itab.

DATA: itab TYPE STANDARD TABLE OF _itab WITH HEADER LINE.

itab-value1 = 'A'.

itab-value2 = 'A'. APPEND itab.

itab-value1 = 'B'.

itab-value2 = 'B'. APPEND itab.

itab-value1 = 'C'.

itab-value2 = 'B'. APPEND itab.

itab-value1 = 'D'.

itab-value2 = 'C'. APPEND itab.

sort itab by value1 value2 ASCENDING.

LOOP AT itab.

write:/ itab-value1,itab-value2.

ENDLOOP.

reward if helpful

rgds,

bharat.

Re: sorting itabs

Former Member — Mon, 10 Sep 2007 07:52:28 GMT

Sorry, I hadn't precised my post.

I neet to fill table itab with values from a & b creating 'pairs'.

Re: sorting itabs

Former Member — Mon, 10 Sep 2007 08:14:06 GMT

DATA: BEGIN OF a OCCURS 0,

value1 TYPE c,

END OF a.

DATA: BEGIN OF b OCCURS 0,

value2 TYPE c,

END OF b.

DATA: f TYPE i,

f1 TYPE i.

TYPES: BEGIN OF _itab.

INCLUDE STRUCTURE a.

INCLUDE STRUCTURE b .

TYPES: END OF _itab.

DATA: itab TYPE STANDARD TABLE OF _itab WITH HEADER LINE.

a-value1 = 'A'. APPEND a.

a-value1 = 'B'. APPEND a.

a-value1 = 'C'. APPEND a.

a-value1 = 'D'. APPEND a.

SORT a BY value1.

b-value2 = 'A'. APPEND b.

b-value2 = 'B'. APPEND b.

b-value2 = 'C'. APPEND b.

SORT b BY value2.

LOOP AT a.

f = 0.

f1 = 0.

LOOP AT b.

CLEAR itab.

IF ( a-value1 = b-value2 ).

f1 = 1.

IF f = 0.

f = 1.

itab-value1 = a-value1.

itab-value2 = b-value2.

ELSE.

itab-value2 = b-value2.

ENDIF.

APPEND itab.

ENDIF.

ENDLOOP.

CLEAR itab.

IF f1 = 0.

itab-value1 = a-value1.

APPEND itab.

ENDIF.

ENDLOOP.

LOOP AT itab.

WRITE:/ itab-value1,itab-value2.

ENDLOOP.