topic Re: Logic Needed. in Application Development and Automation Discussions

Logic Needed.

Former Member — Wed, 26 Sep 2007 19:17:08 GMT

Hi Guys,

Can you please suggest me the best code to do the following.

Internal Table one :

a | b | c

1 |1 | 1

1 | 1 | 2

1 | 1 | 3

Internal Table two :

a | b | c

1 | 1 | 2

1 | 1| 3

Now the output should look like

a | b | c

1 | .. | 1

1 | 1 | 2

1 | 1 | 3.

Basically, if second internal table doesnt have a value of c which the first internal table has, the output should not have b.

Thanks

Kumar.

Re: Logic Needed.

Former Member — Wed, 26 Sep 2007 19:28:51 GMT

Something like this...


LOOP AT TAB1 ASSIGNING <FS_TAB1>.
READ TABLE TAB2 WITH KEY FIELD_C = <FS_TAB1>-FIELD_C
ASSIGNING <FS_TAB2>.
IF SY-SUBRC EQ 0.
APPEND <FS_TAB2> TO TAB3.
ELSE.
CLEAR <FS_TAB1>-FIELD_B.
APPEND <FS_TAB1> TO TAB3.
ENDIF.
ENDLOOP.

Greetings,

Blag.

Message was edited by:

Alvaro Tejada Galindo

Re: Logic Needed.

Former Member — Wed, 26 Sep 2007 19:38:17 GMT

Thanks for your reply,

SELECT * FROM equi into TABLE lt_equi
                        WHERE matnr EQ t_output-matnr
                          AND CHARGe EQ t_output-CHARG.

SELECT * FROM  v_equi_eqbs_sml INTO TABLE lt_equi_eqbs_sml
                         WHERE matnr EQ t_output-matnr
                           AND CHARGe EQ t_output-charg.

and i also have another table t_ouput which has all the values of output.

To explain my scenario properly, let me explain with an example.

lets say there will be 2 values of sernr in lt_equi_eqbs_sml and 3 values(2 of them from lt_equi_eqbs_sml and an additional vaue) of sernr in lt_equi. Now I should not be displaying a certain field in t_output when that particular value of sernr occurs.

Thanks

Kumar.

Re: Logic Needed.

Former Member — Wed, 26 Sep 2007 20:01:28 GMT

Hi Kumar,

try it:

data: BEGIN OF TABLE1 OCCURS 0,

A(1),

B(1),

C(1),

END OF TABLE1,

TABLE2 LIKE STANDARD TABLE OF TABLE1 WITH HEADER LINE.

TABLE1-A = 1.

TABLE1-B = 1.

TABLE1-C = 1.

APPEND TABLE1.

TABLE1-A = 1.

TABLE1-B = 1.

TABLE1-C = 2.

APPEND TABLE1.

TABLE1-A = 1.

TABLE1-B = 1.

TABLE1-C = 3.

APPEND TABLE1.

TABLE2-A = 1.

TABLE2-B = 1.

TABLE2-C = 2.

APPEND TABLE2.

TABLE2-A = 1.

TABLE2-B = 1.

TABLE2-C = 3.

APPEND TABLE2.

NEW-LINE.

ULINE (13).

WRITE: / SY-VLINE, 'A', SY-VLINE, 'B', SY-VLINE, 'C', SY-VLINE.

NEW-LINE.

ULINE (13).

LOOP AT TABLE1.

READ TABLE TABLE2 WITH KEY C = TABLE1-C.

IF SY-TABIX <> 0.

WRITE: / SY-VLINE, TABLE1-A, SY-VLINE, TABLE1-B, SY-VLINE, TABLE1-C, SY-VLINE.

ELSE.

WRITE: / SY-VLINE, TABLE1-A, SY-VLINE, ' ', SY-VLINE, TABLE1-C, SY-VLINE.

ENDIF.

ENDLOOP.

NEW-LINE.

ULINE (13).

Regards,

Allan Cristian

Re: Logic Needed.

Former Member — Wed, 26 Sep 2007 20:15:32 GMT

Thanks Allan,

Just for the laughs, from you code

LOOP AT TABLE1.
READ TABLE TABLE2 WITH KEY C = TABLE1-C.
IF SY-TABIX <> 0. "shouldnt it be sy-subrc <>0.

I didnt realise it was sy-tabix and spent a lot of time thinking why is it going into the if statement even when sy-subrc was equal to zero.

Anyways it works and thank you very much.

Re: Logic Needed.

Former Member — Wed, 26 Sep 2007 20:44:27 GMT

Hi Kumar,

U can use SY-SUBRC or SY-TABIX;

If An entry was read.

SY-SUBRC = 0: and

SY-TABIX is set to the index of the entry;

If No entry was read.

SY-SUBRC = 4; and

SY-TABIX is undefined; so SY-TABIX = 0.

obs: Srry, not good in English...

Good Luck!

Regards,

Allan Cristian

Re: Logic Needed.

Former Member — Thu, 27 Sep 2007 11:34:02 GMT

Allan,

I have changed that to sy-subrc and a small other change and the code is working perfectly for me.

Thanks for you help.

Kumar.