Module pool to maintiane table ztavble

Question

hi
can anyone send me complete code to refer for maintaining a ztable
following validation are required like
1) sortiing
deletein and addition save etc all as in table maintianece i need to code by module pool becasue in table maintainece sorting coding is not possible...
also validation are
1) whne user enters ship to info name 1 should automatically be populated from kna1 on pressing enter how to acheive this by module pool
2) email verification format should be correct? how to acheive this by module pool
3) sorting on basis of all fields
regards
Nishant

Answer 1

Hi Nishanth,,,
I also developed the same kind of Program for maintaining the Ztable...
Jus create a new GUI Staus...with the required functions....
Refer the below code:
   REPORT                     : Z0BRAP_TAX_EXCEPTION .
TITLE                      : Tax Exceptions Table
AUTHOR                     : Swaminathan PJ
DATE                       : 04/12/2006
DDN NUMBER                 : SAP-BR-TB0020
TRANSPORT REQUEST NUMBER   : D12K912309
REFERENCE                  :
DESCRIPTION
Program Z0BRAP_TAX_EXCEPTION is an Report program to update the table
ZTBRAP_TAX_EXCPT,here user can Create/Change/Display the table entrie
s and can perform the following functions (Filter,Sort,Summation and
Subtotal).
AMENDMENTS
CHANGES REF         DATE         PERSON         Tran.Req. Number
DESCRIPTION:
               Include for Global Declarations                       *
   INCLUDE: znbrap_tax_exception_top.                                           " Include for Global Declarative elements
     Include
All the subroutines are include
   INCLUDE znbrap_tax_exception.                                                " Include for all Subroutines
     START OF SELECTION
   START-OF-SELECTION.
  Main Subroutine
     PERFORM  procMain.
                     End of Selection                                *
   END-OF-SELECTION.
INCLUDE                    : ZNBRAP_TAX_EXCEPTION_TOP
TITLE                      : Data Declarations
AUTHOR                     :
DATE                       : 04.12.2006
TRANSPORT REQUEST NUMBER   : D12K912309
DESCRIPTION
Global Data Declarations for Z0BRAP_TAX_EXCEPTION
AMENDMENTS
CHANGES REF         DATE         PERSON         Tran.Req. Number
DESCRIPTION:
ALV Declarations
TYPE-POOLS: slis.
Types contains the structure of the table
*TYPES :   BEGIN OF gy_tax_exception.
           INCLUDE STRUCTURE ztbrap_tax_excpt.
             mandt           TYPE   mandt,
             zmonat          TYPE   monat,
             zbukrs          TYPE   bukrs,
             zlifnr          TYPE   lifnr,
             zexctype        TYPE   zebrap_exctype,
             zstcd1          TYPE   stcd1,
             zaugdt_other    TYPE   budat,
             zbelnr          TYPE   belnr,
             zdmbtr          TYPE   dmbtr,
             zwhtinssca      TYPE   dmbtr,
             zuserch         TYPE   syuname,
             zdate_change    TYPE   datum,
             ztime_change    TYPE   uzeit,
*TYPES:          END OF gy_tax_exception.
Tables for the structure defined above
*TYPES : gy_tax_exception_tab  TYPE STANDARD TABLE OF gy_tax_exception.
Internal Table
DATA: gt_tax_excpt_tab        TYPE   STANDARD TABLE OF ztbrap_tax_excpt WITH HEADER LINE, "Global internal table for Tax exceptions data
      gt_fieldcat                   TYPE   slis_fieldcat_alv OCCURS 0 WITH HEADER LINE.         "Global internal table for fieldcat
*&  Include           ZNBRAP_TAX_EXCEPTION                             *
*&      Form  procMain
      text
-->  p1        text
<--  p2        text
FORM procMain .
Set PF-Status
  perform procInitialize.
Select Tax Exceptions Data
  perform procGetTaxExceptionsData.
Display ALV Report with Tax Exceptions Data
  perform procDisplayTaxExceptionsData.
ENDFORM.                    " procMain
      FORM initialize                                               *
form procInitialize.
  CONSTANTS :
  lc_pfstatus               TYPE    abnkr VALUE 'ZTAX_EXCEPTION'. "Pf Status
Set status
  set pf-status lc_pfstatus.
endform.                    "procInitialize
      FORM retrieve_data                                            *
      Retrieve data from SAP                                        *
form procGetTaxExceptionsData.
  REFRESH: gt_tax_excpt_tab.
  select * from ztbrap_tax_excpt
    appending corresponding fields of table gt_tax_excpt_tab.
endform.                    "procGetTaxExceptionsData
Called by REUSE_ALV_GRID_DISPLAY when user interacts.               *
In this case, there are a number of buttons / menu options for      *
user to select for non-standard functions:                          *
o Single Display                                                    *
o Single Change                                                     *
o Single create                                                     *
o Single Delete                                                     *
      --> lv_ucomm                                                  *
      --> LW_SELFIELD                                               *
form user_command using lv_ucomm like sy-ucomm
                  lw_selfield type slis_selfield.
Work area
  DATA: lw_update_tax_excpt TYPE    ztbrap_tax_excpt. " work area for tax exceptions data
  DATA: lw_tax_exception    TYPE    ztbrap_tax_excpt. " work area for tax exceptions data
Variables
  DATA: lv_key              TYPE    abkrs ,                 "key fields
        lv_non_key          TYPE    abkrs,                  "Non Key Fields
        lv_insert           TYPE    ablnv,                  "Insert
        lv_change           TYPE    ablnv,                  "Change
        lv_entry            TYPE    ablnv,                  "Popup title
        lv_display          TYPE    ablnv,                  "Display
        lv_delete           TYPE    ablnv,                  "Delete
        lv_mode             TYPE    ablnv .                 "Menu options
Constants
  CONSTANTS:
       lc_new               TYPE    alind VALUE 'ZNEW',     "Fcode for new
       lc_update            TYPE    alind VALUE 'ZBR',      "Fcode for change
       lc_view              TYPE    alind VALUE 'ZDISP',    "Fcode for display
       lc_delete            TYPE    alind VALUE 'ZDEL ',    "Fcode for delete
       lc_show_field        TYPE    abkrs VALUE '00',       "Show field
       lc_hide_field        TYPE    abkrs VALUE '02'.       "Hide field
Clear Local Work Area
  CLEAR :
       lw_update_tax_excpt.
Clear Local Variables
  CLEAR :
       lv_key,
       lv_non_key,
       lv_mode,
       lv_insert,
       lv_delete,
       lv_change,
       lv_display.
Retrieve data for selected line & store it in a temp structure.
  READ TABLE gt_tax_excpt_tab index lw_selfield-tabindex .
  if sy-subrc is not initial and lv_ucomm <> lc_new  and lv_ucomm(6) <> 'DELETE'.
    message w123(m&).   " Position the cursor on a valid line
    exit.
  endif.
Moving the contents to workarea
MOVE gt_tax_excpt_tab-zmonat         TO lw_update_tax_excpt-zmonat.
MOVE gt_tax_excpt_tab-zbukrs         TO lw_update_tax_excpt-zbukrs.
MOVE gt_tax_excpt_tab-zlifnr         to lw_update_tax_excpt-zlifnr.
MOVE gt_tax_excpt_tab-zexctype       to lw_update_tax_excpt-zexctype.
MOVE gt_tax_excpt_tab-zstcd1         to lw_update_tax_excpt-zstcd1.
MOVE gt_tax_excpt_tab-zaugdt_other   to lw_update_tax_excpt-zaugdt_other.
MOVE gt_tax_excpt_tab-zbelnr         to lw_update_tax_excpt-zbelnr.
MOVE gt_tax_excpt_tab-zdmbtr         to lw_update_tax_excpt-zdmbtr.
MOVE gt_tax_excpt_tab-zwhtinssca     to lw_update_tax_excpt-zwhtinssca.
MOVE gt_tax_excpt_tab-zuserch        to lw_update_tax_excpt-zuserch.
MOVE gt_tax_excpt_tab-zdate_change   to lw_update_tax_excpt-zdate_change.
MOVE gt_tax_excpt_tab-ztime_change   to lw_update_tax_excpt-ztime_change.
Move the text for Add,Change,Display
  Move text-019 To lv_insert.
  Move text-020 To lv_change.
  Move text-021 To lv_display.
  Move text-023 To lv_delete.
Now see which button / menu option user has selected
  case lv_ucomm.
    when lc_view.               "Display a single entry
      lv_mode    = lv_display.
      lv_key     = lc_hide_field.     "hide key fields
      lv_non_key = lc_hide_field.     "hide non key fields
      perform procFindKeyFields
                     using lw_update_tax_excpt lv_mode lv_insert lv_delete
                           lv_change lv_display lv_key lv_non_key lw_selfield.
    when lc_update .          "Update a single entry (show non-key fields)
      lv_mode    = lv_change.
      lv_key     = lc_hide_field.    "hide key fields
      lv_non_key = lc_show_field.    "show non-key fields
      perform procFindKeyFields
                     using lw_update_tax_excpt lv_mode lv_insert lv_delete
                           lv_change lv_display lv_key lv_non_key lw_selfield.
    when lc_new. "Add a single new entry (show all fields)
      lv_mode    = lv_insert.
      lv_key     = lc_show_field.
      lv_non_key = lc_show_field.
      clear lw_update_tax_excpt.  "Empty structure to give new entry.
      perform procFindKeyFields
                     using lw_update_tax_excpt lv_mode lv_insert lv_delete
                           lv_change lv_display lv_key lv_non_key lw_selfield.
    WHEN lc_delete.               " Delete current entry
      lv_mode   = lv_delete.
      lv_key    = lc_hide_field.
      lv_non_key = lc_hide_field.
     perform procFindKeyFields
                     using lw_update_tax_excpt lv_mode lv_insert lv_delete
                           lv_change lv_display lv_key lv_non_key lw_selfield.
  endcase.
endform.                    "user_command
      FORM procFindKeyFields                                        *
-->  lw_tax_excpt                                                  *
-->  lw_update_tax_excpt                                           *
-->  lv_ret                                                        *
form procFindKeyFields  using  lw_update_tax_excpt structure  ztbrap_tax_excpt
                               lv_mode
                               lv_insert
                               lv_delete
                               lv_change
                               lv_display
                               lv_key
                               lv_non_key
                               lw_selfield type slis_selfield.
Work area
  DATA:lw_key_table         TYPE    dfies occurs 0 with header line,      "Work area for for key fields
       lw_tax_excpt         TYPE    sval  occurs 0 with header line.      "Work area for tax exceptions data
Variables
  DATA: lv_ret              TYPE    char1,                                "Return parameter
        lv_title            TYPE    text60,                               "Popup title
        lv_excpt_type       TYPE    ZEBRAP_EXCTYPE,                       "Exception type
        lv_entry            TYPE    ablnv,                                "Popup text
        lv_vendor           TYPE    lifnr,                                "Vendor
        lv_vendor_no        TYPE    lifnr,                                "Vendor
        lv_co_code          TYPE    bukrs,                                "Company code
        lv_comp_code        TYPE    bukrs,                                "Company code
        lv_answer           TYPE    aavis.                                "Return parameter
Constants
  CONSTANTS:
        lc_ref_tab          TYPE    ablnv VALUE 'T001',                   "Reference table
        lc_ref_fld          TYPE    ablnv VALUE 'WAERS',                  "Reference field
        lc_hide_fld         TYPE    abkrs VALUE '04',                     "Hide field
        lc_client           TYPE    amert VALUE 'MANDT',                  "Client
        lc_user             TYPE    amert VALUE 'ZUSERCH',                "User
        lc_date             TYPE    amert VALUE 'ZDATE_CHANGE',           "Date
        lc_time             TYPE    amert VALUE 'ZTIME_CHANGE',           "Time
        lc_taxno            TYPE    amert VALUE 'ZSTCD1',                 "Tax Number
        lc_vendor           TYPE    amert VALUE 'ZLIFNR',                 "Vendor
        lc_exception_typ    TYPE    amert VALUE 'ZEXCTYPE',               "Exception type
        lc_clearing_dt      TYPE    amert VALUE 'ZAUGDT_OTHER',           "Clearing date
        lc_period           TYPE    amert VALUE 'ZMONAT',                 "Period
        lc_co_code          TYPE    amert VALUE 'ZBUKRS',                 "Company code
        lc_gross_amt        TYPE    amert VALUE 'ZDMBTR',                 "Gross amount
        lc_excpt_amt        TYPE    amert VALUE 'ZWHTINSSCA',             "Exception amount
        lc_period_def       TYPE    abkrs VALUE '00',                     "Default value for period
        lc_amount_def       TYPE    amert VALUE '0.00',                   "Default value for amount
        lc_date_def         TYPE    amert VALUE '00000000',               "Default value for date
        lc_exctype_mf       TYPE    abkrs VALUE 'MF',                     "Exception type value
        lc_exctype_gr       TYPE    abkrs VALUE 'GR',                     "Exception type value
        lc_field_obl        TYPE    aavis VALUE 'X',                      "Obligatory
        lc_cancel           TYPE    aavis VALUE 'X',                      "Obligatory
        lc_return           TYPE    aavis VALUE 'A',                      "Return parameter
        lc_mandatory        TYPE    aavis VALUE '?',                      "Mandatory
        lc_space            TYPE    abkrs VALUE ' ',                      "Space
        lc_notsupported     TYPE    agitt VALUE 1,                        "Exception for FM
        lc_others           TYPE    agitt VALUE 2,                        "Exception for FM
        lc_error            TYPE    agitt VALUE 1,                        "Exception for FM
        lc_confirm          TYPE    agitt VALUE 1,                        "Exception for FM
        lc_text             TYPE    agitt VALUE 1,                        "Exception for FM
        lc_start_column     TYPE    abkrs VALUE '50',                     "Start column
        lc_start_row        TYPE    aavis VALUE '7',                      "Start column
        lc_tabname          TYPE    amert VALUE 'ZTBRAP_TAX_EXCPT',       "Table name,
        lc_column           TYPE    SY-CUCOL VALUE 25,                    "Start column
        lc_row              TYPE    SY-CUROW VALUE 6.                     "Start row
Clear Local Work Area
  CLEAR :
       lw_tax_excpt,
       lw_key_table .
Clear Local Variables
  CLEAR :
        lv_ret,
        lv_title,
        lv_excpt_type,
        lv_vendor,
        lv_vendor_no,
        lv_co_code,
        lv_comp_code,
        lv_answer.
Field symbol
  field-symbols:            <lf_tax_excpt>,                                         "Tax exceptions values
                            <lf_tax_excpt_value>.
Move the text for entry
  Move text-022 To lv_entry.
  REFRESH lw_tax_excpt.
  lw_tax_excpt-field_obl = lc_field_obl.
  lw_tax_excpt-tabname =   lc_tabname.
Determine which are key fields in the table. This is necessary to
control which fields are available for display
  call function 'GET_KEY_FIELDS_OF_TABLE'
    EXPORTING
      tabname       = lw_tax_excpt-tabname
      mandt_needed  = lc_field_obl
    TABLES
      key_fieldtab  = lw_key_table
    EXCEPTIONS
      not_supported = lc_notsupported
      others        = lc_others.
  if sy-subrc is not initial.
    message id sy-msgid type sy-msgty number sy-msgno
            with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    exit.
  endif.
  loop at gt_fieldcat.
    case gt_fieldcat-fieldname.
Supress fields you don't want to show
      when lc_client or  lc_user or lc_date or lc_time.
      when OTHERS.
        READ TABLE lw_key_table with key fieldname = gt_fieldcat-fieldname.
        if sy-subrc is initial.
          lw_tax_excpt-field_attr = lv_key.
          lw_tax_excpt-field_obl = lc_field_obl.
        else.
          lw_tax_excpt-field_attr = lv_non_key.
          lw_tax_excpt-field_obl = lc_space.
        endif.
        lw_tax_excpt-fieldname = gt_fieldcat-fieldname.
        assign component lw_tax_excpt-fieldname of
                        structure lw_update_tax_excpt to <lf_tax_excpt>.
        lw_tax_excpt-value =    <lf_tax_excpt>.
        lw_tax_excpt-fieldtext = gt_fieldcat-seltext_l.
Remove the condition obligatory
        IF lw_tax_excpt-fieldname = lc_taxno.
          lw_tax_excpt-field_obl = lc_space.
        ENDIF.
        append lw_tax_excpt.
    endcase.
  endloop  .
Appending the reference table and field for amount field
  if lv_mode = lv_insert.
    lw_tax_excpt-tabname    = lc_ref_tab.
    lw_tax_excpt-fieldname  = lc_ref_fld.
    lw_tax_excpt-field_attr = lc_hide_fld.
    append lw_tax_excpt.
  endif.
IF lv_mode  NE lv_delete.
Show selected entry
  CONCATENATE lv_mode lv_entry INTO lv_title SEPARATED BY space.
  do.
    call function 'POPUP_GET_VALUES'
      EXPORTING
        popup_title     = lv_title
        start_column    = lc_start_column
        start_row       = lc_start_row
      IMPORTING
        returncode      = lv_ret
      TABLES
        fields          = lw_tax_excpt
      EXCEPTIONS
        error_in_fields = lc_error
        others          = lc_others.
Exit if Error, Display or Delete
    if sy-subrc is not initial or lv_ret = lc_return
                               or lv_mode = lv_display
                               or lv_mode = lv_delete..
      exit.
    endif.
Validate fields involved in ADDING NEW ENTRY
    IF lv_mode  = lv_insert .         "ADD new Entry
Validate the field Period
      READ TABLE lw_tax_excpt with key fieldname = lc_period.
      IF lw_tax_excpt-value EQ lc_period_def.
        PERFORM procWarnuser USING  text-001 text-003 .
        CONTINUE.
      ENDIF.
Validate the field Company code
      READ TABLE lw_tax_excpt with key fieldname = lc_co_code.
      lv_co_code = lw_tax_excpt-value.
      select single bukrs from t001 into lv_comp_code
      where bukrs = lv_co_code.
      IF sy-subrc is not initial.
        PERFORM procWarnuser USING  text-001 text-028 .
        CONTINUE.
      ENDIF.
Validate the field Vendor
      READ TABLE lw_tax_excpt with key fieldname = lc_vendor.
      lv_vendor = lw_tax_excpt-value.
      select single lifnr from lfa1 into lv_vendor_no
      where lifnr = lv_vendor.
      IF sy-subrc is not initial.
        PERFORM procWarnuser USING  text-001 text-024 .
        CONTINUE.
      ENDIF.
Store the value of exception type in a variable
      READ TABLE lw_tax_excpt with key fieldname = lc_exception_typ.
      lv_excpt_type = lw_tax_excpt-value.
Validate the field Tax number1 other entities
      READ TABLE lw_tax_excpt with key fieldname = lc_taxno.
      IF lv_excpt_type EQ lc_exctype_mf or  lv_excpt_type EQ lc_exctype_gr.
        IF lw_tax_excpt-value EQ space.
          PERFORM procWarnuser USING  text-001 text-002 .
          CONTINUE.
        ENDIF.
      ENDIF.
Validate the field Clearing date
      READ TABLE lw_tax_excpt with key fieldname = lc_clearing_dt.
      IF lw_tax_excpt-value EQ lc_date_def.
        PERFORM procWarnuser USING  text-001 text-004.
        CONTINUE.
      ENDIF.
Validate the field Gross amount
      READ TABLE lw_tax_excpt with key fieldname = lc_gross_amt.
      condense lw_tax_excpt-value no-gaps.
      IF lw_tax_excpt-value EQ lc_amount_def OR
         lw_tax_excpt-value EQ space.
        PERFORM procWarnuser USING  text-001 text-005.
        CONTINUE.
      ENDIF.
Validate the field Exception amount
      READ TABLE lw_tax_excpt with key fieldname = lc_excpt_amt.
      condense lw_tax_excpt-value no-gaps.
      IF lw_tax_excpt-value EQ lc_amount_def OR
         lw_tax_excpt-value EQ space.
        PERFORM procWarnuser USING  text-001 text-006.
        CONTINUE.
      ENDIF.
      delete lw_tax_excpt index 10.
    ENDIF.
  all checks successful !!!!
    exit.
  enddo.
endif.
IF lv_mode  EQ  lv_delete.
CONCATENATE lv_mode lv_entry INTO lv_title SEPARATED BY space.
    CALL FUNCTION 'POPUP_TO_CONFIRM'
      EXPORTING
       TITLEBAR                    = lv_title
       text_question               = text-025
       TEXT_BUTTON_1               = text-026
       TEXT_BUTTON_2               = text-027
       DISPLAY_CANCEL_BUTTON       = lc_space
       START_COLUMN                = lc_column
       START_ROW                   = lc_row
     IMPORTING
       ANSWER                      = lv_answer
     EXCEPTIONS
       TEXT_NOT_FOUND              = lc_text
       OTHERS                      = lc_others
    IF sy-subrc is not initial.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
ENDIF.
Need to pop-out of the sub if "cancel" was selected
  if lv_ret = lc_return or lv_mode = lv_display.
    exit.
  endif.
copy contents of pop-up back into structure
  loop at lw_tax_excpt.
    check lw_tax_excpt-value <> lc_mandatory.
    assign component lw_tax_excpt-fieldname
                     of structure lw_update_tax_excpt to <lf_tax_excpt_value>.
    <lf_tax_excpt_value> = lw_tax_excpt-value.
  endloop.
update the database accordingly.
  case lv_mode.
    when lv_insert.           "Insert
Give other required field values
      lw_update_tax_excpt-mandt        = sy-mandt.   "Client
      lw_update_tax_excpt-zuserch      = sy-uname.   "User
      lw_update_tax_excpt-zdate_change = sy-datum.   "Date
      lw_update_tax_excpt-ztime_change = sy-uzeit.   "Time
      INSERT into ztbrap_tax_excpt values lw_update_tax_excpt.
      message s036(zmbrap).
    WHEN lv_change.            "Change
Give other required field values
      lw_update_tax_excpt-mandt        = sy-mandt.   "Client
      lw_update_tax_excpt-zuserch      = sy-uname.   "User
      lw_update_tax_excpt-zdate_change = sy-datum.   "Date
      lw_update_tax_excpt-ztime_change = sy-uzeit.   "Time
      MODIFY ztbrap_tax_excpt FROM lw_update_tax_excpt.  "Update record
      message s037(zmbrap).
    WHEN lv_delete.             "Delete
      IF lv_answer = lc_confirm.
      DELETE FROM ztbrap_tax_excpt WHERE
              zmonat       =   lw_update_tax_excpt-zmonat       AND
              zbukrs       =   lw_update_tax_excpt-zbukrs       AND
              zlifnr       =   lw_update_tax_excpt-zlifnr       AND
              zexctype     =   lw_update_tax_excpt-zexctype     AND
              zstcd1       =   lw_update_tax_excpt-zstcd1       AND
              zaugdt_other =   lw_update_tax_excpt-zaugdt_other AND
              zdmbtr       =   lw_update_tax_excpt-zdmbtr       AND
              zwhtinssca   =   lw_update_tax_excpt-zwhtinssca.
      message s038(zmbrap).
      ENDIF.
  endcase.
Now do refresh ...
  if sy-subrc is not initial.
    rollback work.
    message e033(zmbrap).
  else.
    perform procGetTaxExceptionsData.
    commit work.
    perform procGetTaxExceptionsData.
    lw_selfield-refresh    = lc_field_obl.
    lw_selfield-col_stable = lc_field_obl.
    lw_selfield-row_stable = lc_field_obl.
  endif.
endform.                    "procFindKeyFields
      FORM procDisplayTaxExceptionsData                             *
Produce ALV report                                                  *
form procDisplayTaxExceptionsData.
Variables
  DATA: lv_layout         TYPE       slis_layout_alv,                                 "Layout
        lv_dispvariant    TYPE       disvariant,                                      "For display
        lv_events         TYPE       slis_t_event,                                    "Events
        lv_grid_settings  TYPE       lvc_s_glay,                                      "Grid settings
        lv_event          TYPE       slis_alv_event.                                  "Events
Constants
  CONSTANTS:
        lc_user_command   TYPE       slis_formname VALUE 'USER_COMMAND',              "User command
        lc_pf_status      TYPE       slis_formname VALUE 'PF_STATUS_SET_SHOW_LIST',   "Pf status
        lc_top_of_page    TYPE       slis_formname VALUE 'TOP_OF_PAGE',               "Top of page
        lc_tab_name       TYPE       tabname       VALUE  'ZTBRAP_TAX_EXCPT',         "Table name
        lc_stripes        TYPE       aavis         VALUE 'X',                         "Stripes
        lc_save           TYPE       aavis         VALUE 'A',                         "Save
        lc_repid          TYPE       sy-repid      VALUE sy-repid,                    "Program name
        lc_inconsistent   TYPE       agitt         VALUE 1,                           "Exception for FM
        lc_program        TYPE       agitt         VALUE 2,                           "Exception for FM
        lc_others         TYPE       agitt         VALUE 3.                           "Exception for FM
Clear Local Variables
  CLEAR:
        lv_layout,
        lv_dispvariant,
        lv_events,
        lv_grid_settings,
        lv_event.
*Set up ALV structures
  lv_dispvariant-report   = lc_repid.
gv_repid = sy-repid.
  lv_dispvariant-username = sy-uname.
*Set alternate stripes for ALV report
  lv_layout-zebra = lc_stripes .
  lv_grid_settings-coll_top_p = lc_stripes .
*Set up exit structure for top of coverpage
  lv_event-name = slis_ev_top_of_coverpage.
  lv_event-form = slis_ev_top_of_coverpage.
  append  lv_event to lv_events.
*Set up exit for top of page
  lv_event-name = slis_ev_top_of_page.
  lv_event-form = slis_ev_top_of_page.
  append  lv_event to lv_events.
*Build field catalog for List Viewer
  call function 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      i_program_name         = lc_repid
      i_inclname             = lc_repid
      i_structure_name       = lc_tab_name
    CHANGING
      ct_fieldcat            = gt_fieldcat[]
    EXCEPTIONS
      inconsistent_interface = lc_inconsistent
      program_error          = lc_program
      others                 = lc_others.
field controls
  PERFORM procBuildFieldcat.
Call ABAP/4 List Viewer
  check not gt_fieldcat[] is initial.
  call function 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program       = lc_repid
      i_callback_user_command  = lc_user_command
      i_callback_pf_status_set = lc_pf_status
      i_callback_top_of_page   = lc_top_of_page
      is_variant               = lv_dispvariant
      i_grid_settings          = lv_grid_settings
      is_layout                = lv_layout
      it_fieldcat              = gt_fieldcat[]
      it_events                = lv_events
      i_save                   = lc_save  " A = All => Standard & User
    TABLES
      t_outtab                 = gt_tax_excpt_tab.
endform.                    "procDisplayTaxExceptionsData
**&      Form  PF_STATUS_SET_SHOW_LIST
      Set modified standard status for list
form pf_status_set_show_list
                 using lw_excpt_tab TYPE slis_t_extab.
Workarea
  DATA : lw_tax_tab       TYPE       slis_extab.                                      "Type group Slis
Constants
  DATA : lc_pfstat        TYPE       amert    VALUE 'ZTAX_EXCEPTION',                 "Pf status
         lc_prog          TYPE       sy-repid VALUE sy-repid,                         "Program name
         lc_fcode         TYPE       gui_code VALUE 'SELI'.                           "Function code
Clear Workarea
  CLEAR :lw_tax_tab.
  lw_tax_tab-fcode = lc_fcode.
  append lw_tax_tab to lw_excpt_tab.
  set pf-status lc_pfstat of program lc_prog excluding lw_excpt_tab.
endform.                               "PF_STATUS_SET_SHOW_LIST
**&      Form  procBuildFieldcat
      text
-->  p1        text
<--  p2        text
form procBuildFieldcat .
Constants
  CONSTANTS :
        lc_co_code          TYPE    amert VALUE 'ZBUKRS',                             "Company code
        lc_vendor           TYPE    amert VALUE 'ZLIFNR',                             "Vendor
        lc_docu_no          TYPE    amert VALUE 'ZBELNR',                             "Document Number
        lc_user             TYPE    amert VALUE 'ZUSERCH',                            "User
        lc_date             TYPE    amert VALUE 'ZDATE_CHANGE',                       "Date
        lc_time             TYPE    amert VALUE 'ZTIME_CHANGE',                       "Time
        lc_taxno            TYPE    amert VALUE 'ZSTCD1',                             "Tax Number
        lc_exception_typ    TYPE    amert VALUE 'ZEXCTYPE',                           "Exception type
        lc_clearing_dt      TYPE    amert VALUE 'ZAUGDT_OTHER',                       "Clearing date
        lc_period           TYPE    amert VALUE 'ZMONAT',                             "Period
        lc_gross_amt        TYPE    amert VALUE 'ZDMBTR',                             "Gross amount
        lc_excpt_amt        TYPE    amert VALUE 'ZWHTINSSCA'.                         "Exception amount
Set the Fieldtext for the Dictionary fields
  LOOP AT gt_fieldcat.
    gt_fieldcat-key = space.
    CASE gt_fieldcat-fieldname.
      WHEN lc_period.
        gt_fieldcat-seltext_l = text-007.
        MODIFY gt_fieldcat.
      WHEN lc_co_code.
        gt_fieldcat-seltext_l = text-008.
        MODIFY gt_fieldcat.
      WHEN lc_vendor.
        gt_fieldcat-seltext_l = text-009.
        MODIFY gt_fieldcat.
      WHEN lc_exception_typ.
        gt_fieldcat-seltext_l = text-010.
        MODIFY gt_fieldcat.
      WHEN lc_taxno.
        gt_fieldcat-seltext_l = text-011.
        MODIFY gt_fieldcat.
      WHEN lc_clearing_dt.
        gt_fieldcat-seltext_l = text-012.
        MODIFY gt_fieldcat.
      WHEN lc_docu_no.
        gt_fieldcat-seltext_l = text-013.
        MODIFY gt_fieldcat.
      WHEN lc_gross_amt.
        gt_fieldcat-seltext_l = text-014.
        gt_fieldcat-outputlen = 12.
        MODIFY gt_fieldcat.
      WHEN lc_excpt_amt.
        gt_fieldcat-seltext_l = text-015.
        MODIFY gt_fieldcat.
      WHEN lc_user.
        gt_fieldcat-seltext_l = text-016.
        MODIFY gt_fieldcat.
      WHEN lc_date.
        gt_fieldcat-seltext_l = text-017.
        MODIFY gt_fieldcat.
      WHEN lc_time.
        gt_fieldcat-seltext_l = text-018.
        MODIFY gt_fieldcat.
    ENDCASE.
  ENDLOOP.
endform.                    " procBuildFieldcat
*&      Form  procWarnuser
      Warn User - Give error message
     -->P_TEXT      text
     -->P_TEXT      text
     -->P_lw_tax_excpt_VALUE  text
FORM procWarnuser  USING    uv_title TYPE itex132
                            uv_text1 TYPE itex132.
Constants
  CONSTANTS :
        lc_start_column       TYPE    SY-CUCOL VALUE 25,                             "Start column
        lc_start_row          TYPE    SY-CUROW VALUE 15.                             "Start row