Combining Logical Databases?

Question

Hi all,
I am using the logical database ADA in a program that I am writing. I need to combine ANLAV, ANLCV, and ANEPV into one super structure that I've created with our necessary fields. The super structure is made up of 4 other structures -- a header structure and 3 custom structure versions of ANLAV, ANLCV, and ANEPV.
I've set up 3 different internal tables and work areas. I currently have the following code to get the data from those tables:
tables: anlav, anlcv, anepv.
initialization.
  get anlav.
  move-corresponding anlav to wa_anlav.
  append wa_anlav to it_anlav.
  get anlcv.
  move-corresponding anlcv to wa_anlcv.
  append wa_anlcv to it_anlcv.
  get anepv.
  move-corresponding anepv to wa_anepv.
  append wa_anepv to it_anepv.
What would be the best way to join those three tables? I was considering the following (pseudocode):
loop at it_anlav into wa_ada.
  read it_anlcv into wa_ada1.
  read it_anepv into wa_ada2.
  move-corresponding wa_ada1 to wa_ada.
  move-corresponding wa_ada2 to wa_ada.
  collect wa_ada to it_ada.
endloop.
My worry is that I will miss some data in the process. I don't know if it's plausible, but for example, if ANLAV returns 10 records, ANLCV returns only 5, but ANEPV returns 15, then I imagine I would lose the extra five records in ANEPV.
Any helpful suggestions will be awarded points. Thanks in advance.

Answer 1

Hi,
OK..Try this..
DATA: V_it_anlav  TYPE XFELD.
DATA: V_it_anlcv  TYPE XFELD.
DATA: V_it_anepv TYPE XFELD.
DO.
CLEAR: WA_IT_ANLAV,
             WA_IT_ANLCV,
             WA_IT_ANEPV.
READ TABLE IT_ANLAV INTO WA_IT_ANLAV
                     INDEX SY-INDEX.
IF SY-SUBRC <> 0.
  V_IT_ANLAV = 'X'.
ENDIF.
READ TABLE IT_ANLCV INTO WA_IT_ANLCV
                     INDEX SY-INDEX.
IF SY-SUBRC <> 0.
  V_IT_ANLCV = 'X'.
ENDIF.
READ TABLE IT_ANEPV INTO WA_IT_ANEPV
                     INDEX SY-INDEX.
IF SY-SUBRC <> 0.
  V_IT_ANEPV = 'X'.
ENDIF.
Exit out of the loop if none of the three internal tables has records.
IF V_IT_ANLAV = 'X' AND
    V_IT_ANLCV = 'X' AND
    V_IT_ANEPV = 'X'.
  EXIT.
ENDIF.
Move the records to the output internal table.
MOVE-CORRESPONDING WA_IT_ANLAV TO WA_ADA.
MOVE-CORRESPONDING WA_IT_ANLCV TO WA_ADA.
MOVE-CORRESPONDING WA_IT_ANEPV TO WA_ADA.
APPEND WA_ADA TO IT_ADA.
ENDDO.
Hope this works..
THanks,
Naren