Hi experts,
Kindly help me to change this code in any means to execute it in a better & faster way...
DATA : BEGIN OF ITAB OCCURS 0,
BUKRS LIKE ZSDSTFORM-BUKRS,
VKORG LIKE VBRK-VKORG,
GJAHR LIKE ZSDSTFORM-GJAHR,
KUNNR LIKE ZSDSTFORM-KUNNR,
NAME1 LIKE KNA1-NAME1,
VKBUR LIKE VBRP-VKBUR,
OFFICE LIKE TVKBT-BEZEI,
VKGRP LIKE VBRP-VKGRP,
GROUP LIKE TVGRT-BEZEI,
PERNR LIKE KNVP-PERNR,
SNAME LIKE PA0001-SNAME,
VBELN LIKE ZSDSTFORM-VBELN,
FKDAT LIKE VBRK-FKDAT,
EXNUM LIKE J_1IEXCDTL-EXNUM,
EXDAT LIKE J_1IEXCDTL-EXDAT,
AUBEL LIKE VBRP-AUBEL,
FTYPE LIKE ZSDSTFORM-FTYPE,
FNAME LIKE ZSDSTFORM-FNAME,
FDATE LIKE ZSDSTFORM-FDATE,
ERDAT LIKE ZSDSTFORM-ERDAT,
NETWR LIKE ZSDSTFORM-NETWR,
INVMT LIKE VBRK-NETWR,
BSTKD LIKE VBKD-BSTKD,
BSTDK LIKE VBKD-BSTDK,
FSLNO LIKE ZSDSTFORM-FSLNO,
VGBEL LIKE VBRP-VGBEL,
NVBELN LIKE VBFA-VBELN,
END OF ITAB.
DATA : BEGIN OF OTAB OCCURS 0,
BUKRS LIKE ZSDSTFORM-BUKRS,
VKORG LIKE VBRK-VKORG,
GJAHR LIKE ZSDSTFORM-GJAHR,
KUNNR LIKE ZSDSTFORM-KUNNR,
NAME1 LIKE KNA1-NAME1,
VKBUR LIKE VBRP-VKBUR,
OFFICE LIKE TVKBT-BEZEI,
VKGRP LIKE VBRP-VKGRP,
GROUP LIKE TVGRT-BEZEI,
PERNR LIKE KNVP-PERNR,
SNAME LIKE PA0001-SNAME,
VBELN LIKE ZSDSTFORM-VBELN,
FKDAT LIKE VBRK-FKDAT,
EXNUM LIKE J_1IEXCDTL-EXNUM,
EXDAT LIKE J_1IEXCDTL-EXDAT,
FTYPE LIKE ZSDSTFORM-FTYPE,
FNAME LIKE ZSDSTFORM-FNAME,
FDATE LIKE ZSDSTFORM-FDATE,
ERDAT LIKE ZSDSTFORM-ERDAT,
NETWR LIKE ZSDSTFORM-NETWR,
INVMT LIKE VBRK-NETWR,
BSTKD LIKE VBKD-BSTKD,
BSTDK LIKE VBKD-BSTDK,
NVBELN LIKE VBFA-VBELN,
FSLNO LIKE ZSDSTFORM-FSLNO,
VGBEL LIKE VBRP-VGBEL,
END OF OTAB.
DATA : BEGIN OF CTAB OCCURS 0,
KUNNR LIKE ZSDSTFORM-KUNNR,
NAME1 LIKE KNA1-NAME1,
VBELN LIKE ZSDSTFORM-VBELN,
FKDAT LIKE ZSDSTFORM-FKDAT,
VKBUR LIKE VBRP-VKBUR,
OFFICE LIKE TVKBT-BEZEI,
* vkgrp like vbrp-vkgrp,
* group like tvgrt-bezei,
PERNR LIKE KNVP-PERNR,
SNAME LIKE PA0001-SNAME,
FTYPE LIKE ZSDSTFORM-FTYPE,
FNAME LIKE ZSDSTFORM-FNAME,
FDATE LIKE ZSDSTFORM-FDATE,
EFORM LIKE ZSDSTFORM-EFORM,
EDATE LIKE ZSDSTFORM-EDATE,
ERDAT LIKE ZSDSTFORM-ERDAT,
NETWR LIKE ZSDSTFORM-NETWR,
FSLNO LIKE ZSDSTFORM-FSLNO,
NVBELN LIKE VBFA-VBELN,
END OF CTAB.
DATA : RTAB LIKE CTAB OCCURS 0 WITH HEADER LINE.
LOOP AT ITAB.
MOVE-CORRESPONDING ITAB TO OTAB.
APPEND OTAB.
MOVE-CORRESPONDING ITAB TO CTAB.
APPEND CTAB.
MOVE-CORRESPONDING ITAB TO RTAB.
APPEND RTAB.
ENDLOOP.
Points will be rewarded..
Rgds
Lakshmiraj