loop

[Former Member]

hi to all,

plz help me in this issue,

where there r no values in bseg_data1 it is giving no output for the bseg_data2(bseg_data2 is having values). so how can i write so that it

should work for both bseg_data1 and bseg_data2.

LOOP AT BSEG_DATA1.

READ TABLE BSEG_DATA2 WITH KEY XREF1 = BSEG_DATA1-XREF1.

IF SY-SUBRC EQ 0.

IT_FINAL-DIFF = BSEG_DATA2-DMBTR - BSEG_DATA1-DMBTR.

• IT_FINAL-CHANGE = IT_FINAL-CHANGE + IT_FINAL-DIFF.

ENDIF.

MOVE : BSEG_DATA1-XREF1 TO IT_FINAL-XREF1.

MOVE : BSEG_DATA1-DMBTR TO IT_FINAL-DMBTR.

MOVE : BSEG_DATA2-DMBTR TO IT_FINAL-DMBTR1.

APPEND IT_FINAL.

CLEAR IT_FINAL.

ENDLOOP.

[Former Member]

Hi kiran,

1. how can i write so that it

should work for both bseg_data1 and bseg_data2.

Ofcourse, in that case,

u will have to use

2 DIFFERENT Loops.

a) one for BSEG_DATA1

b) another for BSEG_DATA2

regards,

amit m.

[Former Member]

if not bseg_data1[] is initial.

LOOP AT BSEG_DATA1.

READ TABLE BSEG_DATA2 WITH KEY XREF1 = BSEG_DATA1-XREF1.

IF SY-SUBRC EQ 0.

IT_FINAL-DIFF = BSEG_DATA2-DMBTR - BSEG_DATA1-DMBTR.

• IT_FINAL-CHANGE = IT_FINAL-CHANGE + IT_FINAL-DIFF.

ENDIF.

MOVE : BSEG_DATA1-XREF1 TO IT_FINAL-XREF1.

MOVE : BSEG_DATA1-DMBTR TO IT_FINAL-DMBTR.

MOVE : BSEG_DATA2-DMBTR TO IT_FINAL-DMBTR1.

APPEND IT_FINAL.

CLEAR IT_FINAL.

ENDLOOP.

else.

LOOP AT BSEG_DATA2.

READ TABLE BSEG_DATA1 WITH KEY XREF1 = BSEG_DATA2-XREF1.

IF SY-SUBRC EQ 0.

MOVE : BSEG_DATA1-XREF1 TO IT_FINAL-XREF1.

MOVE : BSEG_DATA1-DMBTR TO IT_FINAL-DMBTR.

IT_FINAL-DIFF = BSEG_DATA2-DMBTR - BSEG_DATA1-DMBTR.

• IT_FINAL-CHANGE = IT_FINAL-CHANGE + IT_FINAL-DIFF.

ENDIF.

MOVE : BSEG_DATA2-DMBTR TO IT_FINAL-DMBTR1.

APPEND IT_FINAL.

CLEAR IT_FINAL.

ENDLOOP.

endif.

Regards,

ravi

[Former Member]

Hi

if not bseg_data2[] is initial.

LOOP AT BSEG_DATA2.

READ TABLE BSEG_DATA1 WITH KEY XREF1 = BSEG_DATA2-XREF1.

IF SY-SUBRC EQ 0.

IT_FINAL-DIFF = BSEG_DATA2-DMBTR - BSEG_DATA1-DMBTR.

• IT_FINAL-CHANGE = IT_FINAL-CHANGE + IT_FINAL-DIFF.

ENDIF.

MOVE : BSEG_DATA2-XREF1 TO IT_FINAL-XREF1.

MOVE : BSEG_DATA1-DMBTR TO IT_FINAL-DMBTR.

MOVE : BSEG_DATA2-DMBTR TO IT_FINAL-DMBTR1.

APPEND IT_FINAL.

CLEAR IT_FINAL.

ENDLOOP.

else.

your code...after checking if (bseg_data1 has any records

endif.

Regards,

Raj

Message was edited by: Rajasekhar Dinavahi

[Former Member]

Hello,

Yes, as Amit said you should use 2 loops.

Regs,

Venkat Ramanan N

[Former Member]

in that case u have to put two diff.logics.

if BSEG_DATA1[] is not initial.

LOOP AT BSEG_DATA1.

READ TABLE BSEG_DATA2 WITH KEY XREF1 = BSEG_DATA1-XREF1.

IF SY-SUBRC EQ 0.

IT_FINAL-DIFF = BSEG_DATA2-DMBTR - BSEG_DATA1-DMBTR.

• IT_FINAL-CHANGE = IT_FINAL-CHANGE + IT_FINAL-DIFF.

ENDIF.

MOVE : BSEG_DATA1-XREF1 TO IT_FINAL-XREF1.

MOVE : BSEG_DATA1-DMBTR TO IT_FINAL-DMBTR.

MOVE : BSEG_DATA2-DMBTR TO IT_FINAL-DMBTR1.

APPEND IT_FINAL.

CLEAR IT_FINAL.

ENDLOOP.

else.

loop at BSEG2.

update/append it_final.

endloop.

endif.

Regards

Prabhu

[Former Member]

HI KIRAN,

LOOP AT BSEG_DATA2.

READ TABLE BSEG_DATA1 WITH KEY XREF1 = BSEG_DATA2-XREF1.

IF SY-SUBRC <> 0.

• DO YOUR PROCESSING HERE

• THIS WILL GIVE U THE MISSED RECORDS THAT ARE THERE IN * BSEG_DATA2 ONLY

ENDIF.

ENDLOOP.

-ANU

[Former Member]

I think the solution can be as below ....

LOOP AT BSEG_DATA1.

READ TABLE BSEG_DATA2 WITH KEY XREF1 = BSEG_DATA1-XREF1.

IF SY-SUBRC EQ 0.

IT_FINAL-DIFF = BSEG_DATA2-DMBTR - BSEG_DATA1-DMBTR.

<b>delete bseg_data2 index sy-tabix.</b>

<i>The delete statement would make it possible that you dont include the same record twice.</i>

ENDIF.

MOVE : BSEG_DATA1-XREF1 TO IT_FINAL-XREF1.

MOVE : BSEG_DATA1-DMBTR TO IT_FINAL-DMBTR.

MOVE : BSEG_DATA2-DMBTR TO IT_FINAL-DMBTR1.

APPEND IT_FINAL.

CLEAR IT_FINAL.

ENDLOOP.

Loop at bseg_data2.

*move the data as per your requirement.

append it_final.

clear it_final.

endloop.