Looking for an ABAP Trick

Question

Hi All,
I have two internal tables say it_itab1 and it_itab2.
it_itab1 have distinct sale order numbers and it_itab2 contains the material numbers with the sale order numbers.
Now in the output i need those lines from it_itab2 which material numbers common amongst all the sale order numbers in it_itab1.
Any trick????????
\[removed by moderator\]
Note: I am looking for minimising the loops.
Regards,
Prakash Pandey
Edited by: Jan Stallkamp on Nov 28, 2008 2:13 PM

Answer 1

TYPE-POOLS SLIS.
TYPES: BEGIN OF T_VBAK,
        VBELN TYPE VBAK-VBELN,                       "Sales Document,
       END OF T_VBAK.
TYPES: BEGIN OF T_VBAP,
        VBELN TYPE VBAK-VBELN,                       "Sales Document,
        MATNR     TYPE VBAP-MATNR,                       "Material Number
       END OF T_VBAP.
TYPES: BEGIN OF T_FINAL,
        VBELN TYPE VBAK-VBELN,                       "Sales Document,
        MATNR     TYPE VBAP-MATNR,                       "Material Number
       END OF T_FINAL.
DATA: IT_VBAK TYPE STANDARD TABLE OF T_VBAK WITH HEADER LINE,
      IT_VBAP TYPE STANDARD TABLE OF T_VBAP WITH HEADER LINE,
      IT_FINAL TYPE STANDARD TABLE OF T_FINAL WITH HEADER LINE,
      IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
      WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
SELECT-OPTIONS: S_VBELN FOR IT_VBAK-VBELN.
SELECT VBELN FROM VBAK INTO TABLE IT_VBAK WHERE VBELN IN S_VBELN.
IF SY-SUBRC = 0.
  SORT IT_VBAK[] BY VBELN.
ENDIF.
IF NOT IT_VBAK[] IS INITIAL.
  SELECT VBELN MATNR FROM VBAP INTO TABLE IT_VBAP FOR ALL ENTRIES IN IT_VBAK WHERE VBELN = IT_VBAK-VBELN.
  IF SY-SUBRC = 0.
    SORT IT_VBAP[] BY VBELN.
  ENDIF.
ENDIF.
LOOP AT IT_VBAP .
  READ TABLE IT_VBAK WITH  KEY VBELN = IT_VBAP-VBELN.
  IF SY-SUBRC = 0.
    IT_FINAL-VBELN = IT_VBAK-VBELN.
    IT_FINAL-MATNR = IT_VBAP-MATNR.
    APPEND IT_FINAL.
  ENDIF.
ENDLOOP.
SORT IT_FINAL[] BY MATNR.
WA_FIELDCAT-FIELDNAME = 'MATNR'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'VBELN'.
APPEND WA_FIELDCAT TO  IT_FIELDCAT.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
  I_INTERFACE_CHECK              = ' '
  I_BYPASSING_BUFFER             =
  I_BUFFER_ACTIVE                = ' '
  I_CALLBACK_PROGRAM             = ' '
  I_CALLBACK_PF_STATUS_SET       = ' '
  I_CALLBACK_USER_COMMAND        = ' '
  I_STRUCTURE_NAME               =
  IS_LAYOUT                      =
   IT_FIELDCAT                    = IT_FIELDCAT
  IT_EXCLUDING                   =
  IT_SPECIAL_GROUPS              =
  IT_SORT                        =
  IT_FILTER                      =
  IS_SEL_HIDE                    =
  I_DEFAULT                      = 'X'
  I_SAVE                         = ' '
  IS_VARIANT                     =
  IT_EVENTS                      =
  IT_EVENT_EXIT                  =
  IS_PRINT                       =
  IS_REPREP_ID                   =
  I_SCREEN_START_COLUMN          = 0
  I_SCREEN_START_LINE            = 0
  I_SCREEN_END_COLUMN            = 0
  I_SCREEN_END_LINE              = 0
  IR_SALV_LIST_ADAPTER           =
  IT_EXCEPT_QINFO                =
  I_SUPPRESS_EMPTY_DATA          = ABAP_FALSE
IMPORTING
  E_EXIT_CAUSED_BY_CALLER        =
  ES_EXIT_CAUSED_BY_USER         =
  TABLES
    T_OUTTAB                       = IT_FINAL
EXCEPTIONS
   PROGRAM_ERROR                  = 1
   OTHERS                         = 2
IF SY-SUBRC <> 0.
  MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
          WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.