REPORT TAKING MORE CPU UTILIZATION

Question

Hello Experts,
my following report is of sales order report it gives me an output in less than 250 seconds,
But taking 80 percentage CPU time so tell me how to overcome this problem ??
<b>&----
*& Report  ZMSL_SALES_ORDER_REPORT
REPORT  ZMSL_SALES_ORDER_REPORT.
DEFINE: M_FIELDCAT.
  ADD 1 TO LS_FIELDCAT-COL_POS.
  LS_FIELDCAT-FIELDNAME = &1.
  LS_FIELDCAT-SELTEXT_L = &2.
  LS_FIELDCAT-OUTPUTLEN = &3.
  LS_FIELDCAT-TABNAME = 'gt_final_data'.
  APPEND LS_FIELDCAT TO FELD_CAT.
END-OF-DEFINITION.
*==================Start of Datebase tables Declaration=================
TABLES : VBAK, "Sales Document: Header Data
         VBAP, "Sales Document: Item Data
         MARA, "Matrial Master
         VBEP, "Sales Document: Schedule Line Data
         VBPA, "Sales Document: Partner
         TVROT,
         YMSLT_MAIL_ID.
*=================End of Datebase tables Declaration====================
*==================Start of Virable  ALV  declaration=================
**=============================
TYPE POOLS
*=============================
TYPE-POOLS: SLIS.
*=============================
*FIELD CATALOG DECLARATION
*=============================
CONSTANTS : CO_FORMNAME_TOP_OF_PAGE  TYPE SLIS_FORMNAME
                                     VALUE 'TOP_OF_PAGE'.
DATA : G_TABNAME_HEADER TYPE SLIS_TABNAME,
       G_TABNAME_ITEM   TYPE SLIS_TABNAME.
DATA:  FELD_CAT TYPE SLIS_T_FIELDCAT_ALV," WITH HEADER LINE ,
       ALV_LAYOUT   TYPE SLIS_LAYOUT_ALV,
       T_EVENTS           TYPE SLIS_T_EVENT,
       G_SAVE(1) TYPE C,
       G_VARIANT LIKE DISVARIANT,
       GX_VARIANT LIKE DISVARIANT,
       EVENTS   TYPE SLIS_T_EVENT,
       G_EXIT(1) TYPE C,
       LAYOUT   TYPE SLIS_LAYOUT_ALV,
       ALV_PRINT        TYPE SLIS_PRINT_ALV,
       ALV_DETAIL_FUNC(30),
      EVENTS   TYPE SLIS_T_EVENT,
       T_LIST_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER.
CONSTANTS: FORMNAME_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE'.
RANGES : R_PARVW FOR VBPA-PARVW.
*=================End of Virable  tables Declaration====================
*==================Start of Selection Screen Declaration================
SELECTION-SCREEN : BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECTION-SCREEN BEGIN OF BLOCK VAR WITH FRAME TITLE VARIANT.
PARAMETERS     : P_VARI LIKE DISVARIANT-VARIANT.
SELECTION-SCREEN END OF BLOCK VAR.
SELECTION-SCREEN :BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-002.
SELECT-OPTIONS : S_VKORG FOR VBAK-VKORG OBLIGATORY, " Sales Org.
                 S_VKBUR FOR VBAK-VKBUR, " Sales Office
                 S_VKGRP FOR VBAK-VKGRP, " Sales Group
                 S_VTWEG FOR VBAK-VTWEG. " Distribution Channel
SELECTION-SCREEN :END OF BLOCK B2.
SELECTION-SCREEN :BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-003.
SELECT-OPTIONS : S_KUNNR FOR VBAK-KUNNR, "Customer Number
                 S_VBELN FOR VBAK-VBELN, "Sales Order Number
                 S_ERDAT FOR VBAK-ERDAT, "OBLIGATORY, "Sales Order Date
                 S_AUGRU FOR VBAK-AUGRU, "Order Reason
                 S_BSTNK FOR VBAK-BSTNK, "PO Number
                 S_AUART FOR VBAK-AUART. "Sales order type
SELECTION-SCREEN :END OF BLOCK B3.
SELECTION-SCREEN :BEGIN OF BLOCK B4 WITH FRAME TITLE TEXT-004.
SELECT-OPTIONS : S_WERKS FOR VBAP-WERKS,  "plant,
                 S_MATNR FOR VBAP-MATNR, " Matrial Code
                 S_PSTYV FOR VBAP-PSTYV, "Sales Order Item cat.
                 S_EDATU FOR VBEP-EDATU,  "Conformatin Date
                 S_REQDAT FOR VBAP-ZZCUST_REQDAT. "Req.Del Date
SELECTION-SCREEN :END OF BLOCK B4.
SELECTION-SCREEN :BEGIN OF BLOCK B5 WITH FRAME TITLE TEXT-005.
SELECT-OPTIONS : S_ZE FOR  VBPA-KUNNR NO INTERVALS NO-EXTENSION , "Partner Function
                 S_ZS FOR VBPA-KUNNR NO INTERVALS NO-EXTENSION, "Partner Function
                 S_ZA FOR VBPA-KUNNR NO INTERVALS NO-EXTENSION, "Partner Function
                 S_ZR FOR VBPA-KUNNR NO INTERVALS NO-EXTENSION, "Partner Function
                 S_ZI FOR VBPA-KUNNR NO INTERVALS NO-EXTENSION. "Partner Function
*FOR VBPA-KUNNR MATCHCODE OBJECT ZSMR ,
***SELECT-OPTIONS : S_ZE FOR  VBPA-PARVW NO INTERVALS NO-EXTENSION , "Partner Function
                S_ZS FOR VBPA-PARVW NO INTERVALS NO-EXTENSION, "Partner Function
                S_ZA FOR VBPA-PARVW NO INTERVALS NO-EXTENSION, "Partner Function
                S_ZR FOR VBPA-PARVW NO INTERVALS NO-EXTENSION, "Partner Function
                S_ZI FOR VBPA-PARVW NO INTERVALS NO-EXTENSION. "Partner Function
SELECTION-SCREEN :END OF BLOCK B5.
SELECTION-SCREEN : BEGIN OF BLOCK B6 WITH FRAME TITLE TEXT-006.
PARAMETER :  P_SCREEN RADIOBUTTON GROUP RTYP DEFAULT 'X' USER-COMMAND
                                                 UCOMM ,
             P_FILE  RADIOBUTTON GROUP RTYP,
             P_MAIL  RADIOBUTTON GROUP RTYP.
SELECTION-SCREEN :END OF BLOCK B6.
SELECTION-SCREEN : BEGIN OF BLOCK B7 WITH FRAME TITLE TEXT-007.
PARAMETER :  P_PEN RADIOBUTTON GROUP RE1 DEFAULT 'X' USER-COMMAND
                                                 UCOMM , " Pending Sales order
             P_ALL  RADIOBUTTON GROUP RE1,  " ALL Sales order
             P_BLOCK  RADIOBUTTON GROUP RE1.  " Blocked Sales order
            P_DELE   RADIOBUTTON GROUP RE1.  " Delevered Sales order
SELECTION-SCREEN :END OF BLOCK B7.
SELECTION-SCREEN : END OF BLOCK B1.
*=================End of Selection Screen Declaration===================
*==================Start of Internal table Declaration==================
Internal table for vbak
DATA : BEGIN OF GT_VBAK OCCURS 0 ,
            VBELN             LIKE VBAK-VBELN , " Sales Document Number
            ERDAT             LIKE VBAK-ERDAT , " Order Date
            AUART             LIKE VBAK-AUART,  "Sales Document Type
            VTWEG             LIKE VBAK-VTWEG,  "Distribution Channel
            SPART             LIKE VBAK-SPART,  "Division
            KNUMV             LIKE VBAK-KNUMV ,  "Number of the document condition
            BSTNK             LIKE VBAK-BSTNK, " cUSTOMER pURCHASE ORDER NUMBER
            BSTDK             LIKE VBAK-BSTDK,  "Customer purchase order date
            KUNNR             LIKE VBAK-KUNNR,  " Customer Code
            ZOA_RECP_PLAN_DT  LIKE VBAK-ZOA_RECP_PLAN_DT, "Order receipt at plant
       END OF GT_VBAK.
Internal table for VBAP
DATA : BEGIN OF GT_VBAP OCCURS 0,
          VBELN LIKE VBAP-VBELN, " Sales Document Number
          POSNR LIKE VBAP-POSNR, " Sales Doc. Line item number
          MATNR LIKE VBAP-MATNR,
          ABGRU LIKE VBAP-ABGRU, "Reason for rejection
          MEINS LIKE VBAP-MEINS,  "Base Unit of Measure
          FAKSP LIKE VBAP-FAKSP,
          NETWR  LIKE VBAP-NETWR, " Net Value
          KWMENG LIKE VBAP-KWMENG, " Order Quantity
          WERKS LIKE VBAP-WERKS, "PLANT
          LGORT LIKE VBAP-LGORT, "S.Loc
          ROUTE LIKE VBAP-ROUTE, " Route
          ZZWIDTH LIKE VBAP-ZZWIDTH, " widht
          ZZKDMAT LIKE VBAP-ZZKDMAT, " customer Matrial
          ZZBRAND LIKE VBAP-ZZBRAND, " bRAND
          ZZSPLDIA LIKE VBAP-ZZSPLDIA, "Spool Diameter
          ZZCUST_REQDAT LIKE VBAP-ZZCUST_REQDAT, " REquested Date
          ZZCOATING LIKE VBAP-ZZCOATING,
          ZZWEIGHT LIKE VBAP-ZZWEIGHT,
          ZZWEIGHT_UMO LIKE VBAP-ZZWEIGHT_UMO,
         END OF GT_VBAP.
Internal table for VBEP
DATA : BEGIN OF GT_VBEP OCCURS 0,
          VBELN LIKE VBEP-VBELN, " Sales Doc. Number
          POSNR LIKE VBEP-POSNR, " Sales Doc. Item Number
          ETENR LIKE VBEP-ETENR, "Delivery Schedule Line Number
          EDATU LIKE VBEP-EDATU, "Schedule line date
         END OF GT_VBEP.
Internal table for VBPA
DATA : BEGIN OF GT_VBPA OCCURS 0,
         VBELN LIKE VBAP-VBELN, "Sales Document Number
         POSNR LIKE VBAP-POSNR, "Sales Document Item Number
         PARVW LIKE VBPA-PARVW, "Partner Function
         KUNNR LIKE VBPA-KUNNR, " Customer Number
      END OF GT_VBPA.
Internal table for VBKD
DATA : BEGIN OF GT_VBKD OCCURS 0,
        VBELN LIKE VBKD-VBELN , " Sales Documet number
        KDGRP LIKE VBKD-KDGRP, " Custoemr Group
        INCO1 LIKE VBKD-INCO1, "Incoterms (Part 1)
        INCO2 LIKE VBKD-INCO2, "Incoterms (Part 2)
        ZTERM LIKE VBKD-ZTERM, " Payment Term
        STCUR LIKE VBKD-STCUR, " Exchang Rate
     END OF GT_VBKD.
Internal table VBFA
DATA : BEGIN OF GT_VBFA OCCURS 0 ,
         VBELV   LIKE VBFA-VBELV, " Preceding sales and distribution document
         POSNV   LIKE VBFA-POSNV, "Preceding item of an SD document
         VBELN   LIKE VBFA-VBELN, "Subsequent sales and distribution document
         POSNN   LIKE VBFA-POSNN, "Subsequent item of an SD document
         VBTYP_N LIKE VBFA-VBTYP_N, "Document category of subsequent document
         RFMNG   LIKE VBFA-RFMNG,    "Referenced quantity in base unit of measure
       END OF GT_VBFA.
Internal table for KONV
DATA :  BEGIN OF GT_KONV OCCURS 0,
              KNUMV LIKE KONV-KNUMV, "Number of the document condition
              KPOSN LIKE KONV-KPOSN, "Condition item number
              KSCHL LIKE KONV-KSCHL , "Cond Type.
              KBETR LIKE KONV-KBETR, " Rate per KG
              WAERS LIKE KONV-WAERS, "currency
              KWERT LIKE KONV-KWERT, "Condition value
          END OF GT_KONV.
Internal table for MSKA,
DATA  : BEGIN OF GT_MSKA OCCURS 0,
           MATNR LIKE MSKA-MATNR, "Matrial
           WERKS LIKE MSKA-WERKS, "PLANT
           LGORT LIKE MSKA-LGORT, "S. Loc
           CHARG  LIKE MSKA-CHARG,"Batch Number
           SOBKZ LIKE MSKA-SOBKZ, "Special Stock Indicator
           VBELN LIKE MSKA-VBELN , "Sales Doc Number
           POSNR LIKE MSKA-POSNR, "Sales Doc Item Number
           KALAB LIKE MSKA-KALAB, "Unrestricted-Use Stock
           KAINS LIKE MSKA-KAINS, " Stock in Quality Inspection
        END OF GT_MSKA.
Internal table for MARD
DATA : BEGIN OF GT_MARD OCCURS 0 ,
          MATNR LIKE MARD-MATNR, "Matrial
          WERKS LIKE MARD-WERKS, "PLANT
          LGORT LIKE MARD-LGORT, "S. Loc
          LABST LIKE MARD-LABST, "Valuated Unrestricted-Use Stock
       END OF GT_MARD.
Internal table for KNA1
DATA : BEGIN OF GT_KNA1 OCCURS 0,
           KUNNR LIKE KNA1-KUNNR , " Customer Number
           NAME1 LIKE KNA1-NAME1,  "Customer Name
           NAME2 LIKE KNA1-NAME2,  " Customer Name
           ORT01 LIKE KNA1-ORT01, "City
        END OF GT_KNA1.
DATA: BEGIN OF GT_KNA1_1 OCCURS 0,
          KUNNR LIKE KNA1-KUNNR , " Customer Number
          NAME1 LIKE KNA1-NAME1,  "Customer Name
         ORT01 LIKE KNA1-ORT01,
       END OF GT_KNA1_1.
Internal table for KNVV
DATA : BEGIN OF GT_KNVV OCCURS 0,
            KUNNR LIKE KNVV-KUNNR , " Customer Number
            KLABC LIKE KNVV-KLABC, " Custoemr Class
       END OF GT_KNVV.
Internal table for MAKT,
DATA : BEGIN OF GT_MAKT OCCURS 0,
         MATNR LIKE MAKT-MATNR,  "Matrial
         SPRAS LIKE MAKT-SPRAS,
         MAKTX LIKE MAKT-MAKTX, "Matrial DESC
         MAKTG LIKE MAKT-MAKTG,
      END OF GT_MAKT.
Internal table for MVKE
DATA : BEGIN OF GT_MVKE OCCURS 0 ,
            MATNR LIKE MVKE-MATNR,  "Matrial
            MVGR1 LIKE MVKE-MVGR1, " Matrial Group
      END OF GT_MVKE.
Internal table for TVM1T
DATA : BEGIN OF GT_TVM1T OCCURS 0 ,
             SPRAS LIKE TVM1T-SPRAS,
             MVGR1 LIKE TVM1T-MVGR1, " Matrial Group
             BEZEI LIKE TVM1T-BEZEI, "  Matrial Group DESC
      END OF GT_TVM1T.
Internal table for TSPAT
DATA : BEGIN OF GT_TSPAT OCCURS 0,
            SPRAS LIKE TSPAT-SPRAS,
            SPART LIKE VBAK-SPART,  "Division
            VTEXT LIKE TSPAT-VTEXT, "Division Desc
       END OF GT_TSPAT.
Internal table for TVTWT
DATA : BEGIN OF GT_TVTWT OCCURS 0 ,
        SPRAS LIKE TVTWT-SPRAS,
        VTWEG LIKE VBAK-VTWEG, "  Distribution Channel
        VTEXT LIKE TVTWT-VTEXT, "Distribution Channel Desc
       END OF GT_TVTWT.
Internal table for TVAKT
DATA : BEGIN OF GT_TVAKT OCCURS 0,
          SPRAS LIKE TVAKT-SPRAS,
          AUART LIKE VBAK-AUART,  "Sales Document Type
          BEZEI LIKE TVAKT-BEZEI, "sALES dOC TYPE Description
       END OF GT_TVAKT .
Internal table for T151t
DATA: BEGIN OF GT_VBUP OCCURS 0,
          VBELN LIKE VBUP-VBELN,
          POSNR LIKE VBUP-POSNR,
          GBSTA LIKE VBUP-GBSTA,
      END OF GT_VBUP.
DATA : BEGIN OF GT_T151T OCCURS 0,
          SPRAS LIKE T151T-SPRAS,
          KDGRP LIKE VBKD-KDGRP, " Custoemr Group
          KTEXT LIKE T151T-KTEXT, " Custoemr Group Desc
      END OF GT_T151T.
DATA : BEGIN OF GT_TVROT OCCURS 0,
          SPRAS LIKE TVROT-SPRAS,
          ROUTE LIKE TVROT-ROUTE, " Route code
          BEZEI LIKE TVROT-BEZEI , " Route Desc
       END OF GT_TVROT.
DATA : BEGIN OF GT_T052U OCCURS 0,
          SPRAS LIKE T052U-SPRAS,
          ZTERM LIKE T052U-ZTERM, " Payment terms
          TEXT1 LIKE T052U-TEXT1, " text
       END OF GT_T052U.
DATA: BEGIN OF GT_VBUK OCCURS 0,
         VBELN LIKE VBUK-VBELN,
         WBSTK LIKE VBUK-WBSTK,
      END OF GT_VBUK.
*-------fINAL iNTERNAL TABLE FOR OUTPUT
DATA : BEGIN OF GT_FINAL_DATA OCCURS 0,
            KUNNR             LIKE VBAK-KUNNR, " cUSTOMER CODE
            NAME(70)          TYPE C, " cUSTOMER NAME
            ORT01             LIKE KNA1-ORT01, "cITY
            S_KUNNR           LIKE VBAK-KUNNR, " cUSTOMER CODE
            S_NAME(70)        TYPE C, " cUSTOMER NAME
            S_ORT01           LIKE KNA1-ORT01, "cITY
            KLABC             LIKE KNVV-KLABC, " Custoemr Class
            VBELN(70)         TYPE C, "   LIKE VBAK-VBELN, "sALES oRDER nUMBER
            POSNR             LIKE VBAP-POSNR, "SALES ORDER LINE NUMBER
            INCO1             LIKE VBKD-INCO1, "Incoterms (Part 1)
            INCO2             LIKE VBKD-INCO2, "Incoterms (Part 2)
            KALAB             LIKE MSKA-KALAB, "Unrestricted-Use Stock
            KAINS             LIKE MSKA-KAINS, " Stock in Quality Inspection
            LABST             LIKE MARD-LABST, "Valuated Unrestricted-Use Stock
            ERDAT             LIKE VBAK-ERDAT , " Order Date
            MATNR             LIKE MAKT-MATNR,  "Matrial
            MAKTX             LIKE MAKT-MAKTX, "Matrial DESC
            MAKTG             LIKE MAKT-MAKTG, "Matrial DESC
            ZZKDMAT           LIKE VBAP-ZZKDMAT, "Customter Mat. Number
            ABGRU             LIKE VBAP-ABGRU, " Reason for rejection
            COLOR(20)         TYPE C,          "Color
            COMPLEX(20)       TYPE C,         "Complex
            WIDTH(10)         TYPE C,          "Width
            KBETR             LIKE KONV-KBETR, " Rate per KG
            WAERS             LIKE KONV-WAERS, "currency
            STCUR             LIKE VBKD-STCUR, " Exchang Rate
            MEINS             LIKE VBAP-MEINS,  "Base Unit of Measure
            KWMENG            LIKE VBAP-KWMENG, " Order Quantity
            RFMNG             LIKE VBFA-RFMNG,    "Referenced quantity in base unit of measure
            BAL_QTY           LIKE VBFA-RFMNG, " Balance QTY
            EDATU             LIKE VBEP-EDATU, "Schedule line date
            DAYS(5)          TYPE C, " Sch.Delay
            BSTNK             LIKE VBAK-BSTNK, " cUSTOMER pURCHASE ORDER NUMBER
            BSTDK             LIKE VBAK-BSTDK,  "Customer purchase order date
            VTWEG             LIKE VBAK-VTWEG,  "Distribution Channel
            SPART             LIKE VBAK-SPART,  "Division
            DIST_NAME         LIKE TVTWT-VTEXT, "Distribution Channels NAME
            DIV_NAME          LIKE TSPAT-VTEXT, "Sales Divisions NAME
            ZA_KUNNR          LIKE KNA1-KUNNR,
            ZA_NAME               LIKE KNA1-NAME1,
            ZE_KUNNR          LIKE KNA1-KUNNR,
            ZE_NAME               LIKE KNA1-NAME1,
            ZI_KUNNR          LIKE KNA1-KUNNR,
            ZI_NAME               LIKE KNA1-NAME1,
            ZR_KUNNR          LIKE KNA1-KUNNR,
            ZR_NAME               LIKE KNA1-NAME1,
            ZS_KUNNR          LIKE KNA1-KUNNR,
            ZS_NAME               LIKE KNA1-NAME1,
            MVGR1(20)         TYPE C          , " Matrial Group
            B_VALUE           LIKE KONV-KWERT, "bASIC value
            EX_VALUE          LIKE KONV-KWERT, "eXCISE value
            EC_VALUE          LIKE KONV-KWERT, "ecess value
            HE_VALUE          LIKE  KONV-KWERT, "hcess value
            VAT_VALUE         LIKE KONV-KWERT, "VAT value
            CST_VALUE         LIKE KONV-KWERT, "CST
            F_VALUE           LIKE KONV-KWERT, "fREIGJT
            C_VALUE           LIKE KONV-KWERT, "cOMISSION
            KDGRP(70)         TYPE C, " Custoemr Group
            NETWR             LIKE VBAP-NETWR, " Net Value
            INR               LIKE VBAP-NETWR, " inr Net Value
            AUART             LIKE VBAK-AUART,  "Sales Document Type
            BEZEI             LIKE TVAKT-BEZEI, "SALES DOC TYPE DESC
            ZOA_RECP_PLAN_DT  LIKE VBAK-ZOA_RECP_PLAN_DT, "Order receipt at plant
            ZZCUST_REQDAT     LIKE VBAP-ZZCUST_REQDAT, " REquested Date
            ROUTE             LIKE VBAP-ROUTE, " Route
            ROUTE_NAME        LIKE  TVROT-BEZEI , "Route name
            ZZBRAND           LIKE VBAP-ZZBRAND, " bRAND
            ZZSPLDIA          LIKE VBAP-ZZSPLDIA, "Spool Diameter
            ZTERM             LIKE VBKD-ZTERM, " Payment Term
            Z_TERM_TEXT(50)   TYPE C, "Payment Terms Text
            Z001(50)          TYPE C, "text
            Z002(50)          TYPE C, "text
            Z003(50)          TYPE C, "text
            Z004(50)          TYPE C, "text
            ZI_001(50)        TYPE C, "text
            ZI_002(50)        TYPE C, "text
            ZZCOATING(20)     TYPE C,
            ZZWEIGHT          LIKE VBAP-ZZWEIGHT,
            ZZWEIGHT_UMO      LIKE VBAP-ZZWEIGHT_UMO,
            WBSTK             LIKE VBUK-WBSTK,
            T_NETWR           LIKE VBAP-NETWR, " Net Value
            FAKSP             LIKE VBAP-FAKSP,
       END OF GT_FINAL_DATA.
*****Mail Data Decleration.
DATA : BEGIN OF MAIL_TAB OCCURS 0 ,
            ZE_NAME               LIKE KNA1-NAME1,
            ZS_NAME               LIKE KNA1-NAME1,
            NAME              LIKE KNA1-NAME1,
            ORT01             LIKE KNA1-ORT01, "cITY
            S_NAME            LIKE KNA1-NAME1,
            S_ORT01           LIKE KNA1-ORT01, "cITY
            KLABC             LIKE KNVV-KLABC, " Custoemr Class
            VBELN             LIKE VBAK-VBELN, "sALES oRDER nUMBER
            POSNR             LIKE VBAP-POSNR, "SALES ORDER LINE NUMBER
            ERDAT             LIKE VBAK-ERDAT , " Order Date
            MATNR             LIKE MAKT-MATNR,  "Matrial
            MAKTX             LIKE MAKT-MAKTX, "Matrial DESC
            ZZKDMAT           LIKE VBAP-ZZKDMAT, "Customter Mat. Number
            COLOR(20)         TYPE C,          "Color
            COMPLEX(20)       TYPE C,         "Complex
            WIDTH(10)         TYPE C,          "Width
            KBETR             LIKE KONV-KBETR, " Rate per KG
            WAERS             LIKE KONV-WAERS, "currency
            MEINS             LIKE VBAP-MEINS,  "Base Unit of Measure
            KWMENG            LIKE VBAP-KWMENG, " Order Quantity
            BAL_QTY           LIKE VBFA-RFMNG, " Balance QTY
            EDATU             LIKE VBEP-EDATU, "Schedule line date
            DAYS(5)          TYPE C, " Sch.Delay
            BSTNK             LIKE VBAK-BSTNK, " cUSTOMER pURCHASE ORDER NUMBER
            BSTDK             LIKE VBAK-BSTDK,  "Customer purchase order date
            ZA_NAME               LIKE KNA1-NAME1,
            ZI_NAME               LIKE KNA1-NAME1,
            ZR_NAME               LIKE KNA1-NAME1,
            MVGR1(20)         TYPE C          , " Matrial Group
            ZZCUST_REQDAT     LIKE VBAP-ZZCUST_REQDAT, " REquested Date
            ZZBRAND           LIKE VBAP-ZZBRAND, " bRAND
       END OF MAIL_TAB.
DATA : IT_MAIL_ID TYPE YMSLT_MAIL_ID OCCURS 0 WITH HEADER LINE.
DATA : SM_MAIL_ID TYPE YMSLT_MAIL_ID OCCURS 0 WITH HEADER LINE.
DATA : SP_MAIL_ID TYPE YMSLT_MAIL_ID OCCURS 0 WITH HEADER LINE.
DATA:   IT_MESSAGE TYPE STANDARD TABLE OF SOLISTI1 INITIAL SIZE 0
                WITH HEADER LINE.
DATA:   IT_ATTACH TYPE STANDARD TABLE OF SOLISTI1 INITIAL SIZE 0
                WITH HEADER LINE.
DATA:   T_PACKING_LIST LIKE SOPCKLSTI1 OCCURS 0 WITH HEADER LINE,
        T_CONTENTS LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE,
        T_RECEIVERS LIKE SOMLRECI1 OCCURS 0 WITH HEADER LINE,
        T_ATTACHMENT LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE,
        T_OBJECT_HEADER LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE,
        W_CNT TYPE I,
        W_SENT_ALL(1) TYPE C,
        W_DOC_DATA LIKE SODOCCHGI1,
        GD_ERROR    TYPE SY-SUBRC,
        GD_RECIEVER TYPE SY-SUBRC.
DATA STR_VAL TYPE STRING.
CLASS CL_ABAP_CHAR_UTILITIES DEFINITION LOAD.
CONSTANTS:
    CON_TAB  TYPE C VALUE CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB,
    CON_CRET TYPE C VALUE CL_ABAP_CHAR_UTILITIES=>CR_LF.
DATA: GT_VBAK_KNA1 LIKE GT_VBAK OCCURS 0 WITH HEADER LINE,
      GT_VBAP_VBPA LIKE GT_VBAP OCCURS 0 WITH HEADER LINE,
      GT_VBAP_MAKT LIKE GT_VBAP OCCURS 0 WITH HEADER LINE,
      GT_MVKE_TVM1T LIKE GT_MVKE OCCURS 0 WITH HEADER LINE,
      GT_VBAP_MSKA LIKE GT_VBAP OCCURS 0 WITH HEADER LINE,
      GT_VBPA_KNA1 LIKE GT_VBPA OCCURS 0 WITH HEADER LINE,
      GT_VBFA_VBUK LIKE GT_VBFA OCCURS 0 WITH HEADER LINE,
      GT_VBAP_INOB LIKE GT_VBAP OCCURS 0 WITH HEADER LINE.
DATA : BEGIN OF GT_INOB  OCCURS 0.
          INCLUDE STRUCTURE INOB.
DATA : END OF GT_INOB.
DATA: BEGIN OF GT_YCAT_PARAMS OCCURS 0,
       KEY01 TYPE YYKEY01_C10,
       KEY02 TYPE YYKEY02_C16,
       KEY03 TYPE YYKEY03_C20,
       SRNO TYPE YYSRNO_N4,
       VALUE TYPE YYVALUE_C25,
      END OF GT_YCAT_PARAMS.
DATA: BEGIN OF GT_CABN OCCURS 0,
       ATINN LIKE CABN-ATINN,
       ATNAM LIKE CABN-ATNAM,
      END OF GT_CABN.
DATA: BEGIN OF GT_AUSP OCCURS 0,
       OBJEK LIKE AUSP-OBJEK,
       ATINN LIKE AUSP-ATINN,
       ATWRT LIKE AUSP-ATWRT,
      END OF GT_AUSP.
DATA: BEGIN OF GT_CUOBJ OCCURS 0,
      CUOBJ(18) TYPE C,
        CUOBJ TYPE OBJNUM,
      END OF GT_CUOBJ.
DATA: BEGIN OF GT_CAWN OCCURS 0,
        ATINN LIKE CAWN-ATINN,
        ATZHL LIKE CAWN-ATZHL,
        ATWRT LIKE CAWN-ATWRT,
     END OF GT_CAWN.
DATA: BEGIN OF GT_CAWNT OCCURS 0,
        ATINN LIKE CAWNT-ATINN,
        ATZHL LIKE CAWNT-ATZHL,
        SPRAS LIKE CAWNT-SPRAS,
        ATWTB LIKE CAWNT-ATWTB,
     END OF GT_CAWNT.
                      START-OF-SELECTION                             *
INITIALIZATION.
  VARIANT = 'Display Options'.
RB1 = 'X'.
REPNAME = SY-REPID.
  PERFORM BUILD_EVENTTAB USING EVENTS[].
  PERFORM BUILD_LAYOUT .
  PERFORM INITIALIZE_VARIANT.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_VARI.
  PERFORM F4_FOR_VARIANT.
AT SELECTION-SCREEN.
  PERFORM PAI_OF_SELECTION_SCREEN.
END-OF-SELECTION.
  PERFORM SELECT_DATA.
  PERFORM PROCESS_DATA.
  PERFORM FILTER_PATNER_DATA.
  IF P_FILE = 'X'.
    PERFORM OUT_PUT_FILE.
  ELSEIF P_SCREEN = 'X'.
    PERFORM FILED_CAT_LOG.
    PERFORM CREATE_ALV_LAYOUT.
PERFORM fill_events.
    PERFORM OUT_PUT_DATA.
  ELSEIF P_MAIL = 'X'.
    PERFORM MAIL_RPT.
  ENDIF.
*=================Start of Internal table Declaration===================
*===========
*&      Form  SELECT_DATA
      sELECTING DATA FROM dATA bASE
FORM SELECT_DATA .
  REFRESH R_PARVW.
  R_PARVW-SIGN = 'I'.
  R_PARVW-OPTION = 'EQ'.
  IF  NOT  S_ZE[] IS INITIAL.
    R_PARVW-LOW = S_ZE-LOW.
    APPEND R_PARVW.
  ENDIF.
  IF  NOT  S_ZS[] IS INITIAL.
    R_PARVW-LOW = S_ZS-LOW.
    APPEND R_PARVW.
  ENDIF.
  IF  NOT  S_ZA[] IS INITIAL.
    R_PARVW-LOW = S_ZA-LOW.
    APPEND R_PARVW.
  ENDIF.
  IF  NOT  S_ZR[] IS INITIAL.
    R_PARVW-LOW = S_ZR-LOW.
    APPEND R_PARVW.
  ENDIF.
  IF  NOT  S_ZI[] IS INITIAL.
    R_PARVW-LOW = S_ZI-LOW.
    APPEND R_PARVW.
  ENDIF.
R_PARVW-LOW = 'SH'.
APPEND R_PARVW.
sELECTING DATA FROM VBAK TABLE INTO INTERNAL TABLE GT_VBAK
  SELECT  VBELN ERDAT AUART
          VTWEG SPART KNUMV
          BSTNK BSTDK KUNNR
           ZOA_RECP_PLAN_DT
    INTO TABLE GT_VBAK
    FROM VBAK
          WHERE VBELN IN S_VBELN
          AND ERDAT IN S_ERDAT
          AND VBTYP = 'C'
          AND AUART IN S_AUART
          AND AUGRU IN S_AUGRU
          AND VKORG IN S_VKORG
          AND VTWEG IN S_VTWEG
          AND VKGRP IN S_VKGRP
          AND VKBUR IN S_VKBUR
          AND BSTNK  IN S_BSTNK
          AND KUNNR IN S_KUNNR.
  SORT GT_VBAK[] BY VBELN.
  IF NOT GT_VBAK[] IS INITIAL.
Selecting data from VBAP into Internal tabl gt_vbap
    IF P_BLOCK = 'X' .
      SELECT  VBELN   POSNR
              MATNR  ABGRU
              MEINS   FAKSP
              NETWR KWMENG
              WERKS   LGORT
              ROUTE ZZWIDTH
              ZZKDMAT ZZBRAND
              ZZSPLDIA ZZCUST_REQDAT
              ZZCOATING ZZWEIGHT
              ZZWEIGHT_UMO
        INTO TABLE GT_VBAP
        FROM VBAP
        FOR ALL ENTRIES IN GT_VBAK
        WHERE VBELN = GT_VBAK-VBELN
        AND MATNR IN S_MATNR
        AND ABGRU <> ''
        AND WERKS IN S_WERKS
    ELSEIF P_PEN = 'X'.
      SELECT  VBELN   POSNR
              MATNR  ABGRU
              MEINS   FAKSP
              NETWR KWMENG
              WERKS   LGORT
              ROUTE ZZWIDTH
              ZZKDMAT ZZBRAND
              ZZSPLDIA ZZCUST_REQDAT
              ZZCOATING ZZWEIGHT
              ZZWEIGHT_UMO
        INTO TABLE GT_VBAP
        FROM VBAP
        FOR ALL ENTRIES IN GT_VBAK
        WHERE VBELN = GT_VBAK-VBELN
        AND MATNR IN S_MATNR
        AND FAKSP <> '10'
        AND WERKS IN S_WERKS.
    ELSE.
         SELECT  VBELN   POSNR
              MATNR  ABGRU
              MEINS   FAKSP
              NETWR KWMENG
              WERKS   LGORT
              ROUTE ZZWIDTH
              ZZKDMAT ZZBRAND
              ZZSPLDIA ZZCUST_REQDAT
              ZZCOATING ZZWEIGHT
              ZZWEIGHT_UMO
        INTO TABLE GT_VBAP
        FROM VBAP
        FOR ALL ENTRIES IN GT_VBAK
        WHERE VBELN = GT_VBAK-VBELN
        AND MATNR IN S_MATNR
        AND WERKS IN S_WERKS.
    ENDIF.
  ENDIF.
IF P_PEN = 'X'.
   SELECT VBELN POSNR GBSTA FROM VBUP INTO TABLE GT_VBUP
          FOR ALL ENTRIES IN GT_VBAP
          WHERE VBELN = GT_VBAP-VBELN AND  POSNR = GT_VBAP-POSNR AND
          GBSTA <> 'C'.
   SORT GT_VBUP[] BY VBELN.
   LOOP AT GT_VBAP.
     READ TABLE GT_VBUP WITH KEY VBELN = GT_VBAP-VBELN
                                 POSNR = GT_VBAP-POSNR.
     IF SY-SUBRC <> 0.
       DELETE GT_VBAP.
     ENDIF.
     CLEAR GT_VBUP.
   ENDLOOP.
    LOOP AT GT_VBAK.
      READ TABLE GT_VBAP WITH KEY VBELN = GT_VBAK-VBELN.
      IF SY-SUBRC <> 0.
        DELETE GT_VBAK.
      ENDIF.
      CLEAR GT_VBAP.
    ENDLOOP.
ENDIF.
  IF NOT GT_VBAP[] IS INITIAL.
    GT_VBAP_INOB[] = GT_VBAP[].
SORT GT_VBAP_INOB[] BY MATNR.
DELETE ADJACENT DUPLICATES FROM GT_VBAP_INOB COMPARING MATNR.
SELECT * FROM INOB INTO TABLE GT_INOB
     WHERE KLART = '023'
         AND  OBTAB = 'MARA'.
IF SY-SUBRC = 0.
   SELECT  KEY01 KEY02 KEY03 SRNO VALUE
                 INTO TABLE Gt_YCAT_PARAMS
                 FROM  YCAT_PARAMS
                             WHERE KEY01 = 'CHAR_NAME'
                             AND   KEY02 = 'ATNAM'
                             AND  ( KEY03 = 'COLOR' OR  KEY03 = 'COMPLEX' )
                             AND   SRNO  = '0001'.
SELECT ATINN ATNAM INTO TABLE GT_CABN FROM CABN
                          WHERE ( ATNAM = 'COLOUR' OR ATNAM = 'COMPLEX' ).
LOOP AT GT_INOB.
GT_CUOBJ-CUOBJ = GT_INOB-CUOBJ.
APPEND GT_CUOBJ.
ENDLOOP.
SELECT OBJEK ATINN ATWRT
      INTO TABLE GT_AUSP FROM AUSP
         FOR ALL ENTRIES IN GT_CUOBJ
          WHERE OBJEK = GT_CUOBJ-CUOBJ.
         AND   ATINN = L_ATINN.
SELECT ATINN ATZHL ATWRT INTO TABLE GT_CAWN
        FROM CAWN FOR ALL ENTRIES IN GT_AUSP
          WHERE ATWRT = GT_AUSP-ATWRT.
SELECT ATINN ATZHL SPRAS ATWTB INTO TABLE GT_CAWNT
       FROM CAWNT FOR ALL ENTRIES IN GT_CAWN
          WHERE ATINN = GT_CAWN-ATINN
          AND   ATZHL = GT_CAWN-ATZHL
          AND SPRAS = 'EN'.
ENDIF.
Selecting data from VBeP into Internal tabl gt_vbep
    SORT GT_VBAP[] BY VBELN POSNR.
    SELECT  VBELN POSNR
            ETENR EDATU
      INTO TABLE GT_VBEP
      FROM VBEP
      FOR ALL ENTRIES IN GT_VBAP
      WHERE VBELN = GT_VBAP-VBELN
      AND POSNR = GT_VBAP-POSNR
      AND EDATU IN S_EDATU
           AND BMENG <> 0.
    SELECT SPRAS ROUTE BEZEI
          INTO TABLE GT_TVROT
          FROM TVROT
         WHERE SPRAS = 'EN'.
  ENDIF.
  IF NOT GT_VBAP[] IS INITIAL.
    GT_VBAP_VBPA[] = GT_VBAP[].
    SORT GT_VBAP_VBPA[] BY VBELN.
    DELETE ADJACENT DUPLICATES FROM GT_VBAP_VBPA COMPARING VBELN.
Selecting data from  VBPA into Internal tabl GT_VBPA
    IF NOT R_PARVW[] IS INITIAL.
      SELECT VBELN POSNR
             PARVW KUNNR
        INTO TABLE GT_VBPA
        FROM VBPA
        FOR ALL ENTRIES IN  GT_VBAP_VBPA
        WHERE VBELN = GT_VBAP_VBPA-VBELN
        AND (  PARVW  IN R_PARVW
        OR PARVW = 'WE' ).
    ELSE.
      SELECT VBELN POSNR
             PARVW KUNNR
        INTO TABLE GT_VBPA
        FROM VBPA
        FOR ALL ENTRIES IN  GT_VBAP_VBPA
        WHERE VBELN = GT_VBAP_VBPA-VBELN
        AND  ( PARVW  = 'ZE'
        OR  PARVW = 'ZS'
        OR PARVW = 'ZA'
        OR  PARVW = 'ZR'
        OR  PARVW = 'ZI' OR PARVW = 'WE' ).
    ENDIF.
  ENDIF.
  SORT GT_VBPA[].
  GT_VBPA_KNA1[] = GT_VBPA[].
  SORT GT_VBPA_KNA1[] BY KUNNR.
  DELETE ADJACENT DUPLICATES FROM GT_VBPA_KNA1 COMPARING KUNNR.
  IF NOT GT_VBPA_KNA1[] IS INITIAL.
    SELECT KUNNR NAME1 ORT01 FROM KNA1 INTO TABLE
           GT_KNA1_1 FOR ALL ENTRIES IN GT_VBPA_KNA1
            WHERE KUNNR = GT_VBPA_KNA1-KUNNR.
  ENDIF.
Selecting data from  VBKD into Internal tabl GT_VBKD
  IF NOT GT_VBAK[] IS INITIAL.
    SELECT VBELN  KDGRP
           INCO1 INCO2
           ZTERM  STCUR
      INTO TABLE GT_VBKD
      FROM VBKD
      FOR ALL ENTRIES IN GT_VBAK
      WHERE VBELN = GT_VBAK-VBELN
      AND PRSDT <> ''.
Selecting data from VBFA into Internal table gt_vbfa
    IF P_PEN = 'X'.
        SELECT VBFAVBELV   VBFAPOSNV
                VBFAVBELN   VBFAPOSNN
                VBFAVBTYP_N VBFARFMNG
           INTO TABLE GT_VBFA
           FROM VBFA INNER JOIN
           VBAK ON VBFAVBELV = VBAKVBELN
           WHERE
           ( VBFA~VBTYP_N = 'J' OR
                 VBFA~VBTYP_N = 'R').
LOOP AT GT_VBFA.
     READ TABLE GT_VBAK WITH KEY VBELN = Gt_VBFA-VBELV.
       IF SY-SUBRC <> 0.
         DELETE GT_VBFA.
       ENDIF.
CLEAR GT_VBFA.
ENDLOOP.
     SELECT VBELV   POSNV
               VBELN   POSNN
               VBTYP_N RFMNG
          INTO TABLE GT_VBFA
          FROM VBFA
          FOR ALL ENTRIES IN GT_VBAK
          WHERE VBELV = GT_VBAK-VBELN
          AND ( VBTYP_N = 'J' OR
                VBTYP_N = 'R').
    ELSE.
      SELECT VBELV   POSNV
             VBELN   POSNN
             VBTYP_N RFMNG
        INTO TABLE GT_VBFA
        FROM VBFA
        FOR ALL ENTRIES IN GT_VBAK
        WHERE VBELV = GT_VBAK-VBELN
        AND VBTYP_N = 'J'.
    ENDIF.
    SORT GT_VBFA[].
    IF GT_VBFA[] IS NOT INITIAL.
      GT_VBFA_VBUK[] = GT_VBFA[].
      SORT GT_VBFA_VBUK[] BY VBELN.
      DELETE ADJACENT DUPLICATES FROM GT_VBFA_VBUK COMPARING VBELN.
      SELECT VBELN WBSTK FROM VBUK INTO TABLE GT_VBUK
           FOR ALL ENTRIES IN GT_VBFA_VBUK
              WHERE VBELN = GT_VBFA_VBUK-VBELN.
    ENDIF.
         -----------Selection data from KONv into Internal table gt_konv
    SORT GT_VBAK[] BY KNUMV.
    SELECT KNUMV KPOSN KSCHL
           KBETR WAERS KWERT
         INTO TABLE GT_KONV
         FROM KONV
         FOR ALL ENTRIES IN GT_VBAK
         WHERE KNUMV = GT_VBAK-KNUMV
         AND ( KSCHL = 'ZBAP'
              OR   KSCHL = 'JEXP'
              OR   KSCHL = 'JEDC'
              OR   KSCHL = 'JEDH'
              OR   KSCHL = 'ZJIP'
              OR   KSCHL = 'ZCOM'
              OR   KSCHL = 'JIVC'
              OR   KSCHL   = 'JFRE' ).
  ENDIF.
  IF NOT GT_VBAP[] IS INITIAL.
sELECING dATA FROM MSKA INTO INTERNAL TABLE GT_MSKA
    GT_VBAP_MSKA[] = GT_VBAP[].
    SORT GT_VBAP_MSKA[] BY MATNR WERKS VBELN POSNR.
    DELETE ADJACENT DUPLICATES FROM GT_VBAP_MSKA COMPARING MATNR WERKS VBELN POSNR.
    SELECT  MATNR  WERKS
            LGORT  CHARG
            SOBKZ  VBELN
            POSNR
            KALAB  KAINS
      INTO TABLE GT_MSKA
      FROM MSKA
      FOR ALL ENTRIES IN GT_VBAP_MSKA
      WHERE MATNR = GT_VBAP_MSKA-MATNR
      AND WERKS = GT_VBAP_MSKA-WERKS
   AND LGORT = GT_VBAP-LGORT
      AND VBELN = GT_VBAP_MSKA-VBELN
      AND POSNR = GT_VBAP_MSKA-POSNR.
    SORT GT_MSKA[].
    DATA :BEGIN OF TMP_MATNR OCCURS 0,
           MATNR LIKE MARA-MATNR,
          END OF TMP_MATNR.
    LOOP AT GT_VBAP.
      TMP_MATNR-MATNR = GT_VBAP-MATNR.
      TMP_MATNR-MATNR+0(1) ='S'.
      APPEND TMP_MATNR.
    ENDLOOP.
    SORT TMP_MATNR[].
    DELETE ADJACENT DUPLICATES FROM TMP_MATNR COMPARING MATNR.
    SELECT MATNR
           WERKS
           LGORT
           LABST
      FROM MARD
      INTO TABLE GT_MARD
      FOR ALL ENTRIES IN TMP_MATNR
      WHERE MATNR = TMP_MATNR-MATNR."'SDX25000B040GC01'."GT_VBAP-MATNR.
  ENDIF.
  SORT GT_MARD[].
  IF NOT GT_VBAK[] IS INITIAL.
    GT_VBAK_KNA1[] = GT_VBAK[].
    SORT GT_VBAK_KNA1[] BY KUNNR.
    DELETE ADJACENT DUPLICATES FROM GT_VBAK_KNA1 COMPARING KUNNR.
    SELECT  KUNNR
                 NAME1
                 NAME2
                 ORT01
         FROM KNA1
         INTO TABLE GT_KNA1
         FOR ALL ENTRIES IN GT_VBAK_KNA1
         WHERE KUNNR = GT_VBAK_KNA1-KUNNR.
    SELECT KUNNR  KLABC
      FROM KNVV
     INTO TABLE GT_KNVV
     FOR ALL ENTRIES IN GT_VBAK_KNA1
     WHERE KUNNR = GT_VBAK_KNA1-KUNNR.
  ENDIF.
  IF NOT GT_VBAP[] IS INITIAL.
    GT_VBAP_MAKT[] = GT_VBAP[].
    SORT GT_VBAP_MAKT[] BY MATNR.
    DELETE ADJACENT DUPLICATES FROM GT_VBAP_MAKT COMPARING MATNR.
    SELECT   MATNR
             SPRAS
             MAKTX
         FROM MAKT
         INTO TABLE GT_MAKT
         FOR ALL ENTRIES IN GT_VBAP_MAKT
         WHERE MATNR = GT_VBAP_MAKT-MATNR AND
               SPRAS = 'EN'.
    SELECT MATNR
           MVGR1
      FROM MVKE
      INTO TABLE GT_MVKE
      FOR ALL ENTRIES IN GT_VBAP_MAKT
      WHERE MATNR = GT_VBAP_MAKT-MATNR
      AND MVGR1 <> ''.
  ENDIF.
  IF NOT GT_MVKE[] IS INITIAL.
    GT_MVKE_TVM1T[] = GT_MVKE[].
    SORT GT_MVKE_TVM1T[] BY MVGR1.
    DELETE ADJACENT DUPLICATES FROM GT_MVKE_TVM1T COMPARING MVGR1.
    SELECT SPRAS MVGR1 BEZEI
        FROM TVM1T
        INTO TABLE GT_TVM1T
        FOR ALL ENTRIES IN GT_MVKE_TVM1T
        WHERE SPRAS = 'EN' AND
          MVGR1 = GT_MVKE_TVM1T-MVGR1.
  ENDIF.
  IF NOT GT_VBAK[] IS INITIAL.
    SELECT SPRAS
           SPART
           VTEXT
      FROM TSPAT
      INTO TABLE GT_TSPAT
      WHERE SPRAS = 'EN'.
    SELECT  SPRAS
            VTWEG
            VTEXT
          FROM TVTWT
          INTO TABLE GT_TVTWT
          WHERE SPRAS = 'EN'.
    SELECT SPRAS AUART BEZEI
          FROM TVAKT
          INTO TABLE GT_TVAKT
          WHERE
           SPRAS = 'EN'.
  ENDIF.
  IF NOT GT_VBKD[] IS INITIAL.
    SELECT SPRAS KDGRP
           KTEXT
           FROM T151T
      INTO TABLE GT_T151T
    FOR ALL ENTRIES IN GT_VBKD
     WHERE SPRAS = 'EN' .
     AND
         KDGRP = GT_VBKD-KDGRP.
  ENDIF.
  IF NOT GT_VBKD[] IS INITIAL.
    SELECT SPRAS ZTERM TEXT1
      FROM T052U
      INTO TABLE GT_T052U
    FOR ALL ENTRIES IN GT_VBKD
      WHERE SPRAS = 'EN'.
      AND ZTERM = GT_VBKD-ZTERM.
  ENDIF.
ENDFORM.                    " SELECT_DATA
*&      Form  PROCESS_DATA
      text
-->  p1        text
<--  p2        text
FORM PROCESS_DATA .
  DATA : T_FLAG(2) TYPE C,
         J_AMT LIKE VBFA-RFMNG,
         M_AMT LIKE VBFA-RFMNG,
         R_AMT LIKE VBFA-RFMNG,
         N_AMT LIKE VBFA-RFMNG,
         JR_AMT LIKE VBFA-RFMNG,
         MN_AMT LIKE VBFA-RFMNG,
         TMP_WBSTK LIKE VBUK-WBSTK,
         SFG_MATNR LIKE MARD-MATNR.
  LOOP AT GT_VBAP.
    CLEAR : GT_FINAL_DATA,
          J_AMT ,
         M_AMT ,
         R_AMT,
         N_AMT ,
         JR_AMT ,
         SFG_MATNR,
         MN_AMT .
    READ TABLE GT_VBAK WITH KEY VBELN = GT_VBAP-VBELN.
    IF SY-SUBRC = 0.
      GT_FINAL_DATA-KUNNR    = GT_VBAK-KUNNR.
      GT_FINAL_DATA-VBELN  = GT_VBAK-VBELN.
      GT_FINAL_DATA-POSNR = GT_VBAP-POSNR.
      GT_FINAL_DATA-ABGRU = GT_VBAP-ABGRU.
    ENDIF.
    READ TABLE GT_KNA1 WITH KEY KUNNR = GT_VBAK-KUNNR.
    IF SY-SUBRC = 0.
      GT_FINAL_DATA-NAME = GT_KNA1-NAME1.
      GT_FINAL_DATA-ORT01 = GT_KNA1-ORT01.
    ENDIF.
    READ TABLE GT_KNVV WITH KEY KUNNR = GT_VBAK-KUNNR.
    IF SY-SUBRC = 0.
      GT_FINAL_DATA-KLABC = GT_KNVV-KLABC.
    ENDIF.
    IF SY-SUBRC = 0.
      READ TABLE GT_VBKD WITH KEY VBELN = GT_VBAK-VBELN.
      GT_FINAL_DATA-INCO1 = GT_VBKD-INCO1. "Incoterms (Part 1)
      GT_FINAL_DATA-INCO2 = GT_VBKD-INCO2. "Incoterms (Part 2)
      GT_FINAL_DATA-ZTERM = GT_VBKD-ZTERM. " Payment Term
    ENDIF.
    LOOP AT  GT_MSKA WHERE  MATNR = GT_VBAP-MATNR
                     AND    WERKS = GT_VBAP-WERKS
                     AND    LGORT = GT_VBAP-LGORT
                     AND    VBELN = GT_VBAP-VBELN
                     AND    POSNR = GT_VBAP-POSNR.
      GT_FINAL_DATA-KALAB = GT_FINAL_DATA-KALAB  + GT_MSKA-KALAB. "Unrestricted-Use Stock
      GT_FINAL_DATA-KAINS = GT_FINAL_DATA-KAINS + GT_MSKA-KAINS. " Stock in Quality Inspection
    ENDLOOP.
    SFG_MATNR = GT_VBAP-MATNR.
    SFG_MATNR+0(1) ='S'.
    READ TABLE  GT_MARD WITH KEY  MATNR = SFG_MATNR
                           WERKS = GT_VBAP-WERKS
                       LGORT = 'SF01'.
   loop at gt_mard where MATNR = SFG_MATNR
                   and  WERKS = GT_VBAP-WERKS.
    IF SY-SUBRC = 0.
      GT_FINAL_DATA-LABST =   GT_FINAL_DATA-LABST + GT_MARD-LABST . "Valuated Unrestricted-Use Stock
    ENDIF.
   endloop.
    GT_FINAL_DATA-MATNR = GT_VBAP-MATNR.  "Matrial
    GT_FINAL_DATA-ZZKDMAT = GT_VBAP-ZZKDMAT. " Customer Mat. N

Answer 1

Hi Rajan,
There is a lot of scope for performance tuning the code:
1. Read statement should be with BINARY SEARCH
2. Select statement should have FIELDS in the same order as they exist in the table
3. Select statement where clause should have fields in same order as they exist in the table.
4. Internal tables seem to be having a huge number of fields. If possible, please limit the fields to only required fields in the internal table.
Best regards,
Prashant