topic Re: ALV in Application Development and Automation Discussions

ALV

Former Member — Mon, 24 Jul 2006 16:53:22 GMT

Hi,

What are the T-Codes used to design ALV?

Any sample P.O Report using ALV?

and tell me T-Codes for

Batch Input Method

LSMW

BAPI

User Exists

BADI's

Thanks

Seshu

Re: ALV

Former Member — Mon, 24 Jul 2006 16:56:54 GMT

hi seshu,

there is no transaction code for ALV's

u have to write a report for ALV and FUNCTION MODULES ARE USED..

TO CHECK DEMO PROGRAMS IN ALV

GOTO SE38 AND TYPE BALV AND press F4

Batch Input Method

u have to write a program.

u have to do recording using the TCODE SHDB or SM35

for the Transaction u want,

Transaction code for LSMW:<b>LSMW</b>

User Exists: CMOD or SMOD

Re: ALV

Former Member — Mon, 24 Jul 2006 17:23:14 GMT

hi seshu,

Alv's r one of the type of reports, these r having more advantages when compared to normal reports so tcode is se38. U have to use different sap provided standard function modules for it

u can check the below links for ALV's

Reprots

http://www.sapgenie.com/abap/reports.htm

http://www.allsaplinks.com/material.html

http://www.sapdevelopment.co.uk/reporting/reportinghome.htm

ALV

1. Please give me general info on ALV.

http://www.sapfans.com/forums/viewtopic.php?t=58286

http://www.sapfans.com/forums/viewtopic.php?t=76490

http://www.sapfans.com/forums/viewtopic.php?t=20591

http://www.sapfans.com/forums/viewtopic.php?t=66305 - this one discusses which way should you use - ABAP Objects calls or simple function modules.

2. How do I program double click in ALV?

http://www.sapfans.com/forums/viewtopic.php?t=11601

http://www.sapfans.com/forums/viewtopic.php?t=23010

3. How do I add subtotals (I have problem to add them)...

http://www.sapfans.com/forums/viewtopic.php?t=20386

http://www.sapfans.com/forums/viewtopic.php?t=85191

http://www.sapfans.com/forums/viewtopic.php?t=88401

http://www.sapfans.com/forums/viewtopic.php?t=17335

4. How to add list heading like top-of-page in ABAP lists?

http://www.sapfans.com/forums/viewtopic.php?t=58775

http://www.sapfans.com/forums/viewtopic.php?t=60550

http://www.sapfans.com/forums/viewtopic.php?t=16629

5. How to print page number / total number of pages X/XX in ALV?

http://www.sapfans.com/forums/viewtopic.php?t=29597 (no direct solution)

6. ALV printing problems. The favourite is: The first page shows the number of records selected but I don't need this.

http://www.sapfans.com/forums/viewtopic.php?t=64320

http://www.sapfans.com/forums/viewtopic.php?t=44477

7. How can I set the cell color in ALV?

http://www.sapfans.com/forums/viewtopic.php?t=52107

8. How do I print a logo/graphics in ALV?

http://www.sapfans.com/forums/viewtopic.php?t=81149

http://www.sapfans.com/forums/viewtopic.php?t=35498

http://www.sapfans.com/forums/viewtopic.php?t=5013

9. How do I create and use input-enabled fields in ALV?

http://www.sapfans.com/forums/viewtopic.php?t=84933

http://www.sapfans.com/forums/viewtopic.php?t=69878

10. How can I use ALV for reports that are going to be run in background?

http://www.sapfans.com/forums/viewtopic.php?t=83243

http://www.sapfans.com/forums/viewtopic.php?t=19224

11. How can I display an icon in ALV? (Common requirement is traffic light icon).

http://www.sapfans.com/forums/viewtopic.php?t=79424

http://www.sapfans.com/forums/viewtopic.php?t=24512

12. How can I display a checkbox in ALV?

http://www.sapfans.com/forums/viewtopic.php?t=88376

http://www.sapfans.com/forums/viewtopic.php?t=40968

http://www.sapfans.com/forums/viewtopic.php?t=6919

tcodes:

batch input sm35

lswm : LSMW

bapi : all the standard bapi's u will find in BOR(busisness Object Repository).

user exits: CMOD, SMOD.

BADI's: fiding BADI's

Go To IMG( Implementation guide)

Find the BADI in implementation Guide (IMG)

TCODE: SPRO (IMG)

Search for BADI

Check the Documentation For BADI for functionality

Data Populated as Parameters in the BADI .

Functionality will be implemented in the Method.

If u need any further info shoot me a mail to callnaveen@gmail.com

Regards,

Naveen

Re: ALV

Former Member — Mon, 24 Jul 2006 17:27:11 GMT

Hi,

As your other questions answered,here i am giving a program to display Purhcase order details using ALV.Just copy paste this code in a z program.


tables: ekko , ekpo .

type-pools: slis .

data:i_event type slis_t_event with header line .
"Table of Events
data:i_header type slis_t_listheader with header line.
"Table for Display Header
data:fieldcatalog type slis_T_fieldcat_alv  WITH HEADER LINE.
data: i_sort type slis_t_sortinfo_alv. "table
data: ls_sort type slis_sortinfo_alv.   "HEADER FOR THE SORTING TABLE

data:i_layout type slis_layout_alv .
" For Layout
data: text(30) .
data: begin of it_final occurs 0 ,
      ebeln like ekko-ebeln ,           "Purchasing Document No.
      bedat like ekko-bedat ,           "Purchasing Document Date
      ebelp like ekpo-ebelp ,          "Item No. of Purchasing Document
      matnr like ekpo-matnr ,           "Material No.
      netwr like ekpo-netwr ,         "Net Order Value in PO Currancy
      meins like ekpo-meins ,           "UOM
      menge like ekpo-menge ,         "Purchase Order Quantity
      bprme like ekpo-bprme ,         "Order Price Unit
      chk(1) ,
      light(1) ,
      change like ekpo-menge ,

      end of it_final .
*data: i_temp like it_final occurs 0 .
**select option

selection-screen begin of block block.
select-options: s_ebeln for ekko-ebeln  .
selection-screen end of block block .

 selection-screen begin of block block1 .
 parameters:grid radiobutton group r .
 parameters:list radiobutton group r .
 selection-screen end of block block1 .

** at selection screen

at selection-screen .

select single * from ekko where ebeln in s_ebeln .

if sy-subrc <> 0 .
   message e000 .
endif .

start-of-selection .
if grid = 'X' .
 perform get_data .
 perform event using i_event[] .
 perform field using fieldcatalog[] .
 perform layout using i_layout .
 perform sort using i_sort .
 perform grid_display .
endif .
if list = 'X' .
 perform get_data .
 perform event using i_event[] .
 perform field using fieldcatalog[] .
 perform layout using i_layout .
 perform sort using i_sort .
 perform list_display .
 endif .
*&---------------------------------------------------------------------*
*&      Form  get_data
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form get_data .

 SELECT EKKO~EBELN
       EKKO~BEDAT
       EKPO~EBELP
       EKPO~MATNR
       EKPO~NETWR
       EKPO~MEINS
       EKPO~MENGE
       EKPO~BPRME
       INTO CORRESPONDING FIELDS OF  table IT_FINAL
       FROM EKKO INNER JOIN EKPO ON EKKO~EBELN = EKPO~EBELN
       WHERE EKKO~EBELN IN S_EBELN.
       APPEND IT_FINAL.

loop at it_final.
     if it_final-menge eq 0 .
        it_final-light = '1' .
      elseif it_final-menge le 200 .
        it_final-light = '2' .
     else .
        it_final-light = '3' .
     endif .
    modify it_final  transporting light.
endloop.
**



endform.                    " get_data
*&---------------------------------------------------------------------*
*&      Form  event
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_I_event[]  text
*----------------------------------------------------------------------*
form event  using    p_i_event type slis_t_event.

  clear p_i_event .
  refresh p_i_event .

 CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
*  EXPORTING
*    I_LIST_TYPE           = 0
   IMPORTING
     ET_EVENTS             = p_i_event
*  EXCEPTIONS
*    LIST_TYPE_WRONG       = 1
*    OTHERS                = 2
           .
 IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.

  read table p_i_event with key name = slis_ev_top_of_page into i_event
  .

      if sy-subrc = 0.
         move 'TOP_OF_PAGE_PO' to i_event-form.
         modify p_i_event from i_event index sy-tabix transporting form.

      endif.
      clear i_event.


endform.                    " event

form top_of_page_po .
  clear i_header .
  refresh i_header .
  write sy-datum to text.

    i_header-typ = 'S'.
    i_header-key = 'DATE'.
    i_header-info = text.
    append i_header.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
  EXPORTING
    it_list_commentary       = i_header[]
    I_LOGO                   = 'ENJOYSAPLOGO'.
*   I_END_OF_LIST_GRID       =
          .
 endform .
*&---------------------------------------------------------------------*
*&      Form  field
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_fieldCATALOG[]  text
*----------------------------------------------------------------------*
form field using  p_fieldcatalog type slis_t_fieldcat_alv.

      clear fieldcatalog.
      fieldcatalog-fieldname   = 'EBELN'.
      " FIELD FOR WHICH CATALOG ID FILLED.
      fieldcatalog-seltext_m   = 'Purch'.
      " MEDIUM TEXT FOR HEADER.
      fieldcatalog-col_pos     = 1.
      " POSITION OF THE COLUMN.
      fieldcatalog-outputlen   = 10.
      " SET THE OUTPUT LENGTH.
      fieldcatalog-emphasize   = 'X'.
      " COLOR OF THIS COLUMN.
      fieldcatalog-key         = 'X'.
      " SO THAT THIS FIELD IS NOT SCROLLABLE AND HIDDABLE.
*      fieldcatalog-HOTSPOT     = 'X'.
      append fieldcatalog .

      clear fieldcatalog.
      fieldcatalog-fieldname   = 'BEDAT'.
      " FIELD FOR WHICH CATALOG ID FILLED.
      fieldcatalog-seltext_m   = 'Purch'.
      " MEDIUM TEXT FOR HEADER.
      fieldcatalog-col_pos     = 2.
      " POSITION OF THE COLUMN.
      fieldcatalog-outputlen   = 10.
      " SET THE OUTPUT LENGTH.
      fieldcatalog-emphasize   = 'X'.
      " COLOR OF THIS COLUMN.
      fieldcatalog-key         = ' '.
      " SO THAT THIS FIELD IS NOT SCROLLABLE AND HIDDABLE.
      append fieldcatalog .

      clear fieldcatalog.
      fieldcatalog-fieldname   = 'EBELP'.
      " FIELD FOR WHICH CATALOG ID FILLED.
      fieldcatalog-seltext_m   = 'Item no'.
      " MEDIUM TEXT FOR HEADER.
      fieldcatalog-col_pos     = 3.
      " POSITION OF THE COLUMN.
      fieldcatalog-outputlen   = 10.
      " SET THE OUTPUT LENGTH.
      fieldcatalog-emphasize   = 'X'.
      " COLOR OF THIS COLUMN.
      fieldcatalog-key         = ' '.
      " SO THAT THIS FIELD IS NOT SCROLLABLE AND HIDDABLE.
      append fieldcatalog .
            clear fieldcatalog.

      fieldcatalog-fieldname   = 'MATNR'.
      " FIELD FOR WHICH CATALOG ID FILLED.
      fieldcatalog-seltext_m   = 'Material No'.
      " MEDIUM TEXT FOR HEADER.
      fieldcatalog-col_pos     = 4.
      " POSITION OF THE COLUMN.
      fieldcatalog-outputlen   = 20.
      append fieldcatalog .
      clear fieldcatalog.


      fieldcatalog-fieldname   = 'NETWR'.
      " FIELD FOR WHICH CATALOG ID FILLED.
      fieldcatalog-seltext_m   = 'Net Value '.
      " MEDIUM TEXT FOR HEADER.
      fieldcatalog-col_pos     = 5.
      " POSITION OF THE COLUMN.
      fieldcatalog-outputlen   = 20.
      fieldcatalog-do_sum = 'X'.
      append fieldcatalog .
      clear fieldcatalog.

      fieldcatalog-fieldname   = 'MEINS'.
      " FIELD FOR WHICH CATALOG ID FILLED.
      fieldcatalog-seltext_m   = 'UOM'.
      " MEDIUM TEXT FOR HEADER.
      fieldcatalog-col_pos     = 6.
      " POSITION OF THE COLUMN.
      fieldcatalog-outputlen   = 4.
      append fieldcatalog .
      clear fieldcatalog.

      fieldcatalog-fieldname   = 'MENGE'.
      " FIELD FOR WHICH CATALOG ID FILLED.
      fieldcatalog-seltext_m   = 'Purchase Order Quantity'.
      " MEDIUM TEXT FOR HEADER.
      fieldcatalog-col_pos     = 7.
      " POSITION OF THE COLUMN.
      fieldcatalog-outputlen   = 20.
      fieldcatalog-do_sum = 'X'.
      append fieldcatalog .
      clear fieldcatalog.


      fieldcatalog-fieldname   = 'BPRME'.
      " FIELD FOR WHICH CATALOG ID FILLED.
      fieldcatalog-seltext_m   = 'Order P'.
      " MEDIUM TEXT FOR HEADER.
      fieldcatalog-col_pos     = 8.
      " POSITION OF THE COLUMN.
      fieldcatalog-outputlen   = 10.
      fieldcatalog-do_sum = 'X'.
      append fieldcatalog .
      clear fieldcatalog.

     fieldcatalog-fieldname   = 'CHANGE'.
     " FIELD FOR WHICH CATALOG ID FILLED.
      fieldcatalog-seltext_m   = 'New Quantity'.
      " MEDIUM TEXT FOR HEADER.
      fieldcatalog-col_pos     = 9.
      " POSITION OF THE COLUMN.
      fieldcatalog-outputlen   = 20.
*      FIELDCATALOG-DO_SUM = 'X'.
      fieldcatalog-edit   = 'X'.
      append fieldcatalog .
      clear fieldcatalog.


endform.                    " field
*&---------------------------------------------------------------------*
*&      Form  list_display
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form list_display .

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
  EXPORTING
*   I_INTERFACE_CHECK              = ' '
*   I_BYPASSING_BUFFER             =
*   I_BUFFER_ACTIVE                = ' '
    I_CALLBACK_PROGRAM             = SY-REPID
   I_CALLBACK_PF_STATUS_SET       = 'SET_PO_PF_STATUS'
    I_CALLBACK_USER_COMMAND        = 'USER_COMMAND'
*   I_STRUCTURE_NAME               =
    IS_LAYOUT                      = i_layout
    IT_FIELDCAT                    = fieldcaTALOG[]
*   IT_EXCLUDING                   =
*   IT_SPECIAL_GROUPS              =
    IT_SORT                        = i_sort
*   IT_FILTER                      =
*   IS_SEL_HIDE                    =
*   I_DEFAULT                      = 'X'
*   I_SAVE                         = ' '
*   IS_VARIANT                     =
    IT_EVENTS                      = i_event[]
*   IT_EVENT_EXIT                  =
*   IS_PRINT                       =
*   IS_REPREP_ID                   =
*   I_SCREEN_START_COLUMN          = 0
*   I_SCREEN_START_LINE            = 0
*   I_SCREEN_END_COLUMN            = 0
*   I_SCREEN_END_LINE              = 0
* IMPORTING
*   E_EXIT_CAUSED_BY_CALLER        =
*   ES_EXIT_CAUSED_BY_USER         =
  TABLES
    t_outtab                       = it_final
* EXCEPTIONS
*   PROGRAM_ERROR                  = 1
*   OTHERS                         = 2
          .
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.


endform.                    " list_display
*&---------------------------------------------------------------------*
*&      Form  layout
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_I_layout[]  text
*----------------------------------------------------------------------*
form layout  using    p_i_layout TYPE SLIS_LAYOUT_ALV .

 i_layout-zebra  = 'X'.
    i_layout-lights_fieldname = 'LIGHT'.
    i_layout-lights_tabname = 'IT_FINAL'.
    i_layout-box_fieldname = 'CHK'.
    i_layout-box_tabname  = 'IT_FINAL'.
    i_layout-edit = ' '.


endform.

                 FORM SET_PO_PF_STATUS USING  P_I_EXTAB TYPE
                 SLIS_T_EXTAB.
                 SET PF-STATUS 'MENUPO'.
                 ENDFORM.


form USER_COMMAND  using r_ucomm like sy-ucomm
                         rs_selfield type slis_selfield .

  if r_ucomm = '&GO'.

   call function 'REUSE_ALV_CHECKBOX_SET'
     changing
       I_fieldcat       = fieldcatalog[]
             .


   call transaction 'ME22N'.

  endif .
endform .
*&---------------------------------------------------------------------*
*&      Form  grid_display
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form grid_display .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
  EXPORTING
*   I_INTERFACE_CHECK                 = ' '
*   I_BYPASSING_BUFFER                = ' '
*   I_BUFFER_ACTIVE                   = ' '
    I_CALLBACK_PROGRAM                = SY-REPID
    I_CALLBACK_PF_STATUS_SET          = 'SET_PO_PF_STATUS'
    I_CALLBACK_USER_COMMAND           = 'USER_COMMAND'
*   I_CALLBACK_TOP_OF_PAGE            = ' '
*   I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
*   I_CALLBACK_HTML_END_OF_LIST       = ' '
*   I_STRUCTURE_NAME                  =
*   I_BACKGROUND_ID                   = ' '
*   I_GRID_TITLE                      =
*   I_GRID_SETTINGS                   =
    IS_LAYOUT                         = I_LAYOUT
    IT_FIELDCAT                       = FIELDCATALOG[]
*   IT_EXCLUDING                      =
*   IT_SPECIAL_GROUPS                 =
    IT_SORT                           = i_sort
*   IT_FILTER                         =
*   IS_SEL_HIDE                       =
*   I_DEFAULT                         = 'X'
*   I_SAVE                            = ' '
*   IS_VARIANT                        =
    IT_EVENTS                         = I_EVENT[]
*   IT_EVENT_EXIT                     =
*   IS_PRINT                          =
*   IS_REPREP_ID                      =
*   I_SCREEN_START_COLUMN             = 0
*   I_SCREEN_START_LINE               = 0
*   I_SCREEN_END_COLUMN               = 0
*   I_SCREEN_END_LINE                 = 0
*   IT_ALV_GRAPHICS                   =
*   IT_HYPERLINK                      =
*   IT_ADD_FIELDCAT                   =
*   IT_EXCEPT_QINFO                   =
*   I_HTML_HEIGHT_TOP                 =
*   I_HTML_HEIGHT_END                 =
* IMPORTING
*   E_EXIT_CAUSED_BY_CALLER           =
*   ES_EXIT_CAUSED_BY_USER            =
  TABLES
    t_outtab                          = IT_FINAL
* EXCEPTIONS
*   PROGRAM_ERROR                     = 1
*   OTHERS                            = 2
          .
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.


endform.                    " grid_display
*&---------------------------------------------------------------------*
*&      Form  sort
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_I_sort  text
*----------------------------------------------------------------------*
form sort  using    p_i_sort type slis_t_sortinfo_alv.

   refresh i_sort.

ls_sort-spos = 1.  " position
ls_sort-fieldname = 'EBELN'.                     "fieldname.
ls_sort-up = 'X'.
ls_sort-subtot = 'X'.
ls_sort-group = 'grp1'.

append ls_sort to i_sort.
clear ls_sort.

Regards,

Raghav

Re: ALV

Former Member — Mon, 24 Jul 2006 17:34:23 GMT

Hi seshu,

Go to tcode CMOD. In the menu, 'Utilities-->SAP Enhancements'. This will allow you to look at all existing user exits as per old enhancement concept. Apart from that you have BADIs(tcodes SE18 & SE19).

t-code for batch input shdb or sm35.

for lsmw islsmw

sample alv program:

tables: vbak.

type-pools : slis.

data: begin of it_vbak occurs 0,

icon type icon-id,

vbeln like vbak-vbeln,

audat like vbak-audat,

vbtyp like vbak-vbtyp,

auart like vbak-auart,

augru like vbak-augru,

netwr like vbak-netwr,

waerk like vbak-waerk,

end of it_vbak.

data: g_repid like sy-repid,

wa_sort type slis_sortinfo_alv,

it_sort type slis_t_sortinfo_alv,

wa_layout type slis_layout_alv,

it_fieldtab type slis_t_fieldcat_alv,

wa_fieldcat type slis_fieldcat_alv.

selection-screen begin of block b1 with frame.

select-options:s_vbeln for vbak-vbeln,

s_vbtyp for vbak-vbtyp default 'C'.

selection-screen end of block b1 .

selection-screen begin of block b2 with frame.

parameters: list radiobutton group rad1,

grid radiobutton group rad1.

selection-screen end of block b2.

initialization.

g_repid = sy-repid.

start-of-selection.

select vbeln

audat

vbtyp

auart

augru

netwr

waerk into corresponding fields of table it_vbak

from vbak where audat > '01/01/2004' and

netwr > 0 and

vbeln in s_vbeln and

vbtyp in s_vbtyp.

loop at it_vbak.

if it_vbak-netwr < 10000.

it_vbak-icon = '@08@'.

elseif it_vbak-netwr > 10000 and it_vbak-netwr < 100000.

it_vbak-icon = '@09@'.

elseif it_vbak-netwr > 100000.

it_vbak-icon = '@0A@'.

endif.

modify it_vbak index sy-tabix.

endloop.

end-of-selection.

perform sort_list.

perform modify_fieldcat.

perform layout_list.

&----

*& Form sort_list

&----

text

----

--> p1 text
<-- p2 text

----

form sort_list .

clear wa_sort.

wa_sort-fieldname = 'AUART'.

wa_sort-spos = '1'.

wa_sort-up = 'X'.

append wa_sort to it_sort.

clear wa_sort.

wa_sort-fieldname = 'VBTYP'.

wa_sort-spos = '2'.

wa_sort-up = 'X'.

append wa_sort to it_sort.

clear wa_sort.

wa_sort-fieldname = 'WAERK'.

wa_sort-spos = '3'.

wa_sort-up = 'X'.

wa_sort-subtot = 'X'.

append wa_sort to it_sort.

endform. " sort_list

&----

*& Form layout_list

&----

text

----

--> p1 text
<-- p2 text

----

form layout_list .

clear wa_layout.

if list = 'X'.

wa_layout-zebra = 'X'.

wa_layout-window_titlebar = 'LIST DISPLAY'.

wa_layout-subtotals_text = 'SUBTOTAL'.

wa_layout-totals_text = 'TOTAL'.

call function 'REUSE_ALV_LIST_DISPLAY'

exporting

I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '

i_callback_program = g_repid

I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_STRUCTURE_NAME =

is_layout = wa_layout

it_fieldcat = it_fieldtab[]

IT_EXCLUDING =
IT_SPECIAL_GROUPS =

it_sort = it_sort[]

IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =

tables

t_outtab = it_vbak

EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2

if sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

endif.

elseif grid = 'X'.

wa_layout-zebra = 'X'.

wa_layout-window_titlebar = 'GRID DISPLAY'.

wa_layout-subtotals_text = 'SUBTOTAL'.

wa_layout-totals_text = 'TOTAL'.

call function 'REUSE_ALV_GRID_DISPLAY'

exporting

I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '

i_callback_program = g_repid

I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_CALLBACK_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
I_GRID_TITLE =
I_GRID_SETTINGS =

is_layout = wa_layout

it_fieldcat = it_fieldtab

IT_EXCLUDING =
IT_SPECIAL_GROUPS =

it_sort = it_sort

IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IT_ALV_GRAPHICS =
IT_HYPERLINK =
IT_ADD_FIELDCAT =
IT_EXCEPT_QINFO =
I_HTML_HEIGHT_TOP =
I_HTML_HEIGHT_END =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =

tables

t_outtab = it_vbak

EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2

if sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

endif.

endform. " layout_list

&----

*& Form modify_fieldcat

&----

text

----

--> p1 text
<-- p2 text

----

form modify_fieldcat .

clear wa_fieldcat.

wa_fieldcat-tabname = 'IT_VBAK'.

wa_fieldcat-fieldname = 'ICON'.

wa_fieldcat-seltext_l = 'LIGHTS'.

wa_fieldcat-icon = 'X'.

WA_FIELDCAT-ddictxt = 'l'.

wa_fieldcat-col_pos = 1.

wa_fieldcat-outputlen = 10.

append wa_fieldcat to it_fieldtab.

clear wa_fieldcat .

wa_fieldcat-tabname = 'IT_VBAK'.

wa_fieldcat-fieldname = 'VBELN'.

wa_fieldcat-seltext_l = 'SALES DOCUMENT'.

WA_FIELDCAT-ddictxt = 'l'.

wa_fieldcat-col_pos = 2.

wa_fieldcat-outputlen = 10.

append wa_fieldcat to it_fieldtab.

clear wa_fieldcat .

when 'maktx'.

wa_fieldcat-tabname = 'IT_VBAK'.

wa_fieldcat-fieldname = 'AUDAT'.

wa_fieldcat-seltext_l = 'DATE'.

WA_FIELDCAT-ddictxt = 'l'.

wa_fieldcat-col_pos = 3.

wa_fieldcat-outputlen = 15.

append wa_fieldcat to it_fieldtab.

clear wa_fieldcat .

wa_fieldcat-tabname = 'IT_VBAK'.

wa_fieldcat-fieldname = 'VBTYP'.

wa_fieldcat-seltext_l = 'SALES CATEGORY'.

wa_fieldcat-col_pos = 4.

wa_fieldcat-outputlen = 10.

append wa_fieldcat to it_fieldtab.

clear wa_fieldcat .

wa_fieldcat-tabname = 'IT_VBAK'.

wa_fieldcat-fieldname = 'AUART'.

wa_fieldcat-seltext_l = 'SALES DOCUMENT TYPE'.

wa_fieldcat-col_pos = 5.

wa_fieldcat-outputlen = 10.

append wa_fieldcat to it_fieldtab.

clear wa_fieldcat .

wa_fieldcat-tabname = 'IT_VBAK'.

wa_fieldcat-fieldname = 'AUGRU'.

wa_fieldcat-seltext_l = 'ORDER REASON'.

WA_FIELDCAT-ddictxt = 'l'.

wa_fieldcat-col_pos = 6.

wa_fieldcat-outputlen = 10.

append wa_fieldcat to it_fieldtab.

clear wa_fieldcat .

wa_fieldcat-tabname = 'IT_VBAK'.

wa_fieldcat-fieldname = 'NETWR'.

wa_fieldcat-seltext_l = 'QUANTITY'.

wa_fieldcat-do_sum = 'X'.

WA_FIELDCAT-ddictxt = 'l'.

wa_fieldcat-col_pos = 7.

wa_fieldcat-outputlen = 25.

append wa_fieldcat to it_fieldtab.

clear wa_fieldcat .

wa_fieldcat-tabname = 'IT_VBAK'.

wa_fieldcat-fieldname = 'WAERK'.

wa_fieldcat-seltext_l = 'CURRENCY'.

WA_FIELDCAT-ddictxt = 'l'.

wa_fieldcat-col_pos = 8.

wa_fieldcat-outputlen = 10.

append wa_fieldcat to it_fieldtab.

clear wa_fieldcat .

endform. " modify_fieldcat

goto se38 editor,code ur alv. execute it.no need of tcode.

reward if helpful.

regards,

keerthi.