<?xml version="1.0" encoding="UTF-8"?>
<rss xmlns:content="http://purl.org/rss/1.0/modules/content/" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:taxo="http://purl.org/rss/1.0/modules/taxonomy/" version="2.0">
  <channel>
    <title>topic Re: abap in Application Development and Automation Discussions</title>
    <link>https://community.sap.com/t5/application-development-and-automation-discussions/abap/m-p/2422093#M540845</link>
    <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;Hi,&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;1) Check this code&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;PRE&gt;&lt;CODE&gt;
TYPE-POOLS: slis.

DATA: gt_fieldcat TYPE slis_t_fieldcat_alv.
DATA: BEGIN OF wa_ekko,
ebeln like ekko-ebeln,
ekorg like ekko-ekorg,
ekgrp like ekko-ekgrp,
END OF wa_ekko.

DATA: v_repid TYPE syrepid.
v_repid = sy-repid.

DATA it_ekko LIKE STANDARD TABLE OF wa_ekko WITH HEADER LINE.

SELECT * UP TO 100 ROWS
FROM ekko
INTO CORRESPONDING FIELDS OF TABLE it_ekko.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
     EXPORTING
          i_program_name     = v_repid
          i_internal_tabname = 'WA_EKKO'
          i_inclname         = v_repid
     CHANGING
          ct_fieldcat        = gt_fieldcat.


* have hotspot for a PO.
DATA: s_fieldcat LIKE LINE OF gt_fieldcat.
s_fieldcat-hotspot = 'X'.

MODIFY gt_fieldcat FROM s_fieldcat TRANSPORTING hotspot
       WHERE fieldname = 'EBELN'.

* Pass the program.
v_repid = sy-repid.


CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
     EXPORTING
          i_callback_program      = v_repid
          it_fieldcat             = gt_fieldcat
          i_callback_user_command = 'USER_COMMAND'
     TABLES
          t_outtab                = it_ekko.


*---------------------------------------------------------------------*
*       FORM display_detail                                           *
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*
*  --&amp;gt;  UCOMM                                                         *
*  --&amp;gt;  SELFIELD                                                      *
*---------------------------------------------------------------------*
FORM user_command USING ucomm LIKE sy-ucomm
selfield TYPE slis_selfield.

  IF ucomm = '&amp;amp;IC1' AND selfield-fieldname = 'EBELN'.

    READ TABLE it_ekko INDEX selfield-tabindex.

    IF sy-subrc = 0.
      SET PARAMETER ID 'BES' FIELD it_ekko-ebeln.
      CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
    ENDIF.

  ENDIF.

ENDFORM.

&lt;/CODE&gt;&lt;/PRE&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;2) you can use the table T001K table to get the plants for the company code&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Thanks&lt;/P&gt;&lt;P&gt;Naren&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
    <pubDate>Wed, 20 Jun 2007 04:09:36 GMT</pubDate>
    <dc:creator>Former Member</dc:creator>
    <dc:date>2007-06-20T04:09:36Z</dc:date>
    <item>
      <title>abap</title>
      <link>https://community.sap.com/t5/application-development-and-automation-discussions/abap/m-p/2422092#M540844</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;1.h to pass the parameters in the reuse_alv_list_display?&lt;/P&gt;&lt;P&gt;2.In selection screeen I have entered companycode i want related plants display?h t  write that code?&lt;/P&gt;&lt;P&gt;3.In real time h to use the performance tunning?&lt;/P&gt;&lt;P&gt;4.In script h to delete the window?&lt;/P&gt;&lt;P&gt;5.Can u send me userexit material and realtime objects?&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Wed, 20 Jun 2007 04:06:15 GMT</pubDate>
      <guid>https://community.sap.com/t5/application-development-and-automation-discussions/abap/m-p/2422092#M540844</guid>
      <dc:creator>Former Member</dc:creator>
      <dc:date>2007-06-20T04:06:15Z</dc:date>
    </item>
    <item>
      <title>Re: abap</title>
      <link>https://community.sap.com/t5/application-development-and-automation-discussions/abap/m-p/2422093#M540845</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;Hi,&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;1) Check this code&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;PRE&gt;&lt;CODE&gt;
TYPE-POOLS: slis.

DATA: gt_fieldcat TYPE slis_t_fieldcat_alv.
DATA: BEGIN OF wa_ekko,
ebeln like ekko-ebeln,
ekorg like ekko-ekorg,
ekgrp like ekko-ekgrp,
END OF wa_ekko.

DATA: v_repid TYPE syrepid.
v_repid = sy-repid.

DATA it_ekko LIKE STANDARD TABLE OF wa_ekko WITH HEADER LINE.

SELECT * UP TO 100 ROWS
FROM ekko
INTO CORRESPONDING FIELDS OF TABLE it_ekko.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
     EXPORTING
          i_program_name     = v_repid
          i_internal_tabname = 'WA_EKKO'
          i_inclname         = v_repid
     CHANGING
          ct_fieldcat        = gt_fieldcat.


* have hotspot for a PO.
DATA: s_fieldcat LIKE LINE OF gt_fieldcat.
s_fieldcat-hotspot = 'X'.

MODIFY gt_fieldcat FROM s_fieldcat TRANSPORTING hotspot
       WHERE fieldname = 'EBELN'.

* Pass the program.
v_repid = sy-repid.


CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
     EXPORTING
          i_callback_program      = v_repid
          it_fieldcat             = gt_fieldcat
          i_callback_user_command = 'USER_COMMAND'
     TABLES
          t_outtab                = it_ekko.


*---------------------------------------------------------------------*
*       FORM display_detail                                           *
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*
*  --&amp;gt;  UCOMM                                                         *
*  --&amp;gt;  SELFIELD                                                      *
*---------------------------------------------------------------------*
FORM user_command USING ucomm LIKE sy-ucomm
selfield TYPE slis_selfield.

  IF ucomm = '&amp;amp;IC1' AND selfield-fieldname = 'EBELN'.

    READ TABLE it_ekko INDEX selfield-tabindex.

    IF sy-subrc = 0.
      SET PARAMETER ID 'BES' FIELD it_ekko-ebeln.
      CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
    ENDIF.

  ENDIF.

ENDFORM.

&lt;/CODE&gt;&lt;/PRE&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;2) you can use the table T001K table to get the plants for the company code&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Thanks&lt;/P&gt;&lt;P&gt;Naren&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Wed, 20 Jun 2007 04:09:36 GMT</pubDate>
      <guid>https://community.sap.com/t5/application-development-and-automation-discussions/abap/m-p/2422093#M540845</guid>
      <dc:creator>Former Member</dc:creator>
      <dc:date>2007-06-20T04:09:36Z</dc:date>
    </item>
    <item>
      <title>Re: abap</title>
      <link>https://community.sap.com/t5/application-development-and-automation-discussions/abap/m-p/2422094#M540846</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;Hi,&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Jus go thro my code..&lt;/P&gt;&lt;P&gt; u can c how to pass parameters in reuse_alv_grid_display.&lt;/P&gt;&lt;P&gt;also,i hav used selection screen declaration. c that.&lt;/P&gt;&lt;P&gt; u wil hav a idea as to how u shud do the coding.&lt;/P&gt;&lt;P&gt;Jus execute my report c try it out.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*&amp;amp;----&lt;/P&gt;&lt;HR originaltext="--------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;P&gt;*&amp;amp;              Report  ZPYR_171_DLA_LISTING                          *&lt;/P&gt;&lt;P&gt;*&amp;amp;                                                                    *&lt;/P&gt;&lt;P&gt;*----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;      Objective : Displays the DLA Amounts of the New joining and   *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                  Leaving Employees in a ALV format.                *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;      Program   : Updates Tables (  )    Downloads data (  )        *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                  Outputs List   ( X )                              *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                                                                    *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;      Technical Spec No:  Ethos_JKH_PY171_TS_DLA_Join_Leave         *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;      Transaction Code    ZPY_DLA_JOINLEAVE                         *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;      Date Created        12-March-2007                             *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;      Author              Pavithra.J                                *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;      LDB                 PNPCE                                     *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;*----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;      External Dependencies                                         *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;*----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                                                                    *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;*----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt; Amendment History                                                  *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;*----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;Who                 Change ID    Reason                             *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯              *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt; Pavithra.J         PJ12032007   Initial Creation                   *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                                                                    *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;           .......................................................  *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;***********************************************************************&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;REPORT  zpyr_171_dla_listing.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                           TYPES-POOLS                              *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;*----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;TYPE-POOLS : slis.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                            TABLES                                  *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;*----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;TABLES: pernr.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                           INFOTYPES                                *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;*----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;P&gt;INFOTYPES : 0001, "HR Master Record: Infotype 0001 (Org. Assignment)&lt;/P&gt;&lt;P&gt;            0000, "HR Master Record: Infotype 0000 (Actions)&lt;/P&gt;&lt;P&gt;            9994. "HR Master Record: Infotype 9994&lt;/P&gt;&lt;P&gt;*----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                           NODES                                    *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;*----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;NODES : peras.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                          TYPES - TY_                               *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;*----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;TYPES : BEGIN OF ty_disp,&lt;/P&gt;&lt;P&gt;        sno    TYPE  i,               "Serial Number&lt;/P&gt;&lt;P&gt;        pernr  TYPE  p0000-pernr,     "Personnel Number&lt;/P&gt;&lt;P&gt;        ename  TYPE  p0001-ename,     "Employee Name&lt;/P&gt;&lt;P&gt;        bta    TYPE  p9994-bta01,     "Wage Type Amount(DLA)&lt;/P&gt;&lt;P&gt;        END OF ty_disp.&lt;/P&gt;&lt;P&gt;*----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;               Constants c_                                         *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;*----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;CONSTANTS :  c_i         TYPE c VALUE 'I',&lt;/P&gt;&lt;P&gt;             c_permo     TYPE i VALUE '67',&lt;/P&gt;&lt;P&gt;             c_werks(28) TYPE c VALUE '%_PNPWERKS_%_APP_%-VALU_PUSH',&lt;/P&gt;&lt;P&gt;             c_one       TYPE i VALUE '1',&lt;/P&gt;&lt;P&gt;             c_s         TYPE c VALUE 'S',&lt;/P&gt;&lt;P&gt;             c_h         TYPE c VALUE 'H'.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;         Internal table IT_                                         *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;*----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;****IT_DISP is the final internal table to which the Employee details&lt;/P&gt;&lt;P&gt;****are populated.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;DATA : it_disp   TYPE TABLE OF ty_disp,&lt;/P&gt;&lt;P&gt;       it_fcat   TYPE slis_t_fieldcat_alv,&lt;/P&gt;&lt;P&gt;       it_event  TYPE slis_t_event,&lt;/P&gt;&lt;P&gt;       it_lhead  TYPE slis_t_listheader.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;****IT_FCAT is the Internal Table for field catalog in ALV display&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                     Work Fields W_                                 *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;*----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;****W_DATE1 takes in the entered month and year(START DATE) at&lt;/P&gt;&lt;P&gt;****selection screen.&lt;/P&gt;&lt;P&gt;****W_DATE2 is where the function module populates the end date.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;DATA : w_date1       TYPE sy-datum,&lt;/P&gt;&lt;P&gt;       w_date2       TYPE sy-datum,&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;UL&gt;&lt;UL&gt;&lt;UL&gt;&lt;LI level="4" type="ul"&gt;&lt;P&gt;for Serial no count in ALV.&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;/UL&gt;&lt;/UL&gt;&lt;/UL&gt;&lt;P&gt;       w_cnt TYPE i VALUE 1,&lt;/P&gt;&lt;UL&gt;&lt;UL&gt;&lt;UL&gt;&lt;UL&gt;&lt;LI level="4" type="ul"&gt;&lt;P&gt;for fetching the header fields in the output screen.&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;/UL&gt;&lt;/UL&gt;&lt;/UL&gt;&lt;P&gt;       w_persa(50)   TYPE c,&lt;/P&gt;&lt;P&gt;       w_ktx(10)     TYPE c,&lt;/P&gt;&lt;P&gt;       w_werks(4)    TYPE c,&lt;/P&gt;&lt;P&gt;       w_r(30)       TYPE c,&lt;/P&gt;&lt;P&gt;       w_r1(30)      TYPE c,&lt;/P&gt;&lt;P&gt;       w_a1(70)      TYPE c,&lt;/P&gt;&lt;P&gt;       w_a2(70)      TYPE c,&lt;/P&gt;&lt;P&gt;       w_date(30)    TYPE c,&lt;/P&gt;&lt;P&gt;       w_page(15)    TYPE c,&lt;/P&gt;&lt;P&gt;       w_pgno(3)     TYPE c,&lt;/P&gt;&lt;P&gt;       w_sydate(10)  TYPE c,&lt;/P&gt;&lt;P&gt;       w_sytime(8)   TYPE c.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                   Workarea WA_                                     *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;*----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;P&gt;****WA_DISP is the workarea of the final internal table IT_DISP.&lt;/P&gt;&lt;P&gt;****WA_DISP is the workarea of the firld catalog IT_FCAT.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;DATA: wa_disp   TYPE ty_disp,&lt;/P&gt;&lt;P&gt;      wa_fcat   TYPE slis_fieldcat_alv,&lt;/P&gt;&lt;P&gt;      wa_event  TYPE slis_alv_event   ,&lt;/P&gt;&lt;P&gt;      wa_lhead  TYPE slis_listheader  .&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;               PARAMETERS pr_*                                      *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;*----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;B&gt;&lt;/B&gt;&lt;/P&gt;&lt;P&gt;SELECTION-SCREEN BEGIN OF BLOCK bcp WITH FRAME TITLE text-000.&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;SELECTION-SCREEN BEGIN OF LINE.&lt;BR /&gt;SELECTION-SCREEN COMMENT 1(15) text-001.&lt;BR /&gt;SELECTION-SCREEN POSITION 33.&lt;BR /&gt;&lt;BR /&gt;PARAMETERS : pr_month(2) OBLIGATORY.&lt;BR /&gt;&lt;BR /&gt;SELECTION-SCREEN POSITION 44.&lt;BR /&gt;&lt;BR /&gt;PARAMETERS : pr_year(4) OBLIGATORY.&lt;BR /&gt;&lt;BR /&gt;SELECTION-SCREEN END OF LINE.&lt;BR /&gt;SELECTION-SCREEN END OF BLOCK bcp.&lt;BR /&gt;SELECTION-SCREEN BEGIN OF BLOCK bcp1 WITH FRAME TITLE text-002.&lt;BR /&gt;&lt;BR /&gt;PARAMETERS : r1 RADIOBUTTON GROUP g1,&lt;BR /&gt; r2 RADIOBUTTON GROUP g1.&lt;BR /&gt;&lt;BR /&gt;SELECTION-SCREEN END OF BLOCK bcp1.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                  At Selection-Screen output            *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;*----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;AT SELECTION-SCREEN OUTPUT.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*****to make the Personnel area field mandatory.&lt;/P&gt;&lt;UL&gt;&lt;UL&gt;&lt;UL&gt;&lt;UL&gt;&lt;UL&gt;&lt;LI level="5" type="ul"&gt;&lt;P&gt;and also to place the cursor at pers. area after the error msg.&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;/UL&gt;&lt;/UL&gt;&lt;/UL&gt;&lt;/UL&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;UL&gt;&lt;UL&gt;&lt;UL&gt;&lt;LI level="4" type="ul"&gt;&lt;P&gt;Hiding multiple slection option for PNPWERKS&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;/UL&gt;&lt;/UL&gt;&lt;/UL&gt;&lt;P&gt;  LOOP AT SCREEN.&lt;/P&gt;&lt;P&gt;    IF screen-name     = c_werks.&lt;/P&gt;&lt;P&gt;      screen-invisible = c_one.&lt;/P&gt;&lt;P&gt;      MODIFY SCREEN.&lt;/P&gt;&lt;P&gt;    ENDIF.                         "IF screen-name     = c_abkrs.&lt;/P&gt;&lt;P&gt;    IF screen-name     ='PNPWERKS-LOW'.&lt;/P&gt;&lt;P&gt;      screen-required = c_one.&lt;/P&gt;&lt;P&gt;      MODIFY SCREEN.&lt;/P&gt;&lt;P&gt;    ENDIF.                         "IF screen-name     = c_abkrs.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  ENDLOOP.&lt;/P&gt;&lt;P&gt;*----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                 Start-of-Selection                                 *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;*----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;START-OF-SELECTION.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  CLEAR : wa_disp,&lt;/P&gt;&lt;P&gt;          wa_fcat,&lt;/P&gt;&lt;P&gt;          wa_event,&lt;/P&gt;&lt;P&gt;          wa_lhead.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  REFRESH : it_disp ,&lt;/P&gt;&lt;P&gt;            it_fcat ,&lt;/P&gt;&lt;P&gt;            it_event ,&lt;/P&gt;&lt;P&gt;            it_lhead .&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  PERFORM f002_payrollperiod_conversion.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;UL&gt;&lt;UL&gt;&lt;UL&gt;&lt;LI level="4" type="ul"&gt;&lt;P&gt; Fetches All Necessary information from infotypes&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;/UL&gt;&lt;/UL&gt;&lt;/UL&gt;&lt;P&gt;GET peras.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;UL&gt;&lt;UL&gt;&lt;UL&gt;&lt;LI level="4" type="ul"&gt;&lt;P&gt;Clears the final work area&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;/UL&gt;&lt;/UL&gt;&lt;/UL&gt;&lt;P&gt;  CLEAR wa_disp.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;UL&gt;&lt;UL&gt;&lt;UL&gt;&lt;LI level="4" type="ul"&gt;&lt;P&gt;Gets the required fields from the infotypes.&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;/UL&gt;&lt;/UL&gt;&lt;/UL&gt;&lt;P&gt;  rp_provide_from_last p0000 space w_date1 w_date2.&lt;/P&gt;&lt;P&gt;****Radio button choice for list selection.&lt;/P&gt;&lt;P&gt;  IF pnp-sw-found = 1.&lt;/P&gt;&lt;P&gt;    IF r1 = text-014 AND p0000-massn = text-015 .&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;      w_r  = text-019.&lt;/P&gt;&lt;P&gt;      w_r1 = text-021.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;      PERFORM f001_fetch_dla.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;    ELSEIF r2 = text-014 AND p0000-massn = text-016.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;      w_r  = text-022.&lt;/P&gt;&lt;P&gt;      w_r1 = text-023.&lt;/P&gt;&lt;P&gt;      PERFORM f001_fetch_dla.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;    ENDIF.      " if r1= 'X'.&lt;/P&gt;&lt;P&gt;  ENDIF.&lt;/P&gt;&lt;P&gt;*----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                 End-of-Selection                                   *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;*----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;END-OF-SELECTION.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  w_werks = pnpwerks+3(4).&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  SELECT SINGLE name1&lt;/P&gt;&lt;P&gt;  FROM t500p&lt;/P&gt;&lt;P&gt;  INTO w_persa&lt;/P&gt;&lt;P&gt;  WHERE persa = w_werks.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  SELECT SINGLE ktx&lt;/P&gt;&lt;P&gt;  FROM t247&lt;/P&gt;&lt;P&gt;  INTO w_ktx&lt;/P&gt;&lt;P&gt;  WHERE spras = sy-langu&lt;/P&gt;&lt;P&gt;  AND mnr   = w_date1+4(2).&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  CONCATENATE w_ktx w_date1+0(4) INTO w_ktx SEPARATED BY space.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;**..... Header detail for ALV&lt;/P&gt;&lt;P&gt;****Form F006_ALV_HEADER called indirectly though events.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  wa_event-name = 'TOP_OF_PAGE'.&lt;/P&gt;&lt;P&gt;  wa_event-form = 'F006_ALV_HEADER'.&lt;/P&gt;&lt;P&gt;  APPEND wa_event TO it_event.&lt;/P&gt;&lt;P&gt;  CLEAR wa_event.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  PERFORM f003_top_of_page.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  PERFORM f004_field_catalog.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  PERFORM f005_alv_display .&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*&lt;/P&gt;&lt;P&gt;*&amp;amp;----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;P&gt;*&amp;amp;      Form  F004_Field_catalog&lt;/P&gt;&lt;P&gt;*&amp;amp;----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;      FIELD CATALOG for ALV display&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;*----&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;FORM f004_field_catalog .&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  wa_fcat-fieldname = text-003.       "Slno&lt;/P&gt;&lt;P&gt;  wa_fcat-seltext_l   = text-004.&lt;/P&gt;&lt;P&gt;  wa_fcat-outputlen = 5.&lt;/P&gt;&lt;P&gt;  APPEND wa_fcat TO it_fcat.&lt;/P&gt;&lt;P&gt;  CLEAR wa_fcat.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  wa_fcat-fieldname = text-005.       "Employee no&lt;/P&gt;&lt;P&gt;  wa_fcat-seltext_l   = text-006.&lt;/P&gt;&lt;P&gt;  wa_fcat-outputlen = 12.&lt;/P&gt;&lt;P&gt;  APPEND wa_fcat TO it_fcat.&lt;/P&gt;&lt;P&gt;  CLEAR wa_fcat.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  wa_fcat-fieldname = text-007.       "Employee name&lt;/P&gt;&lt;P&gt;  wa_fcat-seltext_l   = text-008.&lt;/P&gt;&lt;P&gt;  wa_fcat-outputlen = 25.&lt;/P&gt;&lt;P&gt;  APPEND wa_fcat TO it_fcat.&lt;/P&gt;&lt;P&gt;  CLEAR wa_fcat.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  wa_fcat-fieldname = text-009.       "DLA Amount&lt;/P&gt;&lt;P&gt;  wa_fcat-seltext_l  = text-010.&lt;/P&gt;&lt;P&gt;  wa_fcat-outputlen = 25.&lt;/P&gt;&lt;P&gt;  APPEND wa_fcat TO it_fcat.&lt;/P&gt;&lt;P&gt;  CLEAR wa_fcat.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;ENDFORM.                    "F004_Field_catalog&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*&amp;amp;----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;P&gt;*&amp;amp;      Form  f005_alv_display&lt;/P&gt;&lt;P&gt;*&amp;amp;----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;       Calling Function Module REUSE_ALV_GRID_DISPLAY&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;             for ALV display&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;*----&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;P&gt;FORM f005_alv_display .&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  &lt;B&gt;&lt;/B&gt;&lt;/P&gt;&lt;P&gt;CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'&lt;BR /&gt; EXPORTING&lt;BR /&gt; i_callback_program = sy-repid&lt;BR /&gt; it_fieldcat = it_fcat[]&lt;BR /&gt; it_events = it_event[]&lt;BR /&gt; TABLES&lt;BR /&gt; t_outtab = it_disp.&lt;BR /&gt; IF sy-subrc IS NOT INITIAL.&lt;BR /&gt; ENDIF.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;ENDFORM.                    " f003_Alv_Display&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*&amp;amp;----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;P&gt;*&amp;amp;      Form  F001_Fetch_DLA&lt;/P&gt;&lt;P&gt;*&amp;amp;----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;     Fetches the DLA Amount BTAXX corresponding to LGAXX=A001&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;*----&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;P&gt;FORM f001_fetch_dla.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;UL&gt;&lt;UL&gt;&lt;UL&gt;&lt;LI level="4" type="ul"&gt;&lt;P&gt;Clears the workarea&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;/UL&gt;&lt;/UL&gt;&lt;/UL&gt;&lt;P&gt;  CLEAR : wa_disp-pernr ,&lt;/P&gt;&lt;P&gt;          wa_disp-ename ,&lt;/P&gt;&lt;P&gt;          wa_disp-bta.&lt;/P&gt;&lt;UL&gt;&lt;UL&gt;&lt;UL&gt;&lt;UL&gt;&lt;LI level="4" type="ul"&gt;&lt;P&gt;Gets the employee details from the infotypes&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;/UL&gt;&lt;/UL&gt;&lt;/UL&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  rp_provide_from_last p0001 space w_date1 w_date2.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  rp_provide_from_last p9994 space w_date1 w_date2.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  IF pnp-sw-found = 1.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;    IF p0000-begda GE w_date1 AND p0000-begda LE w_date2 AND&lt;/P&gt;&lt;P&gt;     p9994-begda GE w_date1 AND p9994-begda LE w_date2.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;      IF p9994-lga01 = text-020 .&lt;/P&gt;&lt;P&gt;        wa_disp-bta  =  p9994-bta01.&lt;/P&gt;&lt;P&gt;      ELSEIF p9994-lga02 = text-020 .&lt;/P&gt;&lt;P&gt;        wa_disp-bta  =  p9994-bta02.&lt;/P&gt;&lt;P&gt;      ELSEIF p9994-lga03 = text-020 .&lt;/P&gt;&lt;P&gt;        wa_disp-bta  =  p9994-bta03.&lt;/P&gt;&lt;P&gt;      ELSEIF p9994-lga04 = text-020 .&lt;/P&gt;&lt;P&gt;        wa_disp-bta  =  p9994-bta04.&lt;/P&gt;&lt;P&gt;      ELSEIF p9994-lga05 = text-020 .&lt;/P&gt;&lt;P&gt;        wa_disp-bta  =  p9994-bta05.&lt;/P&gt;&lt;P&gt;      ELSEIF p9994-lga06 = text-020 .&lt;/P&gt;&lt;P&gt;        wa_disp-bta  =  p9994-bta06.&lt;/P&gt;&lt;P&gt;      ELSEIF p9994-lga07 = text-020 .&lt;/P&gt;&lt;P&gt;        wa_disp-bta  =  p9994-bta07.&lt;/P&gt;&lt;P&gt;      ELSEIF p9994-lga08 = text-020 .&lt;/P&gt;&lt;P&gt;        wa_disp-bta  =  p9994-bta08.&lt;/P&gt;&lt;P&gt;      ELSEIF p9994-lga09 = text-020 .&lt;/P&gt;&lt;P&gt;        wa_disp-bta  =  p9994-bta09.&lt;/P&gt;&lt;P&gt;      ELSEIF p9994-lga10 = text-020 .&lt;/P&gt;&lt;P&gt;        wa_disp-bta  =  p9994-bta10.&lt;/P&gt;&lt;P&gt;      ELSEIF p9994-lga11 = text-020 .&lt;/P&gt;&lt;P&gt;        wa_disp-bta  =  p9994-bta11.&lt;/P&gt;&lt;P&gt;      ELSEIF p9994-lga12 = text-020 .&lt;/P&gt;&lt;P&gt;        wa_disp-bta  =  p9994-bta12.&lt;/P&gt;&lt;P&gt;      ELSEIF p9994-lga13 = text-020 .&lt;/P&gt;&lt;P&gt;        wa_disp-bta  =  p9994-bta13.&lt;/P&gt;&lt;P&gt;      ELSEIF p9994-lga14 = text-020 .&lt;/P&gt;&lt;P&gt;        wa_disp-bta  =  p9994-bta14.&lt;/P&gt;&lt;P&gt;      ELSEIF p9994-lga15 = text-020 .&lt;/P&gt;&lt;P&gt;        wa_disp-bta  =  p9994-bta15.&lt;/P&gt;&lt;P&gt;      ELSEIF p9994-lga16 = text-020 .&lt;/P&gt;&lt;P&gt;        wa_disp-bta  =  p9994-bta16.&lt;/P&gt;&lt;P&gt;      ELSEIF p9994-lga17 = text-020 .&lt;/P&gt;&lt;P&gt;        wa_disp-bta  =  p9994-bta17.&lt;/P&gt;&lt;P&gt;      ELSEIF p9994-lga18 = text-020 .&lt;/P&gt;&lt;P&gt;        wa_disp-bta  =  p9994-bta18.&lt;/P&gt;&lt;P&gt;      ELSEIF p9994-lga19 = text-020 .&lt;/P&gt;&lt;P&gt;        wa_disp-bta  =  p9994-bta19.&lt;/P&gt;&lt;P&gt;      ELSEIF p9994-lga20 = text-020 .&lt;/P&gt;&lt;P&gt;        wa_disp-bta =  p9994-bta20.&lt;/P&gt;&lt;P&gt;      ENDIF.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;      wa_disp-sno    =  w_cnt.&lt;/P&gt;&lt;P&gt;      wa_disp-pernr  =  p9994-pernr.&lt;/P&gt;&lt;P&gt;      wa_disp-ename  =  p0001-ename.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;UL&gt;&lt;UL&gt;&lt;UL&gt;&lt;LI level="4" type="ul"&gt;&lt;P&gt;Appends the work area contents to final internal table.&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;/UL&gt;&lt;/UL&gt;&lt;/UL&gt;&lt;P&gt;      APPEND wa_disp TO it_disp.&lt;/P&gt;&lt;P&gt;      clear wa_disp.&lt;/P&gt;&lt;P&gt;      w_cnt = w_cnt + 1.&lt;/P&gt;&lt;P&gt;    ENDIF.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  ENDIF.   " IF pnp-sw-found = 1.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;ENDFORM.                    "F001_Fetch_DLA&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*&amp;amp;----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;P&gt;*&amp;amp;      Form  F002_PayrollPeriod_Conversion&lt;/P&gt;&lt;P&gt;*&amp;amp;----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;   For converting the entered date at selection screen into&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;   payroll period.&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;*----&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;P&gt;FORM f002_payrollperiod_conversion.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  IF pr_year IS NOT INITIAL AND pr_month IS NOT INITIAL.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;    SELECT SINGLE begda&lt;/P&gt;&lt;P&gt;         FROM t549q INTO w_date1&lt;/P&gt;&lt;P&gt;         WHERE permo = c_permo&lt;/P&gt;&lt;P&gt;           AND pabrj = pr_year&lt;/P&gt;&lt;P&gt;           AND pabrp = pr_month.&lt;/P&gt;&lt;P&gt;    IF sy-subrc IS NOT INITIAL.&lt;/P&gt;&lt;P&gt;      MESSAGE text-018 TYPE c_i.&lt;/P&gt;&lt;P&gt;      EXIT.&lt;/P&gt;&lt;P&gt;    ENDIF.                         " IF sy-subrc IS NOT INITIAL&lt;/P&gt;&lt;P&gt;  ENDIF.                           " IF pr_year IS NOT INITIAL&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;UL&gt;&lt;UL&gt;&lt;UL&gt;&lt;LI level="4" type="ul"&gt;&lt;P&gt;Calling the function module for calculating the last day of&lt;/P&gt;&lt;/LI&gt;&lt;LI level="4" type="ul"&gt;&lt;P&gt;the month accord to the one enetered at selection screen.&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;/UL&gt;&lt;/UL&gt;&lt;/UL&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  CALL FUNCTION 'SG_PS_GET_LAST_DAY_OF_MONTH'&lt;/P&gt;&lt;P&gt;    EXPORTING&lt;/P&gt;&lt;P&gt;      day_in            = w_date1&lt;/P&gt;&lt;P&gt;    IMPORTING&lt;/P&gt;&lt;P&gt;      last_day_of_month = w_date2.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;ENDFORM.                    "F002_PayrollPeriod_Conversion&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*&amp;amp;----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;P&gt;*&amp;amp;      Form  f003_top_of_page&lt;/P&gt;&lt;P&gt;*&amp;amp;----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;       To fetch the details in the ALV header&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;*----&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;FORM f003_top_of_page .&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  WRITE : sy-datum TO w_sydate USING EDIT MASK '__/__/____'.&lt;/P&gt;&lt;P&gt;  WRITE : sy-uzeit TO w_sytime USING EDIT MASK '__:__:__'.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  IF r1 = text-014 .&lt;/P&gt;&lt;P&gt;    wa_lhead-typ    = c_h.&lt;/P&gt;&lt;P&gt;    wa_lhead-info    = text-019.&lt;/P&gt;&lt;P&gt;    APPEND wa_lhead TO it_lhead.&lt;/P&gt;&lt;P&gt;    CLEAR wa_lhead.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;    wa_lhead-typ    = c_s.&lt;/P&gt;&lt;P&gt;    wa_lhead-info   = w_persa.&lt;/P&gt;&lt;P&gt;    APPEND wa_lhead TO it_lhead.&lt;/P&gt;&lt;P&gt;    CLEAR wa_lhead.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;    wa_lhead-typ    = c_s.&lt;/P&gt;&lt;P&gt;    CONCATENATE  text-024 w_ktx text-027 text-021 INTO w_a1 SEPARATED BY space.&lt;/P&gt;&lt;P&gt;    wa_lhead-info   = w_a1.&lt;/P&gt;&lt;P&gt;    APPEND wa_lhead TO it_lhead.&lt;/P&gt;&lt;P&gt;    CLEAR wa_lhead.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;    wa_lhead-typ    = c_s.&lt;/P&gt;&lt;P&gt;    CONCATENATE text-025 w_sydate  w_sytime INTO w_date SEPARATED BY space.&lt;/P&gt;&lt;P&gt;    wa_lhead-info    = w_date.&lt;/P&gt;&lt;P&gt;    APPEND wa_lhead TO it_lhead.&lt;/P&gt;&lt;P&gt;    CLEAR wa_lhead.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;    wa_lhead-typ    = c_s.&lt;/P&gt;&lt;P&gt;    w_pgno = sy-pagno + 1.&lt;/P&gt;&lt;P&gt;    CONCATENATE text-026 w_pgno  INTO w_page SEPARATED BY space.&lt;/P&gt;&lt;P&gt;    wa_lhead-info    = w_page.&lt;/P&gt;&lt;P&gt;    APPEND wa_lhead TO it_lhead.&lt;/P&gt;&lt;P&gt;    CLEAR wa_lhead.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  ELSEIF   r2 = text-014.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;    wa_lhead-typ    = c_h.&lt;/P&gt;&lt;P&gt;    wa_lhead-info   = text-022.&lt;/P&gt;&lt;P&gt;    APPEND wa_lhead TO it_lhead.&lt;/P&gt;&lt;P&gt;    CLEAR wa_lhead.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;    wa_lhead-typ    = c_s.&lt;/P&gt;&lt;P&gt;    wa_lhead-info    = w_persa.&lt;/P&gt;&lt;P&gt;    APPEND wa_lhead TO it_lhead.&lt;/P&gt;&lt;P&gt;    CLEAR wa_lhead.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;    wa_lhead-typ    = c_s.&lt;/P&gt;&lt;P&gt;    CONCATENATE  text-024 w_ktx text-027 text-023 INTO w_a2 SEPARATED BY space.&lt;/P&gt;&lt;P&gt;    wa_lhead-info   = w_a2.&lt;/P&gt;&lt;P&gt;    APPEND wa_lhead TO it_lhead.&lt;/P&gt;&lt;P&gt;    CLEAR wa_lhead.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;    wa_lhead-typ    = c_s.&lt;/P&gt;&lt;P&gt;    CONCATENATE text-025 w_sydate  w_sytime INTO w_date SEPARATED BY space.&lt;/P&gt;&lt;P&gt;    wa_lhead-info    = w_date.&lt;/P&gt;&lt;P&gt;    APPEND wa_lhead TO it_lhead.&lt;/P&gt;&lt;P&gt;    CLEAR wa_lhead.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;    wa_lhead-typ    = c_s.&lt;/P&gt;&lt;P&gt;    w_pgno = sy-pagno + 1.&lt;/P&gt;&lt;P&gt;    CONCATENATE text-026 w_pgno  INTO w_page SEPARATED BY space.&lt;/P&gt;&lt;P&gt;    wa_lhead-info    = w_page.&lt;/P&gt;&lt;P&gt;    APPEND wa_lhead TO it_lhead.&lt;/P&gt;&lt;P&gt;    CLEAR wa_lhead.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  ENDIF.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;ENDFORM.                    " f005_Top_of_page&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*&amp;amp;----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;P&gt;*&amp;amp;      Form  f006_alv_header&lt;/P&gt;&lt;P&gt;*&amp;amp;----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;      text: to call for the diaplay of ALV header&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;*----&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;P&gt;FORM f006_alv_header.&lt;/P&gt;&lt;P&gt;  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'&lt;/P&gt;&lt;P&gt;    EXPORTING&lt;/P&gt;&lt;P&gt;      it_list_commentary = it_lhead[].&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;ENDFORM.                    "f006_ALV_header&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Hope this is helpful.&lt;/P&gt;&lt;P&gt;****reward points if so.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Wed, 20 Jun 2007 04:12:20 GMT</pubDate>
      <guid>https://community.sap.com/t5/application-development-and-automation-discussions/abap/m-p/2422094#M540846</guid>
      <dc:creator>Former Member</dc:creator>
      <dc:date>2007-06-20T04:12:20Z</dc:date>
    </item>
    <item>
      <title>Re: abap</title>
      <link>https://community.sap.com/t5/application-development-and-automation-discussions/abap/m-p/2422095#M540847</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;hi,&lt;/P&gt;&lt;P&gt;1.h to pass the parameters in the reuse_alv_list_display?&lt;/P&gt;&lt;P&gt;check this demo.&lt;/P&gt;&lt;P&gt;REPORT  ZSR_ALV_GRID.&lt;/P&gt;&lt;P&gt;TABLES : lfa1.&lt;/P&gt;&lt;P&gt;SELECT-OPTIONS : s_lifnr FOR lfa1-lifnr.&lt;/P&gt;&lt;P&gt;DATA : BEGIN OF itab OCCURS 0,&lt;/P&gt;&lt;P&gt;       lifnr LIKE lfa1-lifnr,&lt;/P&gt;&lt;P&gt;       land1 LIKE lfa1-land1,&lt;/P&gt;&lt;P&gt;       name1 LIKE lfa1-name1,&lt;/P&gt;&lt;P&gt;       END OF itab.&lt;/P&gt;&lt;P&gt;TYPE-POOLS : slis.&lt;/P&gt;&lt;P&gt;DATA : b_lfa1 TYPE slis_t_fieldcat_alv,&lt;/P&gt;&lt;P&gt;       w_lfa1 TYPE slis_fieldcat_alv.&lt;/P&gt;&lt;P&gt;PERFORM GET_VAL.&lt;/P&gt;&lt;P&gt;START-OF-SELECTION.&lt;/P&gt;&lt;P&gt;  SELECT lifnr&lt;/P&gt;&lt;P&gt;         land1&lt;/P&gt;&lt;P&gt;         name1&lt;/P&gt;&lt;P&gt;         FROM lfa1&lt;/P&gt;&lt;P&gt;         INTO TABLE itab&lt;/P&gt;&lt;P&gt;         WHERE lifnr IN s_lifnr.&lt;/P&gt;&lt;P&gt;CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'&lt;/P&gt;&lt;P&gt; EXPORTING&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;  I_INTERFACE_CHECK              = ' '&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;  I_BYPASSING_BUFFER             =&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;  I_BUFFER_ACTIVE                = ' '&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;   I_CALLBACK_PROGRAM             = SY-REPID&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;  I_CALLBACK_PF_STATUS_SET       = ' '&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;  I_CALLBACK_USER_COMMAND        = ' '&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;  I_STRUCTURE_NAME               =&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;  IS_LAYOUT                      =&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;   IT_FIELDCAT                    = B_LFA1&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;  IT_EXCLUDING                   =&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;  IT_SPECIAL_GROUPS              =&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;  IT_SORT                        =&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;  IT_FILTER                      =&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;  IS_SEL_HIDE                    =&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;  I_DEFAULT                      = 'X'&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;  I_SAVE                         = ' '&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;  IS_VARIANT                     =&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;  IT_EVENTS                      =&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;  IT_EVENT_EXIT                  =&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;  IS_PRINT                       =&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;  IS_REPREP_ID                   =&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;  I_SCREEN_START_COLUMN          = 0&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;  I_SCREEN_START_LINE            = 0&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;  I_SCREEN_END_COLUMN            = 0&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;  I_SCREEN_END_LINE              = 0&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;IMPORTING&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;  E_EXIT_CAUSED_BY_CALLER        =&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;  ES_EXIT_CAUSED_BY_USER         =&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;  TABLES&lt;/P&gt;&lt;P&gt;    t_outtab                       = ITAB&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;EXCEPTIONS&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;  PROGRAM_ERROR                  = 1&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;  OTHERS                         = 2&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;          .&lt;/P&gt;&lt;P&gt;IF sy-subrc &amp;lt;&amp;gt; 0.&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;ENDIF.&lt;/P&gt;&lt;P&gt;&lt;STRONG&gt;&amp;amp;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*&amp;amp;      Form  GET_VAL&lt;/P&gt;&lt;P&gt;&lt;STRONG&gt;&amp;amp;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;FORM get_val .&lt;/P&gt;&lt;P&gt;  w_lfa1-fieldname = 'LIFNR'.&lt;/P&gt;&lt;P&gt;  w_lfa1-ref_tabname = 'LFA1'.&lt;/P&gt;&lt;P&gt;  w_lfa1-ref_fieldname = 'LIFNR' .&lt;/P&gt;&lt;P&gt;  APPEND w_lfa1 TO b_lfa1.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  w_lfa1-fieldname = 'LAND1'.&lt;/P&gt;&lt;P&gt;  w_lfa1-ref_tabname = 'LFA1'.&lt;/P&gt;&lt;P&gt;  w_lfa1-ref_fieldname = 'LAND1' .&lt;/P&gt;&lt;P&gt;  APPEND w_lfa1 TO b_lfa1.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  w_lfa1-fieldname = 'NAME1'.&lt;/P&gt;&lt;P&gt;  w_lfa1-ref_tabname = 'LFA1'.&lt;/P&gt;&lt;P&gt;  w_lfa1-ref_fieldname = 'NAME1' .&lt;/P&gt;&lt;P&gt;  APPEND w_lfa1 TO b_lfa1.&lt;/P&gt;&lt;P&gt;ENDFORM.                    " GET_VAL&lt;/P&gt;&lt;P&gt;&amp;lt;b&amp;gt;3.In real time h to use the performance tunning?&amp;lt;/b&amp;gt;&lt;/P&gt;&lt;P&gt;ABAP performance depends upon various factors and in devicded in three parts:&lt;/P&gt;&lt;P&gt;1. Database&lt;/P&gt;&lt;P&gt;2. ABAP &lt;/P&gt;&lt;P&gt;3. System&lt;/P&gt;&lt;P&gt;Run Any program using SE30 (performance analys) to improve performance refer to tips and trics section of SE30, Always remember that ABAP perfirmance is improved when there is least load on Database.&lt;/P&gt;&lt;P&gt;u can get an interactive grap in SE30 regarding this with a file.&lt;/P&gt;&lt;P&gt;also if u find runtime of parts of codes then use :&lt;/P&gt;&lt;P&gt;Switch on RTA Dynamically within ABAP Code &lt;/P&gt;&lt;P&gt;*To turn runtim analysis on within ABAP code insert the following code&lt;/P&gt;&lt;P&gt;SET RUN TIME ANALYZER ON.&lt;/P&gt;&lt;P&gt;*To turn runtim analysis off within ABAP code insert the following code&lt;/P&gt;&lt;P&gt;SET RUN TIME ANALYZER OFF.&lt;/P&gt;&lt;P&gt;Always check the driver internal tables is not empty, while using FOR ALL ENTRIES&lt;/P&gt;&lt;P&gt;Avoid for all entries in JOINS&lt;/P&gt;&lt;P&gt;Try to avoid joins and use FOR ALL ENTRIES.&lt;/P&gt;&lt;P&gt;Try to restrict the joins to 1 level only ie only for tables&lt;/P&gt;&lt;P&gt;Avoid using Select *.&lt;/P&gt;&lt;P&gt;Avoid having multiple Selects from the same table in the same object.&lt;/P&gt;&lt;P&gt;Try to minimize the number of variables to save memory. &lt;/P&gt;&lt;P&gt;The sequence of fields in 'where clause' must be as per primary/secondary index ( if any)&lt;/P&gt;&lt;P&gt;Avoid creation of index as far as possible&lt;/P&gt;&lt;P&gt;Avoid operators like &amp;lt;&amp;gt;, &amp;gt; , &amp;lt; &amp;amp; like % in where clause conditions&lt;/P&gt;&lt;P&gt;Avoid select/select single statements in loops.&lt;/P&gt;&lt;P&gt;Try to use 'binary search' in READ internal table. Ensure table is sorted before using BINARY SEARCH.&lt;/P&gt;&lt;P&gt;Avoid using aggregate functions (SUM, MAX etc) in selects ( GROUP BY , HAVING,) &lt;/P&gt;&lt;P&gt;Avoid using ORDER BY in selects&lt;/P&gt;&lt;P&gt;Avoid Nested Selects &lt;/P&gt;&lt;P&gt;Avoid Nested Loops of Internal Tables&lt;/P&gt;&lt;P&gt;Try to use FIELD SYMBOLS.&lt;/P&gt;&lt;P&gt;Try to avoid into Corresponding Fields of&lt;/P&gt;&lt;P&gt;Avoid using Select Distinct, Use DELETE ADJACENT&lt;/P&gt;&lt;P&gt;Go through the following Document&lt;/P&gt;&lt;P&gt;Check the following Links&lt;/P&gt;&lt;P&gt;&lt;A class="jive_macro jive_macro_message" href="https://community.sap.com/" __jive_macro_name="message" modifiedtitle="true" __default_attr="1591512"&gt;&lt;/A&gt;&lt;/P&gt;&lt;P&gt;&lt;A class="jive_macro jive_macro_message" href="https://community.sap.com/" __jive_macro_name="message" modifiedtitle="true" __default_attr="1429297"&gt;&lt;/A&gt;&lt;/P&gt;&lt;P&gt;&lt;A href="http://www.sapgenie.com/abap/performance.htm" target="test_blank"&gt;http://www.sapgenie.com/abap/performance.htm&lt;/A&gt;&lt;/P&gt;&lt;P&gt;&lt;A href="http://www.thespot4sap.com/Articles/SAPABAPPerformanceTuning_PerformanceAnalysisTools.asp" target="test_blank"&gt;http://www.thespot4sap.com/Articles/SAPABAPPerformanceTuning_PerformanceAnalysisTools.asp&lt;/A&gt;&lt;/P&gt;&lt;P&gt;check the below link&lt;/P&gt;&lt;P&gt;&lt;A href="http://www.sap-img.com/abap/performance-tuning-for-data-selection-statement.htm" target="test_blank"&gt;http://www.sap-img.com/abap/performance-tuning-for-data-selection-statement.htm&lt;/A&gt;&lt;/P&gt;&lt;P&gt;See the following link if it's any help:&lt;/P&gt;&lt;P&gt;&lt;A href="http://www.thespot4sap.com/Articles/SAPABAPPerformanceTuning_PerformanceAnalysisTools.asp" target="test_blank"&gt;http://www.thespot4sap.com/Articles/SAPABAPPerformanceTuning_PerformanceAnalysisTools.asp&lt;/A&gt;&lt;/P&gt;&lt;P&gt;Check also &lt;A href="http://service.sap.com/performance" target="test_blank"&gt;http://service.sap.com/performance&lt;/A&gt;&lt;/P&gt;&lt;P&gt;books like&lt;/P&gt;&lt;P&gt;&lt;A href="http://www.sap-press.com/product.cfm?account=&amp;amp;product=H951" target="test_blank"&gt;http://www.sap-press.com/product.cfm?account=&amp;amp;product=H951&lt;/A&gt;&lt;/P&gt;&lt;P&gt;&lt;A href="http://www.sap-press.com/product.cfm?account=&amp;amp;product=H973" target="test_blank"&gt;http://www.sap-press.com/product.cfm?account=&amp;amp;product=H973&lt;/A&gt;&lt;/P&gt;&lt;P&gt;&lt;A href="http://www.sap-img.com/abap/more-than-100-abap-interview-faqs.htm" target="test_blank"&gt;http://www.sap-img.com/abap/more-than-100-abap-interview-faqs.htm&lt;/A&gt;&lt;/P&gt;&lt;P&gt;&lt;A href="http://www.thespot4sap.com/Articles/SAPABAPPerformanceTuning_PerformanceAnalysisTools.asp" target="test_blank"&gt;http://www.thespot4sap.com/Articles/SAPABAPPerformanceTuning_PerformanceAnalysisTools.asp&lt;/A&gt;&lt;/P&gt;&lt;P&gt;Performance tuning for Data Selection Statement &lt;/P&gt;&lt;P&gt;&lt;A href="http://www.sap-img.com/abap/performance-tuning-for-data-selection-statement.htm" target="test_blank"&gt;http://www.sap-img.com/abap/performance-tuning-for-data-selection-statement.htm&lt;/A&gt;&lt;/P&gt;&lt;P&gt;Run Time Analyser&lt;/P&gt;&lt;P&gt;&lt;A href="http://help.sap.com/saphelp_47x200/helpdata/en/c6/617cafe68c11d2b2ab080009b43351/content.htm" target="test_blank"&gt;http://help.sap.com/saphelp_47x200/helpdata/en/c6/617cafe68c11d2b2ab080009b43351/content.htm&lt;/A&gt;&lt;/P&gt;&lt;P&gt;SQL trace&lt;/P&gt;&lt;P&gt;&lt;A href="http://help.sap.com/saphelp_47x200/helpdata/en/d1/801f7c454211d189710000e8322d00/content.htm" target="test_blank"&gt;http://help.sap.com/saphelp_47x200/helpdata/en/d1/801f7c454211d189710000e8322d00/content.htm&lt;/A&gt;&lt;/P&gt;&lt;P&gt;CATT - Computer Aided Testing Too&lt;/P&gt;&lt;P&gt;&lt;A href="http://help.sap.com/saphelp_47x200/helpdata/en/b3/410b37233f7c6fe10000009b38f936/frameset.htm" target="test_blank"&gt;http://help.sap.com/saphelp_47x200/helpdata/en/b3/410b37233f7c6fe10000009b38f936/frameset.htm&lt;/A&gt;&lt;/P&gt;&lt;P&gt;Test Workbench&lt;/P&gt;&lt;P&gt;&lt;A href="http://help.sap.com/saphelp_47x200/helpdata/en/a8/157235d0fa8742e10000009b38f889/frameset.htm" target="test_blank"&gt;http://help.sap.com/saphelp_47x200/helpdata/en/a8/157235d0fa8742e10000009b38f889/frameset.htm&lt;/A&gt;&lt;/P&gt;&lt;P&gt;Coverage Analyser&lt;/P&gt;&lt;P&gt;&lt;A href="http://help.sap.com/saphelp_47x200/helpdata/en/c7/af9a79061a11d4b3d4080009b43351/content.htm" target="test_blank"&gt;http://help.sap.com/saphelp_47x200/helpdata/en/c7/af9a79061a11d4b3d4080009b43351/content.htm&lt;/A&gt;&lt;/P&gt;&lt;P&gt;Runtime Monitor&lt;/P&gt;&lt;P&gt;&lt;A href="http://help.sap.com/saphelp_47x200/helpdata/en/b5/fa121cc15911d5993d00508b6b8b11/content.htm" target="test_blank"&gt;http://help.sap.com/saphelp_47x200/helpdata/en/b5/fa121cc15911d5993d00508b6b8b11/content.htm&lt;/A&gt;&lt;/P&gt;&lt;P&gt;Memory Inspector&lt;/P&gt;&lt;P&gt;&lt;A href="http://help.sap.com/saphelp_47x200/helpdata/en/a2/e5fc84cc87964cb2c29f584152d74e/content.htm" target="test_blank"&gt;http://help.sap.com/saphelp_47x200/helpdata/en/a2/e5fc84cc87964cb2c29f584152d74e/content.htm&lt;/A&gt;&lt;/P&gt;&lt;P&gt;ECATT - Extended Computer Aided testing tool.&lt;/P&gt;&lt;P&gt;&lt;A href="http://help.sap.com/saphelp_47x200/helpdata/en/20/e81c3b84e65e7be10000000a11402f/frameset.htm" target="test_blank"&gt;http://help.sap.com/saphelp_47x200/helpdata/en/20/e81c3b84e65e7be10000000a11402f/frameset.htm&lt;/A&gt;&lt;/P&gt;&lt;P&gt;Just refer to these links...&lt;/P&gt;&lt;P&gt;&lt;A class="jive_macro jive_macro_thread" href="https://community.sap.com/" __jive_macro_name="thread" modifiedtitle="true" __default_attr="84514"&gt;&lt;/A&gt;&lt;/P&gt;&lt;P&gt;&lt;A class="jive_macro jive_macro_thread" href="https://community.sap.com/" __jive_macro_name="thread" modifiedtitle="true" __default_attr="23912"&gt;&lt;/A&gt;&lt;/P&gt;&lt;P&gt;&lt;A class="jive_macro jive_macro_thread" href="https://community.sap.com/" __jive_macro_name="thread" modifiedtitle="true" __default_attr="142272"&gt;&lt;/A&gt;&lt;/P&gt;&lt;P&gt;&lt;A class="jive_macro jive_macro_thread" href="https://community.sap.com/" __jive_macro_name="thread" modifiedtitle="true" __default_attr="131727"&gt;&lt;/A&gt;&lt;/P&gt;&lt;P&gt;&lt;A class="jive_macro jive_macro_thread" href="https://community.sap.com/" __jive_macro_name="thread" modifiedtitle="true" __default_attr="84583"&gt;&lt;/A&gt;&lt;/P&gt;&lt;P&gt;&lt;A class="jive_macro jive_macro_thread" href="https://community.sap.com/" __jive_macro_name="thread" modifiedtitle="true" __default_attr="145177"&gt;&lt;/A&gt;&lt;/P&gt;&lt;P&gt;&lt;A class="jive_macro jive_macro_thread" href="https://community.sap.com/" __jive_macro_name="thread" modifiedtitle="true" __default_attr="148874"&gt;&lt;/A&gt;&lt;/P&gt;&lt;P&gt;&lt;A class="jive_macro jive_macro_thread" href="https://community.sap.com/" __jive_macro_name="thread" modifiedtitle="true" __default_attr="151144"&gt;&lt;/A&gt;&lt;/P&gt;&lt;P&gt;&amp;lt;b&amp;gt;4.In script h to delete the window?&amp;lt;/b&amp;gt;&lt;/P&gt;&lt;P&gt;goto se71-&amp;gt;give ur form name-&amp;gt;change-&amp;gt;select WINDOWs-&amp;gt;select particluar window which u want to delete-&amp;gt;right click-&amp;gt;select DELETE ELEMENT&lt;/P&gt;&lt;P&gt;&amp;lt;b&amp;gt;5.Can u send me userexit material and realtime objects?&amp;lt;/b&amp;gt; &lt;/P&gt;&lt;P&gt;check these sites:&lt;/P&gt;&lt;P&gt;&lt;A href="http://www.sap-img.com/abap/a-short-tutorial-on-user-exits.htm" target="test_blank"&gt;http://www.sap-img.com/abap/a-short-tutorial-on-user-exits.htm&lt;/A&gt; &lt;/P&gt;&lt;P&gt;&lt;A href="http://www.sap-img.com/ab038.htm" target="test_blank"&gt;http://www.sap-img.com/ab038.htm&lt;/A&gt; &lt;/P&gt;&lt;P&gt;&lt;A href="http://www.planetsap.com/userexit_main_page.htm" target="test_blank"&gt;http://www.planetsap.com/userexit_main_page.htm&lt;/A&gt; &lt;/P&gt;&lt;P&gt;&lt;A href="http://www.sap-basis-abap.com/sapab013.htm" target="test_blank"&gt;http://www.sap-basis-abap.com/sapab013.htm&lt;/A&gt;&lt;/P&gt;&lt;P&gt;&lt;A href="http://sap.ittoolbox.com/documents/popular-q-and-a/user-exits-for-the-transaction-code-migo-3283" target="test_blank"&gt;http://sap.ittoolbox.com/documents/popular-q-and-a/user-exits-for-the-transaction-code-migo-3283&lt;/A&gt;&lt;/P&gt;&lt;P&gt;These links will help you to learn more on user exits.&lt;/P&gt;&lt;P&gt;&lt;A href="http://www.sap-img.com/abap/a-short-tutorial-on-user-exits.htm" target="test_blank"&gt;http://www.sap-img.com/abap/a-short-tutorial-on-user-exits.htm&lt;/A&gt;&lt;/P&gt;&lt;P&gt;&lt;A href="http://help.sap.com/saphelp_nw04/helpdata/en/c8/1975cc43b111d1896f0000e8322d00/frameset.htm" target="test_blank"&gt;http://help.sap.com/saphelp_nw04/helpdata/en/c8/1975cc43b111d1896f0000e8322d00/frameset.htm&lt;/A&gt;&lt;/P&gt;&lt;P&gt;&lt;A href="http://www.planetsap.com/userexit_main_page.htm" target="test_blank"&gt;http://www.planetsap.com/userexit_main_page.htm&lt;/A&gt;&lt;/P&gt;&lt;P&gt;&lt;A href="http://www.allsaplinks.com/user_exit.html" target="test_blank"&gt;http://www.allsaplinks.com/user_exit.html&lt;/A&gt;&lt;/P&gt;&lt;P&gt;&lt;A href="https://community.sap.com/www.sap-img.com/abap/what-is-user-exits.htm" target="test_blank"&gt;www.sap-img.com/abap/what-is-user-exits.htm&lt;/A&gt;&lt;/P&gt;&lt;P&gt;Also please check these threads for more details about user exits.&lt;/P&gt;&lt;P&gt;&lt;A class="jive_macro jive_macro_message" href="https://community.sap.com/" __jive_macro_name="message" modifiedtitle="true" __default_attr="1303464"&gt;&lt;/A&gt;&lt;/P&gt;&lt;P&gt;&lt;A class="jive_macro jive_macro_message" href="https://community.sap.com/" __jive_macro_name="message" modifiedtitle="true" __default_attr="429991"&gt;&lt;/A&gt;&lt;/P&gt;&lt;P&gt;&lt;A class="jive_macro jive_macro_message" href="https://community.sap.com/" __jive_macro_name="message" modifiedtitle="true" __default_attr="658830"&gt;&lt;/A&gt;&lt;/P&gt;&lt;P&gt;1. Document on UserExits in FI/CO&lt;/P&gt;&lt;P&gt;&lt;A href="http://www.ficoexpertonline.com/downloads/User%20ExitsWPedit.doc" target="test_blank"&gt;http://www.ficoexpertonline.com/downloads/User%20ExitsWPedit.doc&lt;/A&gt;&lt;/P&gt;&lt;P&gt;2. Finding User Exits...&lt;/P&gt;&lt;P&gt;&lt;A href="http://sap.ionelburlacu.ro/abap/sap2/Other_Useful_Tips.html#Finding_User_Exits" target="test_blank"&gt;http://sap.ionelburlacu.ro/abap/sap2/Other_Useful_Tips.html#Finding_User_Exits&lt;/A&gt;&lt;/P&gt;&lt;P&gt;3. List of all User Exits...&lt;/P&gt;&lt;P&gt;&lt;A href="http://www.planetsap.com/userexit_main_page.htm" target="test_blank"&gt;http://www.planetsap.com/userexit_main_page.htm&lt;/A&gt;&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Wed, 20 Jun 2007 04:29:04 GMT</pubDate>
      <guid>https://community.sap.com/t5/application-development-and-automation-discussions/abap/m-p/2422095#M540847</guid>
      <dc:creator>Former Member</dc:creator>
      <dc:date>2007-06-20T04:29:04Z</dc:date>
    </item>
  </channel>
</rss>

