Skip to Content
0
May 28, 2008 at 09:17 AM

How to tune this loop??

46 Views

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