More time in Extracting result set ( performence) VERY URGENT

Question

Hi all,
This program is taking much more time in Extracting the  the result set.........(How to increase the performence of this program)
How to decrease the Execuition of the time.......???
***INCLUDE Z00_BCI010 .
TABLES: z00_bc_cpt_sess,       " Stockage des compteurs associés aux
                               " progs de traitement.
        z00_bc_erreur,         " Table des anomalies des programmes
" spécifiques.
*début ajout FAE 30463
        z00_bc_err_log.        "Table de stockage et retention des
"erreurs
*fin ajout FAE 30463
       t100.                  " Messages.
                   Déclaration des données internes                  *
Table interne des anomalies.
DATA: BEGIN OF itb_erreur OCCURS 0.
        INCLUDE STRUCTURE z00_bc_erreur.
DATA: END OF itb_erreur.
Nombre de jour pour la suppression des données dans la table des
anomalies
DATA: i_nb_jour(3) TYPE n.
*début ajout FAE 30463
DATA: w_dl_delai    LIKE z00_bc_err_log-z_delai,
      w_in_stockage LIKE z00_bc_err_log-z_stockage VALUE 'X'.
*fin ajout FAE 30463
Date et heure d'éxécution.
DATA: i_dt_date_execution LIKE sy-datum,
      i_hr_heure_execution LIKE sy-uzeit.
Date de suppression.
DATA: z_date LIKE sy-datum.
Compteur de session.
DATA: o_ct_session LIKE z00_bc_cpt_sess-z_ct_session.
Compteur pour le numéro de ligne de la table d'anomalie.
DATA: l_ct_num_ligne LIKE z00_bc_erreur-z_no_num_ligne VALUE '00'.
Données utile au remplissage de la table interne des anomalies.
Nom du programme ABAP.
DATA: i_repid LIKE z00_bc_erreur-z_repid.
Libellé du traitement.
DATA: w_lb_traitement LIKE itb_erreur-z_lb_lib_trait.
Clé identifiant l'objet traité.
DATA: i_ds_clef_objet LIKE z00_bc_erreur-z_ds_clef_objet.
Code anomalie.
DATA: i_cd_message LIKE sy-msgno.
Type de message d'anomalie.
DATA: i_ty_message LIKE sy-msgty.
Classe de message.
DATA: i_classe_message LIKE sy-msgid.
Variable de message.
DATA: i_msgv1 LIKE sy-msgv1,
      i_msgv2 LIKE sy-msgv2,
      i_msgv3 LIKE sy-msgv3,
      i_msgv4 LIKE sy-msgv4.
Phase d'éxécution du programme.
DATA: i_in_phase_exec LIKE z00_bc_erreur-z_in_phase_exec.
Libellé de la clé.
DATA: i_clef_objet(30).
Constante.
CONSTANTS: k_heure(8) VALUE 'Heure',                        "#EC NOTEXT
           k_code(4) VALUE 'Code',                          "#EC NOTEXT
           k_lb_message(80) VALUE 'Désignation',            "#EC NOTEXT
           k_ligne LIKE sy-linsz VALUE '127',
k_societe LIKE sy-title VALUE 'SCHNEIDER ELECTRIC INDUSTRIES S.A.S.',
           k_projet LIKE sy-title VALUE 'LOGOS'.
                            TRAITEMENT                               *
Nettoyage de la table interne et des données.
FREE itb_erreur.
CLEAR: i_msgv1,
       i_msgv2,
       i_msgv3,
       i_msgv4.
    Form F930_INIT                                                   *
Fonction :                                                           *
- Renseigne la table transparente des anomalies.                     *
Donnée globale :                                                     *
- ITB_ERREUR             Tables internes des erreurs.                *
Entrées :                                                            *
- I_REPID                Nom du programme en erreur.                 *
- I_NB_JOUR              Nombre de jour avant la suppression des     *
                         enrgistrement de la lable Z00_BC_ERREUR.    *
Sortie :                                                             *
- O_CT_SESSION           Compteur de session.                        *
FORM f930_init USING i_repid
                     i_nb_jour.
Appel de la routine de suppression des vieux enregistrement.
  PERFORM f911_suppression_anomalie USING i_repid
                                          i_nb_jour.
Mise à jour des compteur de session.
  PERFORM f912_maj_z00_bc_cpt_sess USING i_repid
                                   CHANGING o_ct_session.
ENDFORM.
    Form F930_INIT_BLOCAGE                                           *
Fonction :                                                           *
- Suppression des vieux enregistrements
- mise à jour table session
Donnée globale :                                                     *
- ITB_ERREUR             Tables internes des erreurs.                *
Entrées :                                                            *
- I_REPID                Nom du programme en erreur.                 *
- I_NB_JOUR              Nombre de jour avant la suppression des     *
                         enrgistrement de la lable Z00_BC_ERREUR.    *
Sortie :                                                             *
- O_CT_SESSION           Compteur de session.                        *
FORM f930_init_blocage USING i_repid
                             i_nb_jour.
Appel de la routine de suppression des vieux enregistrement.
avec contrôle entrée de blocage
  PERFORM f911_suppression_anomalie_bloc USING i_repid
                                               i_nb_jour.
Mise à jour des compteur de session.
  PERFORM f912_maj_z00_bc_cpt_sess USING i_repid
                                   CHANGING o_ct_session.
ENDFORM.
    Form F900_ERREUR                                                 *
Fonction :                                                           *
- Renseigne la table transparente des anomalies.                     *
Donnée globale :                                                     *
- ITB_ERREUR             Tables internes des erreurs.                *
Donnée locale :                                                      *
- l_CT_NUM_LIGNE         Compteur de ligne                           *
- O_CT_SESSION           Numéro du compteur de session               *
Entrées :                                                            *
- I_REPID                Nom du programme en erreur.                 *
- I_IN_PHASE_EXEC        Phase d'éxécution du programme              *
- I_DS_CLEF_OBJET        Clé identifiant l'objet traité.             *
- I_DT_DATE_EXECUTION    Date d'éxécution.                           *
- I_HR_HEURE_EXECUTION   Heure d'éxécution.                          *
- I_TY_MESSAGE           Type de message.                            *
- I_CD_MESSAGE           code anomalie.                              *
- I_CLASSE_MESSAGE       Classe de message.                          *
- I_MSGV1                Variable de message.                        *
- I_MSGV2                Variable de message.                        *
- I_MSGV3                Variable de message.                        *
- I_MSGV4                Variable de message.                        *
FORM f900_erreur USING i_repid
                       i_in_phase_exec
                       i_ds_clef_objet
                       i_dt_date_execution
                       i_hr_heure_execution
                       i_ty_message
                       i_cd_message
                       i_classe_message
                       value(i_msgv1)
                       value(i_msgv2)
                       value(i_msgv3)
                       value(i_msgv4).                      "#EC CALLED
DE3K913901 début ajout
On récupère l'incrément qui sera inclu au n°de session :
  IF o_ct_session IS INITIAL
  AND i_repid = 'Z06_MMR001'.
    PERFORM f912_maj_z00_bc_cpt_sess USING 'Z06_MMR001'
                                     CHANGING o_ct_session.
  ENDIF.
DE3K913901 fin ajout
Nettoyage de la zone de l'en tete de la table interne.
  CLEAR itb_erreur.
Incrementation du compteur du numéro de ligne de la table d'anomalie.
  l_ct_num_ligne = l_ct_num_ligne + 1.
Remplissage de la table interne.
  MOVE: i_repid TO itb_erreur-z_repid,
        l_ct_num_ligne TO itb_erreur-z_no_num_ligne,
        i_dt_date_execution TO itb_erreur-z_dt_date_exec,
        i_hr_heure_execution TO itb_erreur-z_hr_heure_exec,
        w_lb_traitement TO itb_erreur-z_lb_lib_trait,
        i_in_phase_exec TO itb_erreur-z_in_phase_exec,
        i_ds_clef_objet TO itb_erreur-z_ds_clef_objet.
  CONCATENATE i_ty_message
              i_cd_message
         INTO itb_erreur-z_cd_message.
Récupération du libellé du message.
  CALL FUNCTION 'MESSAGE_TEXT_BUILD'
       EXPORTING
            msgid               = i_classe_message
            msgnr               = i_cd_message
            msgv1               = i_msgv1
            msgv2               = i_msgv2
            msgv3               = i_msgv3
            msgv4               = i_msgv4
       IMPORTING
            message_text_output = itb_erreur-z_lb_message.
*début modification FAE 30463
*Si  le flag est pas coché, on met à jour la table des erreurs
*Z00_BC_ERREUR
*s'il n'y a pas d'entrée dans la table on met aussi à jour
*Z00_BC_ERREUR
  IF NOT w_in_stockage IS INITIAL.
Mise à jour de la table.
    PERFORM f910_mise_a_jour.
  ENDIF.
Mise à jour de la table interne.
  APPEND itb_erreur.
Nettoyage des variables.
  CLEAR: i_msgv1,
         i_msgv2,
         i_msgv3,
         i_msgv4.
*fin modification FAE 30463
ENDFORM.
    Form F910_MISE_A_JOUR                                            *
Fonction :                                                           *
- Mets à jour les tables Z00_BC_CPT_SESS et Z00_BC_ERREUR.           *
Donnée globale :                                                     *
- ITB_ERREUR            Tables internes des erreurs.                 *
FORM f910_mise_a_jour.
Mise à jour des anomalies.
  MOVE-CORRESPONDING itb_erreur TO z00_bc_erreur.
  CONCATENATE itb_erreur-z_dt_date_exec
              itb_erreur-z_hr_heure_exec
              o_ct_session
         INTO z00_bc_erreur-z_no_num_session.
  MODIFY z00_bc_erreur.
ENDFORM.
    Form F911_SUPPRESSION_VIEILLE_ANOMALIE                           *
Fonction :                                                           *
- Supprime les villes anomalies.                                     *
Donnée globale :                                                     *
- Z00_BC_ERREUR       Table des anomalies des programmes spécifiques.*
Entrée :                                                             *
- I_REPID             Nom du programme en erreur.                    *
- I_NB_JOUR           Nombre de jour avant la suppression des        *
                      enrgistrement de la lable Z00_BC_ERREUR.       *
FORM f911_suppression_anomalie USING i_repid
                                     i_nb_jour.
début ajout FAE 30463
  SELECT SINGLE z_stockage z_delai
           INTO (w_in_stockage, w_dl_delai)
           FROM z00_bc_err_log
          WHERE z_repid = i_repid.
*si le programme est dans la table z00_bc_err_log, on récupère la zone
Z_DELAI (délai de rétention des erreurs)
*sinon le délai est celui passé en paramètre de cette fonction
  IF sy-subrc = 0.
    z_date = sy-datum - w_dl_delai.
  ELSE.
    z_date = sy-datum - i_nb_jour.
  Pas d'enreg. ds table param, alors on stockera ds Z00_BC_ERREUR
    w_in_stockage = 'X'.
  ENDIF.
fin ajout FAE 30463
Suppression des enregistrements trop vieux.
  DELETE FROM z00_bc_erreur WHERE z_repid EQ i_repid
                              AND z_dt_date_exec LE z_date.
ENDFORM.
    Form F911_SUPPRESSION_ANOMALIE_BLOC                              *
Fonction :                                                           *
- Supprime les villes anomalies en tenant compte des objets de bloc  *
Donnée globale :                                                     *
- Z00_BC_ERREUR       Table des anomalies des programmes spécifiques.*
Entrée :                                                             *
- I_REPID             Nom du programme en erreur.                    *
- I_NB_JOUR           Nombre de jour avant la suppression des        *
                      enrgistrement de la lable Z00_BC_ERREUR.       *
FORM f911_suppression_anomalie_bloc USING i_repid
                                             i_nb_jour.
Blocage de la table
  CALL FUNCTION 'ENQUEUE_EZ00_BC_ERREUR'
    EXPORTING
      mode_z00_bc_erreur         = 'E'
      z_mandt                    = sy-mandt
      z_repid                    = i_repid
  X_Z_REPID                  = ' '
  _SCOPE                     = '2'
  _WAIT                      = ' '
  _COLLECT                   = ' '
    EXCEPTIONS
      foreign_lock               = 1
      system_failure             = 2
      OTHERS                     = 3.
Suppression des enr que si la table pour ce pg n'est pas bloquée
Si bloquée => ne rien faire car suppression aura déjà eu lieu
  IF sy-subrc EQ 0.
début ajout FAE 30463
    SELECT SINGLE z_stockage z_delai
             INTO (w_in_stockage, w_dl_delai)
             FROM z00_bc_err_log
            WHERE z_repid = i_repid.
*si le programme est dans la table z00_bc_err_log, on récupère la zone
Z_DELAI (délai de rétention des erreurs)
*sinon le délai est celui passé en paramètre de cette fonction
    IF sy-subrc = 0.
      z_date = sy-datum - w_dl_delai.
    ELSE.
      z_date = sy-datum - i_nb_jour.
    Pas d'enreg. ds table param, alors on stockera ds Z00_BC_ERREUR
      w_in_stockage = 'X'.
    ENDIF.
fin ajout FAE 30463
Suppression des enregistrements trop vieux.
    DELETE FROM z00_bc_erreur WHERE z_repid EQ i_repid
                                AND z_dt_date_exec LE z_date.
Déblocage de la table.
    CALL FUNCTION 'DEQUEUE_EZ00_BC_ERREUR'
         EXPORTING
     MODE_Z00_BC_ERREUR         = 'E'
              z_mandt              = sy-mandt
              z_repid              = i_repid.
  ENDIF.
ENDFORM.
    Form F912_MAJ_Z00_BC_CPT_SESS                                    *
Fonction :                                                           *
- Renseigne la table transparente des sessions.                      *
Données globales :                                                   *
- z00_BC_CPT_SESS      Stockage des compteurs associés aux progs de  *
                       traitement.                                   *
- Z00_BC_ERREUR        Table des anomalies des programmes spécifiques*
Entrée :                                                             *
- I_REPID              Nom du programme en erreur.                   *
Sortie :                                                             *
- O_CT_SESSION         Numéro de session.                            *
FORM f912_maj_z00_bc_cpt_sess USING i_repid
                              CHANGING o_ct_session.
Blocage de la table
  CALL FUNCTION 'ENQUEUE_EZ00_BC_CPT_SESS'
    EXPORTING
      mode_z00_bc_cpt_sess       = 'E'
      z_mandt                    = sy-mandt
      z_repid                    = i_repid
  X_Z_REPID                  = ' '
  _SCOPE                     = '2'
  _WAIT                      = ' '
  _COLLECT                   = ' '
    EXCEPTIONS
      foreign_lock               = 1
      system_failure             = 2
      OTHERS                     = 3.
Si la table est déjà vérouillée.
  IF sy-subrc NE 0.
    DO.
Si c'est la 99eme fois que l'on reboucle alors on sort du programme.
      IF sy-index EQ 99.
        STOP.
      ENDIF.
sinon attendre 1 seconde.
      WAIT UP TO 1 SECONDS.
Blocage de la table
      CALL FUNCTION 'ENQUEUE_EZ00_BC_CPT_SESS'
        EXPORTING
          mode_z00_bc_cpt_sess       = 'E'
          z_mandt                    = sy-mandt
          z_repid                    = i_repid
         X_Z_REPID                  = ' '
         _SCOPE                     = '2'
         _WAIT                      = ' '
         _COLLECT                   = ' '
        EXCEPTIONS
          foreign_lock               = 1
          system_failure             = 2
          OTHERS                     = 3.
Si table bloquée.
      IF sy-subrc EQ 0.
        EXIT.
      ENDIF.
    ENDDO.
  ENDIF.
Lecture dans la table des sessions.
  SELECT SINGLE * FROM z00_bc_cpt_sess WHERE z_repid EQ i_repid.
Contrôle si un enregistrement avec le même nom de programme existe et
si le compteur de session est différent de '99'.
  IF sy-subrc EQ 0 AND z00_bc_cpt_sess-z_ct_session NE 99.
    z00_bc_cpt_sess-z_ct_session = z00_bc_cpt_sess-z_ct_session + 1.
    o_ct_session = z00_bc_cpt_sess-z_ct_session.
    MODIFY z00_bc_cpt_sess.
Si un enregistrement avec le même nom de programme existe et
si le compteur de session est égal à '99'.
  ELSEIF sy-subrc EQ 0 AND z00_bc_cpt_sess-z_ct_session EQ 99.
    o_ct_session = z00_bc_cpt_sess-z_ct_session.
    MODIFY z00_bc_cpt_sess.
Sinon.
  ELSEIF sy-subrc NE 0.
    z00_bc_cpt_sess-z_ct_session = '00'.
    z00_bc_cpt_sess-z_repid = i_repid.
    o_ct_session = z00_bc_cpt_sess-z_ct_session.
    MODIFY z00_bc_cpt_sess.
  ENDIF.
  COMMIT WORK.
Déblocage de la table.
  CALL FUNCTION 'DEQUEUE_EZ00_BC_CPT_SESS'
       EXPORTING
            mode_z00_bc_cpt_sess = 'E'
            z_mandt              = sy-mandt
            z_repid              = i_repid.
  X_Z_REPID                  = ' '
  _SCOPE                     = '3'
  _SYNCHRON                  = ' '
  _COLLECT                   = ' '
ENDFORM.
    Form F920_TOP_OF_PAGE                                            *
Fonction :                                                           *
- Entête Schneider                                                   *
Entrée :                                                             *
- I_REPID              Nom du programme en erreur.                   *
FORM f920_top_of_page USING i_repid.                        "#EC CALLED
En-tete de page.
  CALL FUNCTION 'Z_00_BC_TOP_OF_PAGE'
       EXPORTING
            p_linsz   = k_ligne
            p_pagno   = sy-pagno
            p_prog    = i_repid
            p_projet  = k_projet
            p_societe = k_societe
            p_sujet   = sy-title.
  IF sy-subrc = 0.
  ENDIF.
ENDFORM.
    Form F920_EDITION                                                *
Fonction :                                                           *
- Edition des erreurs.                                               *
Données globales :                                                   *
- ITB_ERREUR           Table interne des anomalies.                  *
Entrée :                                                             *
- I_REPID              Nom du programme en erreur.                   *
- I_CLEF_OBJET,        Désignation de la clé de l'objet.             *
FORM f920_edition USING i_repid
                        i_clef_objet.                       "#EC CALLED
En-tete de tableau.
  WRITE AT (sy-linsz) sy-uline.
  WRITE:          sy-vline,
                  k_heure(8),
                  sy-vline,
                  k_code(4),
                  sy-vline,
                  k_lb_message(80),
                  sy-vline,
                  i_clef_objet.
  WRITE AT sy-linsz sy-vline.
  LOOP AT itb_erreur.
Edition de la table interne des anomalies.
Controle des couleurs.
    IF itb_erreur-z_cd_message(1) NE 'S'.
      IF itb_erreur-z_cd_message(1) EQ 'W'.
        FORMAT COLOR = 7 INTENSIFIED OFF.
      ELSEIF itb_erreur-z_cd_message(1) EQ 'I'.
        FORMAT COLOR = 3 INTENSIFIED OFF.
      ELSE.
        FORMAT COLOR = 6 INTENSIFIED OFF.
      ENDIF.
    ELSE.
      FORMAT COLOR = 5 INTENSIFIED ON.
    ENDIF.
    WRITE AT (sy-linsz) sy-uline.
    WRITE:          sy-vline,
                    itb_erreur-z_hr_heure_exec,
                    sy-vline,
                    itb_erreur-z_cd_message(4),
                    sy-vline,
                    itb_erreur-z_lb_message(80),
                    sy-vline,
*Begin change PIT DE3K936510
                   itb_erreur-z_ds_clef_objet(27).
                    itb_erreur-z_ds_clef_objet(59).
*End change PIT DE3K936510
    WRITE AT sy-linsz sy-vline.
  ENDLOOP.
  WRITE AT (sy-linsz) sy-uline.
ENDFORM.
INCLUDE: z00_bci010.                   " Gestion des anomalies.
                      Déclaration des données                        *
                   Tables de la bases de données                     *
TABLES:
        ekpo,        " Poste document d'achat.
        lfa1,        " Base fournisseurs (généralités).
        marc,        " Données division de l'article.
        z03_bw_cmp1,
        eord,        "Répertoire des sources appro. Achats
        eina,        "Fiche infos-achats - données générales
        t024,        "Groupes d'acheteurs
        tvarv.                                              "FAE17345+
                   Déclaration des données internes                  *
Déclaration de la table interne qui permet de recuperer les mois.
DATA: BEGIN OF itb_months OCCURS 12.
        INCLUDE STRUCTURE t247.
DATA: END OF itb_months.
Table pour récupération d'infos sur les divisions
DATA: BEGIN OF itb_t001w OCCURS 0,
        werks LIKE t001w-werks,
        fabkl LIKE t001w-fabkl," Clé du calendrier d'entreprise
      END OF itb_t001w.
Déclaration de la table interne contenant les infos sur l'adresse du
fournisseur.
DATA: BEGIN OF itb_adresse OCCURS 0,
        lifnr LIKE lfa1-lifnr,           " Numéro de compte fournisseur.
        name1 LIKE lfa1-name1,                              " Nom 1.
        name2 LIKE lfa1-name2,                              " Nom 2.
        name3 LIKE lfa1-name3,                              " Nom 3.
        name4 LIKE lfa1-name4,                              " Nom 4.
        stras LIKE lfa1-stras,           " N° de rue et nom de la rue.
        pstlz LIKE lfa1-pstlz,           " Code postal.
        ort01 LIKE lfa1-ort01,           " Localité.
        pfach LIKE lfa1-pfach,           " Boîte postale.
        pstl2 LIKE lfa1-pstl2,           " Code de la boîte postale.
        land1 LIKE lfa1-land1,           " Clé de pays.
        landx LIKE t005t-landx,          " Pays.
        spras LIKE lfa1-spras,           " Code langue
END OF itb_adresse.
Déclaration d'une table interne pour les informations sur les
prévisions de commande.
DATA: BEGIN OF itb_prev_cde OCCURS 0,
        werks LIKE marc-werks,            " Division
        idnlf LIKE eina-idnlf,            " ADDsde ref article frn
        lifnr LIKE eord-lifnr,            " N° fournisseur.
        ekgrp LIKE marc-ekgrp,            " Groupe d'acheteurs
        dispo LIKE marc-dispo,            " Code gestionnaire MRP
        matnr LIKE eord-matnr,            " Article.
        maktx LIKE makt-maktx,            " Désignation article.
        bstmi LIKE marc-bstmi,            " Quantité de commande.
        men00 LIKE plaf-gsmng,            " Quantité du mois en cours M.
        men01 LIKE plaf-gsmng,            " Quantité pour le mois M+1.
        men02 LIKE plaf-gsmng,            " Quantité pour le mois M+2.
        men03 LIKE plaf-gsmng,            " Quantité pour le mois M+3.
        men04 LIKE plaf-gsmng,            " Quantité pour le mois M+4.
        men05 LIKE plaf-gsmng,            " Quantité pour le mois M+5.
        men06 LIKE plaf-gsmng.            " Quantité pour le mois M+6.
DATA: END OF itb_prev_cde.
Structure de travail pour les commandes convernant les PFC
DATA str_pca_pfc  LIKE itb_prev_cde.
*add sde
DATA str_eord_pfc  LIKE itb_prev_cde.
Structure de travail pour les prévisons PFC
DATA str_prev_pfc LIKE itb_prev_cde.
Déclaration d'une table interne pour les informations sur le
portefeuille des commandes d'achat.
DATA: BEGIN OF itb_pca OCCURS 0,
        werks LIKE ekpo-werks,    " Division
        idnlf LIKE eina-idnlf,     " ADDsde ref article frn
        lifnr LIKE eord-lifnr,    " N° fournisseur.
        ekgrp LIKE marc-ekgrp,    " Groupe d'acheteurs
        dispo LIKE marc-dispo,    " Code gestionnaire MRP
        matnr LIKE eord-matnr,    " Article.
        maktx LIKE makt-maktx,    " Désignation article.
        ebeln LIKE ekes-ebeln,    " Numéro du document d'achat.
        ebelp LIKE ekes-ebelp,    " Numéro de poste du document d'achat.
        slfdt LIKE eket-slfdt,    " Date de livraison statistique
        eindt LIKE ekes-eindt,    " Date de livraison indiquée dans la
                                  " confirmation de la cde.
        menge LIKE ekes-menge,    " Quantité indiquée dans la confirma-
                                  " tion de la commande.
        attdu LIKE eket-wemng,    " Portefeuille fournisseur.
        netpr LIKE ekpo-brtwr,    " Prix net du document d'achat dans
                                  " la devise du document.
        rtard TYPE i,             " Retard en jours ouvres.
        wemng LIKE eket-wemng,    " Quantité de l'entrée de marchandise.
        bldat LIKE mkpf-bldat,    " Date inscrite sur la pièce/sur le
                                  " document.
        qtran LIKE ekes-menge,    " Quantité en transit.
        dtran LIKE ekes-eindt.    " Date du dernier avis de transit.
DATA: END OF itb_pca.
DATA: w_i TYPE i,                "Compteur
      w_i_char(1) TYPE c,        "Texte pour récupérer compteur
      w_nm_zone(20) TYPE c,      "Nom zone pour assign au field-symbols
      w_nb_j TYPE i,             "Nb de jours ouvrés jusqu'à fin mois
      w_nb_j_tot TYPE i.         "Nb de jours ouvrés du mois
FIELD-SYMBOLS:       TYPE ANY.
Déclaration d'une table contenant les fiches info achat.
DATA: BEGIN OF itb_eina OCCURS 0,
        matnr LIKE eina-matnr,
        lifnr LIKE eina-lifnr,
        idfnl LIKE eina-idnlf.
DATA: END OF itb_eina.
Déclaration d'une table contenant les infos groupe acheteur.
*DATA: BEGIN OF itb_t024 OCCURS 0,
       ekgrp LIKE t024-ekgrp,
       eknam LIKE t024-eknam,
       ektel LIKE t024-ektel,
       telfx LIKE t024-telfx.
*DATA: END OF itb_t024.
Déclaration d'une table pour le transfert du fichier.
DATA: BEGIN OF itb_transfert OCCURS 0,
        col00(8),                 "division
        col00bis(20),             "Reference article
        col01(18),                "No article
        col02(45),                "libelle article
        col021(17),               "Groupe acheteur
        col022(13),               "gestionnaire
        col03(17),                "qte commandée ou No de commande
        col04(13),                "Mois 1 ou No poste cde
        col05(20),                "Mois 2 ou délai initial
        col06(33),                "Mois 3 ou délai négocié
        col07(13),                "Mois 4 ou qté cdée
        col08(13),                "Mois 5 ou qté attendue
        col09(13),                "Mois 6 ou Montant attendu
        col10(13),                "Mois 7 ou retard
        col11(13),                "qte partielle livree
        col12(13),                "date livraison partielle
        col13(13),                "qté en transit
        col14(13).                "date
DATA: END OF itb_transfert.
Déclaration d'une table contenant la liste des fournisseurs.
DATA: BEGIN OF itb_lifnr OCCURS 0,
        werks LIKE marc-werks,
        idfnl LIKE eina-idnlf,
        lifnr LIKE eord-lifnr,
        ekgrp LIKE marc-ekgrp,
        spras LIKE lfa1-spras,
        eknam LIKE t024-eknam,
        ektel LIKE t024-ektel,
        telfx LIKE t024-telfx.
DATA: END OF itb_lifnr.
Déclaration d'une structure pour la selection dans la table MSEG.
DATA : BEGIN OF itb_mseg OCCURS 0,
         mblnr LIKE mseg-mblnr,
         mjahr LIKE mseg-mjahr,
         ebeln LIKE mseg-ebeln,
         ebelp LIKE mseg-ebelp,
       END OF itb_mseg.
déclaration d'une structure pour la selection dans EKPO.
DATA : BEGIN OF itb_ekpo OCCURS 0,
ebeln LIKE ekpo-ebeln,
         lifnr LIKE ekko-lifnr,
         ekgrp LIKE ekko-ekgrp,
         ebelp LIKE ekpo-ebelp,
         matnr LIKE ekpo-matnr,
         werks LIKE ekpo-werks,
         menge LIKE ekpo-menge,
         bpumz LIKE ekpo-bpumz,
         netpr LIKE ekpo-netpr,
         peinh LIKE ekpo-peinh,  "Base de prix FAE17345+
          "AFT++
         bpumn LIKE ekpo-bpumn,
         dispo LIKE marc-dispo,   "AFT++
       END OF itb_ekpo.
déclaration d'une structure pour la selection dans EKPO.
DATA : BEGIN OF itb_ekko OCCURS 0,
         ebeln LIKE ekko-ebeln,
         lifnr LIKE ekko-lifnr,
         spras LIKE ekko-spras,
       END OF itb_ekko.
déclaration d'une structure pour la selection dans EKES.
DATA : BEGIN OF itb_ekes OCCURS 0,
         ebeln LIKE eket-ebeln,
         ebelp LIKE eket-ebelp,
         etens LIKE ekes-etens,
         ebtyp LIKE ekes-ebtyp,
         eindt LIKE ekes-eindt,
         menge LIKE ekes-menge,
         dabmg LIKE ekes-dabmg,
       END OF

Answer 1

hai ,
use code inspector to find the performance issue sorce code and also it gives some tips to tune the peformance.
Go to program in display mode or editable mode and in  menu bar you
have program menu in first......chose it and go to cheak....select it we have list including code inspector do it and tune it............
plzz reward if useful
regards,
jai.m