How to impreove performance of 5 tables query?

Question

Hello Experts,
I am using 6 tables in my report.i want to display recores by AT NEW and Related stuff.
Can i use following code for query and internal tables ?
or Sujjest me Better code.
to use loop within loop is not good idea.
please sujjest me perfect and fast code !!
Thanks in advance !!
( see my below code)
TABLE DECLARATION ************************
TABLES : VBAK,AFPO,AUFM,MAKT,KNA1,VBAP.
INTERNAL TABLE DECLARATION *******************
DATA :  BEGIN OF T1 OCCURS 0,
          AUART TYPE VBAK-AUART,
          NETWR TYPE VBAK-NETWR,
          KUNNR TYPE VBAK-KUNNR,
          VBELN TYPE VBAK-VBELN,
          AUDAT TYPE VBAK-AUDAT,
        END OF T1.
DATA :  BEGIN OF T2 OCCURS 0,
         NETWR TYPE VBAP-NETWR,
         POSNR TYPE VBAP-POSNR,
        END OF T2.
DATA : BEGIN OF T3 OCCURS 0,
        AUFNR TYPE AFPO-AUFNR,
        KDPOS TYPE AFPO-KDPOS,
        KDAUF TYPE AFPO-KDAUF,
        PSMNG TYPE AFPO-PSMNG,
        WEMNG TYPE AFPO-WEMNG,
       END OF T3.
DATA : BEGIN OF T4 OCCURS 0,
         DMBTR TYPE AUFM-DMBTR,
         MATNR TYPE AUFM-MATNR,
         ELIKZ TYPE AUFM-ELIKZ,
       END OF T4.
DATA : BEGIN OF T5 OCCURS 0,
        NAME1 TYPE KNA1-NAME1,
       END OF T5.
DATA : BEGIN OF T6 OCCURS 0,
        MAKTX TYPE MAKT-MAKTX,
       END OF T6.
FREE T1.
SELECT VBELN NETWR AUART AUDAT KUNNR FROM VBAK INTO CORRESPONDING FIELDS
OF TABLE T1 WHERE  AUART IN AUART AND  VBELN IN VBELN.
FREE T2.
SELECT  NETWR POSNR FROM VBAP INTO CORRESPONDING FIELDS OF TABLE T2
FOR ALL ENTRIES IN T1 WHERE  VBELN = T1-VBELN .
FREE T3.
SELECT AUFNR PSMNG WEMNG KDPOS FROM AFPO INTO CORRESPONDING FIELDS OF
TABLE T3 FOR ALL ENTRIES IN T1 WHERE KDAUF =  T1-VBELN .
FREE T4.
SELECT DMBTR MATNR ELIKZ FROM AUFM INTO CORRESPONDING FIELDS OF
TABLE T4 FOR ALL ENTRIES IN T3 WHERE AUFNR = T3-AUFNR.
FREE T6.
SELECT  MAKTX FROM MAKT INTO CORRESPONDING FIELDS OF TABLE T6 WHERE
MATNR = T4-MATNR.
FREE T5.
SELECT NAME1 FROM KNA1 INTO CORRESPONDING FIELDS OF TABLE T5 WHERE
KUNNR =  T1-KUNNR.

Answer 1

hi,
first avoid <b>into corresponding fields</b> statement intead of this u can define <b>into table</b>,
if u r using for all entries in, then check for all entries internal table first like this,
if  is T1[] not initial.
"then u can write select statement.
endif.
reward points if useful,
regards,
seshu.