ALV Report

[Former Member]

Hi All,

I have to write a program which displays alv report (grid display).

Please can anyone send me a sample program?

Thanks in advance,

Sunanda

[Former Member]

Hi All,

I have to write a program which displays alv report (grid display).

Please can anyone send me a sample program?

Thanks in advance,

Sunanda

[Former Member]

Hi,

It may help u....

*data definition

tables:

marav. "Table MARA and table MAKT

----

---

• Data to be displayed in ALV

• Using the following syntax, REUSE_ALV_FIELDCATALOG_MERGE can auto-

• matically determine the fieldstructure from this source program

Data:

begin of imat occurs 100,

matnr like marav-matnr, "Material number

maktx like marav-maktx, "Material short text

matkl like marav-matkl, "Material group (so you can test to make

" intermediate sums)

ntgew like marav-ntgew, "Net weight, numeric field (so you can test to

"make sums)

gewei like marav-gewei, "weight unit (just to be complete)

end of imat.

----

---

• Other data needed

• field to store report name

data i_repid like sy-repid.

• field to check table length

data i_lines like sy-tabix.

----

---

• Data for ALV display

TYPE-POOLS: SLIS.

data int_fcat type SLIS_T_FIELDCAT_ALV.

----

---

select-options:

s_matnr for marav-matnr matchcode object MAT1.

----

---

start-of-selection.

• read data into table imat

select * from marav

into corresponding fields of table imat

where

matnr in s_matnr.

• Check if material was found

clear i_lines.

describe table imat lines i_lines.

if i_lines lt 1.

• Using hardcoded write here for easy upload

write: /

'No materials found.'.

exit.

endif.

end-of-selection.

----

---

*

• Now, we start with ALV

*

----

---

*

*

• To use ALV, we need a DDIC-structure or a thing called Fieldcatalogue.

• The fieldcatalouge can be generated by FUNCTION

• 'REUSE_ALV_FIELDCATALOG_MERGE' from an internal table from any

• report source, including this report.

• The only problem one might have is that the report and table names

• need to be in capital letters. (I had it )

*

*

----

---

• Store report name

i_repid = sy-repid.

• Create Fieldcatalogue from internal table

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

I_PROGRAM_NAME = i_repid

I_INTERNAL_TABNAME = 'IMAT' "capital letters!

I_INCLNAME = i_repid

CHANGING

CT_FIELDCAT = int_fcat

EXCEPTIONS

INCONSISTENT_INTERFACE = 1

PROGRAM_ERROR = 2

OTHERS = 3.

*explanations:

• I_PROGRAM_NAME is the program which calls this function

*

• I_INTERNAL_TABNAME is the name of the internal table which you want

• to display in ALV

*

• I_INCLNAME is the ABAP-source where the internal table is defined

• (DATA....)

• CT_FIELDCAT contains the Fieldcatalouge that we need later for

• ALV display

IF SY-SUBRC <> 0.

write: /

'Returncode',

sy-subrc,

'from FUNCTION REUSE_ALV_FIELDCATALOG_MERGE'.

ENDIF.

*This was the fieldcatlogue

----

---

*

• And now, we are ready to display our list

• Call for ALV list display

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

• I_CALLBACK_PROGRAM = 'Z_ALV_SIMPLE_EXAMPLE_WITH_ITAB'

I_CALLBACK_PROGRAM = i_repid

IT_FIELDCAT = int_fcat

I_SAVE = 'A'

TABLES

T_OUTTAB = imat

EXCEPTIONS

PROGRAM_ERROR = 1

OTHERS = 2.

*

*explanations:

• I_CALLBACK_PROGRAM is the program which calls this function

*

• IT_FIELDCAT (just made by REUSE_ALV_FIELDCATALOG_MERGE) contains

• now the data definition needed for display

*

• I_SAVE allows the user to save his own layouts

*

• T_OUTTAB contains the data to be displayed in ALV

IF SY-SUBRC <> 0.

write: /

'Returncode',

sy-subrc,

'from FUNCTION REUSE_ALV_LIST_DISPLAY'.

Cheers,

vasavi.

kindly reward if helpful.

[Former Member]

Hi,

Following code is the ALV Grid report.It displays with header.

DISPLAY HEADER BY SPLITTING IT.

TABLES VBAK.

TYPE-POOLS SLIS.

• Data Declaration

TYPES: BEGIN OF T_VBAK,

VBELN TYPE VBAK-VBELN,

ERDAT TYPE VBAK-ERDAT,

ERNAM TYPE VBAK-ERNAM,

AUDAT TYPE VBAK-AUDAT,

VBTYP TYPE VBAK-VBTYP,

NETWR TYPE VBAK-NETWR,

VKORG TYPE VBAK-VKORG,

VKGRP TYPE VBAK-VKGRP,

END OF T_VBAK.

DATA IT_VBAK TYPE STANDARD TABLE OF T_VBAK INITIAL SIZE 0.

• ALV Data Declaration

DATA: FLDCAT TYPE SLIS_T_FIELDCAT_ALV,

W_FLDCAT TYPE SLIS_FIELDCAT_ALV,

GD_LAYOUT TYPE SLIS_LAYOUT_ALV,

GD_REPID TYPE SY-REPID.

*DATA: DATE1(10).

SELECT-OPTIONS: VBELN FOR VBAK-VBELN.

START-OF-SELECTION.

PERFORM DATA_RETRIEVAL.

PERFORM BLD_FLDCAT.

PERFORM BLD_LAYOUT.

PERFORM DISPLAY_ALV_REPORT.

• Build Field Catalog for ALV Report

FORM BLD_FLDCAT.

W_FLDCAT-FIELDNAME = 'VBELN'.

W_FLDCAT-SELTEXT_M = 'Sales_Document'.

W_FLDCAT-COL_POS = 0.

*W_FLDCAT-EMPHASIZE = 'C411'.

*CXYZ: C=COLOR,X=COLOR NUMBER(1-9),Y=BOLD(0/1),Z=INVERSE(0/1)

W_FLDCAT-OUTPUTLEN = 15.

W_FLDCAT-KEY = 'X'.

W_FLDCAT-ICON = 'X'.

APPEND W_FLDCAT TO FLDCAT.

CLEAR W_FLDCAT.

W_FLDCAT-FIELDNAME = 'ERDAT'.

W_FLDCAT-SELTEXT_L = 'Record_Date_created'.

W_FLDCAT-COL_POS = 1.

W_FLDCAT-KEY = 'X'.

APPEND W_FLDCAT TO FLDCAT.

CLEAR W_FLDCAT.

W_FLDCAT-FIELDNAME = 'ERNAM'.

W_FLDCAT-SELTEXT_L = 'Cteated_Person_Name'.

W_FLDCAT-COL_POS = 2.

W_FLDCAT-EMPHASIZE = 'C011'.

APPEND W_FLDCAT TO FLDCAT.

CLEAR W_FLDCAT.

W_FLDCAT-FIELDNAME = 'AUDAT'.

W_FLDCAT-SELTEXT_M = 'Document_Date'.

W_FLDCAT-COL_POS = 3.

W_FLDCAT-EMPHASIZE = 'C110'.

APPEND W_FLDCAT TO FLDCAT.

CLEAR W_FLDCAT.

W_FLDCAT-FIELDNAME = 'VBTYP'.

W_FLDCAT-SELTEXT_L = 'SDDocument_category'.

W_FLDCAT-COL_POS = 4.

APPEND W_FLDCAT TO FLDCAT.

CLEAR W_FLDCAT.

W_FLDCAT-FIELDNAME = 'NETWR'.

W_FLDCAT-SELTEXT_L = 'Net_Value'.

W_FLDCAT-COL_POS = 5.

W_FLDCAT-OUTPUTLEN = 10.

W_FLDCAT-DO_SUM = 'X'.

W_FLDCAT-DATATYPE = 'CURR'.

APPEND W_FLDCAT TO FLDCAT.

CLEAR W_FLDCAT.

W_FLDCAT-FIELDNAME = 'VKORG'.

W_FLDCAT-SELTEXT_L = 'Sales_Organization'.

W_FLDCAT-COL_POS = 6.

APPEND W_FLDCAT TO FLDCAT.

CLEAR W_FLDCAT.

W_FLDCAT-FIELDNAME = 'VKGRP'.

W_FLDCAT-SELTEXT_M = 'Sales_Group'.

W_FLDCAT-COL_POS = 7.

W_FLDCAT-EMPHASIZE = 'C801'.

APPEND W_FLDCAT TO FLDCAT.

CLEAR W_FLDCAT.

ENDFORM.

• Build Layout for ALV Grid Report

FORM BLD_LAYOUT.

GD_LAYOUT-NO_INPUT = 'X'.

*GD_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.

*GD_LAYOUT-NO_SCROLLING = 'X'.

GD_LAYOUT-BOX_FIELDNAME = 'VBELN'.

ENDFORM.

• Display report using ALV grid

FORM DISPLAY_ALV_REPORT.

GD_REPID = SY-REPID.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = GD_REPID

IS_LAYOUT = GD_LAYOUT

I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'

IT_FIELDCAT = FLDCAT[]

I_SAVE = 'X'

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.

• Retrieve data from VBAK table and populate itab IT_VBAK

FORM DATA_RETRIEVAL.

SELECT VBELN ERDAT ERNAM AUDAT VBTYP NETWR VKORG

FROM VBAK

INTO TABLE IT_VBAK

WHERE VBELN IN VBELN.

ENDFORM.

FORM TOP_OF_PAGE.

DATA: T_HEADER TYPE SLIS_T_LISTHEADER,

W_HEADER TYPE SLIS_LISTHEADER.

W_HEADER-TYP = 'H'.

W_HEADER-INFO = 'WELCOME HEADER LIST'.

APPEND W_HEADER TO T_HEADER.

W_HEADER-TYP = 'S'.

W_HEADER-KEY = 'REPORT:'.

W_HEADER-INFO = SY-REPID.

APPEND W_HEADER TO T_HEADER.

W_HEADER-TYP = 'S'.

W_HEADER-KEY = 'DATE:'.

CONCATENATE SY-DATUM4(2) ' / ' SY-DATUM6(2) ' / ' SY-DATUM(4) INTO W_HEADER-INFO.

APPEND W_HEADER TO T_HEADER.

CLEAR W_HEADER.

W_HEADER-TYP = 'S'.

W_HEADER-KEY = 'Page_No:'.

W_HEADER-INFO = SY-PAGNO.

APPEND W_HEADER TO T_HEADER.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = T_HEADER.

ENDFORM.

Reward points,if it is useful.

Thanks,

chandu.

[Former Member]

Hi,

Sample programs on ALV Grid

report zbnstest.

• TABLES AND DATA DECLARATION.

*TABLES: mara,makt.",marc.

data syrepid like sy-repid.

data sydatum(10). " LIKE sy-datum.

data sypagno(3) type n.

• WHEN USING MORE THAN ONE TABLE IN ALV WE NEEED TO DECLARE THE TYPE

• GROUP (TYPE-POOLS--------->SLIS)

type-pools : slis.

• INTERNAL TABLE DECLARATION.

• INTERNAL TABLE TO HOLD THE VALUES FROM THE MARA TABLE

data: begin of t_mara occurs 0,

matnr like mara-matnr,

meins like mara-meins,

mtart like mara-mtart,

matkl like mara-matkl,

end of t_mara.

• INTERNAL TABLE TO HOLD THE CONTENTS FROM THE EKKO TABLE

data : begin of t_marc occurs 0,

matnr like mara-matnr,

werks like marc-werks,

minbe like marc-minbe.

data: end of t_marc.

• INTERNAL TABLE TO HOLD THE VALUES FROM MAKT TABLE.

data : begin of t_makt occurs 0,

matnr like mara-matnr,

maktx like makt-maktx,

spras like makt-spras,

end of t_makt.

• INTERNAL TABLE WHICH ACTUALLY MERGES ALL THE OTHER INTERNAL TABLES.

data: begin of itab1 occurs 0,

matnr like mara-matnr,

meins like mara-meins,

maktx like makt-maktx,

spras like makt-spras,

werks like marc-werks,

minbe like marc-minbe,

end of itab1.

• THE FOLLOWING DECLARATION IS USED FOR DEFINING THE FIELDCAT

• AND THE LAYOUT FOR THE ALV.

• HERE AS slis_t_fieldcat_alv IS A INTERNAL TABLE WITHOUT A HEADER LINE

• WE EXPLICITELY DEFINE AN INTERNAL TABLE OF THE SAME STRUCTURE AS THAT

• OF slis_t_fieldcat_alv BUT WITH A HEADER LINE IN THE DEFINITION.

• THIS IS DONE TO MAKE THE CODE SIMPLER.

• OTHERWISE WE MAY HAVE TO DEFINE THE STRUCTURE AS IN THE NORMAL SAP

• PROGRAMS.

• IN THE FIELDCATALOG TABLE WE ACTUALLY PASS THE FIELDS FROM ONE OR

• MORE TABLES AND CREATE A STRUCTURE

• IN THE LAYOUT STRUCTURE WE BASICALLY DEFINE THE FORMATTING OPTIONS

• LIKE DISPLAY IN THE ZEBRA PATTERN ,THE HOTSPOT OPTIONS ETC.

data: fieldcatalog type slis_t_fieldcat_alv with header line,

fieldlayout type slis_layout_alv.

• DECLARING THE EVENTTABLE INTERNL TABLE FOR USING EVENTS LIKE

• TOP-OF-PAGE ETC.

data : eventstab type slis_t_event with header line.

• DECLARING AN INTERNAL TABLE TO HOLD THE DATA FOR THE TOP-OF-PAGE

data : heading type slis_t_listheader with header line.

data : heading1 type slis_t_listheader with header line.

data : heading2 type slis_t_listheader with header line.

data : heading3 type slis_t_listheader with header line.

data : heading4 type slis_t_listheader with header line.

data : heading5 type slis_t_listheader with header line.

data : heading6 type slis_t_listheader with header line.

data : heading7 type slis_t_listheader with header line.

data : heading8 type slis_t_listheader with header line.

• STRUCTURE TO PASS THE COLOR ATTRIBUTES FOR DISPLAY.

data : colorstruct type slis_coltypes.

• INITIALIZATION. *

initialization.

syrepid = sy-repid.

sypagno = sy-pagno.

clear fieldcatalog.

• START-OF-SELECTION. *

start-of-selection.

• SUBROUTINE TO POPULATE THE COLORSTRUCT

perform fill_colorstruct using colorstruct.

• SUBROUTINE TO POPULATE THE FIELDS OF THE FIELD CATALOGUE

perform populate_fieldcatalog.

• SUBROUTINE TO SELECT DATA FROM VARIOUS TABLES AND POPULATE IT IN THE

• INTERNAL TABLE.

perform selectdata_and_sort.

• SUBROUTINE TO POPULATE THE LAYOUT STRUCTURE.

perform populate_layout using fieldlayout.

• SUBROUTINE TO CALL THE FUNCTION MERGE TO ENSURE PROPER DISPLAY.

perform merge_fieldcatalog.

• SUBROUTINE TO POPULATE THE EVENTSTAB.

perform fill_eventstab tables eventstab.

• SUBROUTINE TO POPULATE THE HEADING TABLES.

perform fill_headingtable tables heading using 'HEADING'.

perform fill_headingtable tables heading1 using 'HEADING1'.

perform fill_headingtable tables heading2 using 'HEADING2'.

perform fill_headingtable tables heading3 using 'HEADING3'.

perform fill_headingtable tables heading4 using 'HEADING4'.

perform fill_headingtable tables heading5 using 'HEADING5'.

perform fill_headingtable tables heading6 using 'HEADING6'.

perform fill_headingtable tables heading7 using 'HEADING7'.

perform fill_headingtable tables heading8 using 'HEADING8'.

• SUBROUTINE TO DISPLAY THE LIST.

perform display_alv_list.

• FORMS

• IN THIS SUBROUTINE WE POPULATE THE FIELDCATALOG TABLE WITH THE NAMES

• OF THE TABLE,FIELDNAME,WHETHER IT IS KEY FIELD OR NOT,HEADING AND

• COLUMN JUSTIFICATION.

form populate_fieldcatalog.

perform fill_fields_of_fieldcatalog tables fieldcatalog

using 'ITAB1' 'MATNR' 'X' .

perform fill_fields_of_fieldcatalog tables fieldcatalog

using 'ITAB1' 'MEINS' ' '.

perform fill_fields_of_fieldcatalog tables fieldcatalog

using 'ITAB1' 'MAKTX' ' ' .

perform fill_fields_of_fieldcatalog tables fieldcatalog

using 'ITAB1' 'MTART' ' ' .

perform fill_fields_of_fieldcatalog tables fieldcatalog

using 'ITAB1' 'MATKL' ' ' .

perform fill_fields_of_fieldcatalog tables fieldcatalog

using 'ITAB1' 'SPRAS' ' ' .

perform fill_fields_of_fieldcatalog tables fieldcatalog

using 'ITAB1' 'WERKS' ' ' .

perform fill_fields_of_fieldcatalog tables fieldcatalog

using 'ITAB1' 'MINBE' ' ' .

endform. " POPULATE_FIELDCATALOG

----

---

• FORM FILL_FIELDS_OF_FIELDCATALOG *

----

---

• ........ *

----

---

• --> FIELDCATALOG *

• --> P_TABNAME *

• --> P_FIELDNAME *

• --> P_KEY *

• --> P_KEY *

----

---

form fill_fields_of_fieldcatalog tables fieldcatalog

structure fieldcatalog

using p_tabname

p_fieldname

p_key.

• p_no_out.

fieldcatalog-tabname = p_tabname.

fieldcatalog-fieldname = p_fieldname.

fieldcatalog-key = p_key.

fieldcatalog-emphasize = '1234'.

*fieldcatalog-no_out = p_no_out.

append fieldcatalog.

endform. " FILL_FIELDSOFFIELDCATALOG

----

---

• FORM POPULATE_LAYOUT *

----

---

• ........ *

----

---

• --> FIELDLAYOUT *

----

---

form populate_layout using fieldlayout type slis_layout_alv.

fieldlayout-f2code = '&ETA' .

fieldlayout-zebra = 'X'.

• FOR THE WINDOW TITLE.

fieldlayout-window_titlebar = 'ALV with Events'.

fieldlayout-colwidth_optimize = 'X'.

fieldlayout-no_vline = ' '.

*fieldlayout-no_input = 'X'.

fieldlayout-confirmation_prompt = ''.

fieldlayout-key_hotspot = 'X'.

• This removes the column headings if the flag is set to 'X'

fieldlayout-no_colhead = ' '.

*fieldlayout-hotspot_fieldname = 'MAKTX'.

fieldlayout-detail_popup = 'X'.

• fieldlayout-coltab_fieldname = 'X'.

endform. " POPULATE_LAYOUT

----

---

• FORM SELECTDATA_AND_SORT *

----

---

• ........ *

----

---

form selectdata_and_sort.

select matnr meins mtart matkl from mara

into corresponding fields of t_mara

up to 500 rows .

select matnr maktx spras from makt

into corresponding fields of t_makt

where matnr = t_mara-matnr and

spras = sy-langu.

select matnr werks minbe from marc

into corresponding fields of t_marc

where matnr = t_mara-matnr.

append t_marc.

endselect.

append t_makt.

endselect.

append t_mara.

endselect.

perform populate_itab1.

sort itab1 by matnr.

endform. " SELECTDATA_AND_SORT

----

---

• FORM MERGE_FIELDCATALOG *

----

---

• ........ *

----

---

form merge_fieldcatalog.

call function 'REUSE_ALV_FIELDCATALOG_MERGE'

exporting

i_program_name = syrepid

i_internal_tabname = 'ITAB1'

• i_structure_name = 'COLORSTRUCT'

• I_CLIENT_NEVER_DISPLAY = 'X'

i_inclname = syrepid

changing

ct_fieldcat = fieldcatalog[]

exceptions

inconsistent_interface = 1

program_error = 2

others = 3.

endform. " MERGE_FIELDCATALOG

• IN THIS FUNCTION THE MINIMUM PARAMETERS THAT WE NEED TO PASS IS AS

• FOLLOWS:-

• i_callback_program --> CALLING PROGRAM NAME

• i_structure_name --> STRUCTURE NAME.

• is_layout --> LAYOUT NAME.

• it_fieldcat ---> BODY OF THE FIELD CATALOGUE INTERNAL TABLE

form display_alv_list.

call function 'REUSE_ALV_LIST_DISPLAY'

exporting

• I_INTERFACE_CHECK = ' '

i_callback_program = syrepid

• I_CALLBACK_PF_STATUS_SET = ' '

• I_CALLBACK_USER_COMMAND = ' '

i_structure_name = 'ITAB1'

is_layout = fieldlayout

it_fieldcat = fieldcatalog[]

• IT_EXCLUDING =

• IT_SPECIAL_GROUPS =

• IT_SORT =

• IT_FILTER =

• IS_SEL_HIDE =

• I_DEFAULT = 'X'

• THE FOLLOWING PARAMETER IS SET AS 'A' INORDER TO DISPLAY THE STANDARD

• TOOL BAR

i_save = 'A'

• IS_VARIANT = ' '

it_events = eventstab[]

• IT_EVENT_EXIT =

• IS_PRINT =

• 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 = itab1

exceptions

program_error = 1

others = 2.

endform. " DISPLAY_ALV_LIST

&----

---

*& Form POPULATE_ITAB1

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

form populate_itab1.

loop at t_mara.

loop at t_makt where matnr = t_mara-matnr.

loop at t_marc where matnr = t_mara-matnr.

move-corresponding t_mara to itab1.

move-corresponding t_makt to itab1.

move-corresponding t_marc to itab1.

append itab1.

endloop.

endloop.

endloop.

endform. " POPULATE_ITAB1

&----

---

*& Form FILL_EVENTSTAB

&----

---

• text

----

---

• -->P_EVENTSTAB text *

----

---

form fill_eventstab tables p_eventstab structure eventstab.

• WHEN THE FOLLOWING FUNCTION IS CALLED THE SYSTEM POPULATES THE

• INTERNAL TABLE EVENTSTAB WITH A LIST OF EVENTS NAME.

• AS SHOWN BELOW WHEN USING I_LIST_TYPE = 0 THE FUNCTION RETURNS 14

• EVENTS NAME.

call function 'REUSE_ALV_EVENTS_GET'

exporting

i_list_type = 0

importing

et_events = p_eventstab[]

exceptions

list_type_wrong = 1

others = 2.

• BY CALLING THE ABOVE FUNCTION WE FIRST POPULATE THE EVENTSTAB WITH

• THE PREDEFINED EVENTS AND THEN WE MOVE THE FORM NAME AS SHOWN BELOW.

• WE ASSIGN A FORM NAME TO THE EVENT AS REQUIRED BY THE USER.

• FORM NAME CAN BE ANYTHING.THE PERFORM STATEMENT FOR THIS FORM

• IS DYNAMICALY CALLED.

read table p_eventstab with key name = slis_ev_top_of_page.

if sy-subrc = 0 .

move 'TOP_OF_PAGE' to p_eventstab-form.

append p_eventstab.

endif.

read table p_eventstab with key name = slis_ev_top_of_coverpage.

if sy-subrc = 0 .

move 'TOP_OF_COVERPAGE' to p_eventstab-form.

append p_eventstab.

endif.

read table p_eventstab with key name = slis_ev_end_of_coverpage .

if sy-subrc = 0 .

move 'END_OF_COVERPAGE' to p_eventstab-form.

append p_eventstab.

endif.

read table p_eventstab with key name = slis_ev_foreign_top_of_page.

if sy-subrc = 0 .

move 'FOREIGN_TOP_OF_PAGE' to p_eventstab-form.

append p_eventstab.

endif.

read table p_eventstab with key name = slis_ev_foreign_end_of_page.

if sy-subrc = 0 .

move 'FOREIGN_END_OF_PAGE' to p_eventstab-form.

append p_eventstab.

endif.

read table p_eventstab with key name = slis_ev_list_modify.

if sy-subrc = 0 .

move 'LIST_MODIFY' to p_eventstab-form.

append p_eventstab.

endif.

read table p_eventstab with key name = slis_ev_top_of_list.

if sy-subrc = 0 .

move 'TOP_OF_LIST' to p_eventstab-form.

append p_eventstab.

endif.

read table p_eventstab with key name = slis_ev_end_of_page.

if sy-subrc = 0 .

move 'END_OF_PAGE' to p_eventstab-form.

append p_eventstab.

endif.

read table p_eventstab with key name = slis_ev_end_of_list .

if sy-subrc = 0 .

move 'END_OF_LIST' to p_eventstab-form.

append p_eventstab.

endif.

endform. " FILL_EVENTSTAB

&----

---

*& Form FILL_HEADINGTABLE

&----

---

• text

----

---

• -->P_HEADING text *

----

---

form fill_headingtable tables p_heading structure heading

using tablename.

case tablename.

when 'HEADING'.

p_heading-typ = 'H'.

concatenate

' REPORT NAME:-' syrepid

' ABB Industry Pte Ltd' into p_heading-info.

append p_heading.

write sy-datum using edit mask '__/__/____' to sydatum.

concatenate

' DATE:-' sydatum ' USER: ' sy-uname 'PAGE NO:' sypagno

into p_heading-info.

append p_heading.

when 'HEADING1'.

p_heading-typ = 'H'.

p_heading-info = 'TOP-OF-COVER-PAGE'.

append p_heading.

when 'HEADING2'.

p_heading-typ = 'H'.

p_heading-info = 'END-OF-COVER-PAGE'.

append p_heading.

when 'HEADING3'.

p_heading-typ = 'H'.

p_heading-info = 'FOREIGN-TOP-OF-PAGE'.

append p_heading.

when 'HEADING4'.

p_heading-typ = 'H'.

p_heading-info = 'FOREIGN-END-OF-PAGE'.

append p_heading.

• WHEN 'HEADING5'.

• P_HEADING-TYP = 'H'.

• P_HEADING-INFO = 'LIST-MODIFY'.

• APPEND P_HEADING.

when 'HEADING6'.

p_heading-typ = 'H'.

p_heading-info = 'END-OF-PAGE'.

append p_heading.

when 'HEADING7'.

p_heading-typ = 'H'.

p_heading-info = 'END-OF-LIST'.

append p_heading.

when 'HEADING8'.

p_heading-typ = 'H'.

p_heading-info = 'TOP-OF-LIST'.

append p_heading.

endcase.

endform. " FILL_HEADINGTABLE

----

---

• FORM TOP_OF_PAGE *

----

---

• ........ *

----

---

form top_of_page.

call function 'REUSE_ALV_COMMENTARY_WRITE'

exporting

it_list_commentary = heading[]

exceptions

others = 1.

endform.

&----

---

*& Form FILL_COLORSTRUCT

&----

---

• text

----

---

• -->P_COLORSTRUCT text *

----

---

form fill_colorstruct using p_colorstruct type slis_coltypes .

p_colorstruct-heacolfir-col = 6.

p_colorstruct-heacolfir-int = 1.

p_colorstruct-heacolfir-inv = 1.

endform. " FILL_COLORSTRUCT

----

---

• FORM TOP_OF_COVERPAGE *

----

---

• ........ *

----

---

form top_of_coverpage.

call function 'REUSE_ALV_COMMENTARY_WRITE'

exporting

it_list_commentary = heading1[]

exceptions

others = 1.

endform.

----

---

• FORM END_OF_COVERPAGE *

----

---

• ........ *

----

---

form end_of_coverpage.

call function 'REUSE_ALV_COMMENTARY_WRITE'

exporting

it_list_commentary = heading2[]

exceptions

others = 1.

endform.

----

---

• FORM FOREIGN_TOP_OF_PAGE *

----

---

• ........ *

----

---

form foreign_top_of_page.

call function 'REUSE_ALV_COMMENTARY_WRITE'

exporting

it_list_commentary = heading3[]

exceptions

others = 1.

endform.

----

---

• FORM FOREIGN_END_OF_PAGE *

----

---

• ........ *

----

---

form foreign_end_of_page.

call function 'REUSE_ALV_COMMENTARY_WRITE'

exporting

it_list_commentary = heading4[]

exceptions

others = 1.

endform.

----

---

• FORM LIST_MODIFY *

----

---

• ........ *

----

---

*FORM LIST_MODIFY.

• CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

• EXPORTING

• IT_LIST_COMMENTARY = HEADING5[]

• EXCEPTIONS

• OTHERS = 1.

*ENDFORM.

----

---

• FORM END_OF_PAGE *

----

---

• ........ *

----

---

form end_of_page.

call function 'REUSE_ALV_COMMENTARY_WRITE'

exporting

it_list_commentary = heading6[]

exceptions

others = 1.

endform.

----

---

• FORM END_OF_LIST *

----

---

• ........ *

----

---

form end_of_list.

call function 'REUSE_ALV_COMMENTARY_WRITE'

exporting

it_list_commentary = heading7[]

exceptions

others = 1.

endform.

----

---

• FORM TOP_OF_LIST *

----

---

• ........ *

----

---

form top_of_list.

call function 'REUSE_ALV_COMMENTARY_WRITE'

exporting

it_list_commentary = heading8[]

exceptions

others = 1.

endform.

*--- End of Program

Don't forget to reward if useful..

[Former Member]

Hi,

Check the following links:

http://sapdev.co.uk/reporting/alvhome.htm

http://sap-img.com/abap/sample-programs-on-alv-grid.htm

Regards,

Bhaskar

[Former Member]

Hi,

Plzz reward points if ithelps.

DATA:

g_grid TYPE REF TO cl_gui_custom_container,

g_alv TYPE REF TO cl_gui_alv_grid,

g_container TYPE scrfname VALUE 'CONTAINER',

g_fcatlayo TYPE lvc_s_layo,

it_fcat TYPE lvc_t_fcat. " Table for fieldcatalog

SELECT workdate " Workdate

groupid " Groupid

projectid " Project ID

projectname " Project name

objectid " Object ID

objectname " Object name

activityid " Activity ID

activityname " Activity name

timeworked " Time worked

description " Description

taskstatus " Task status

billstatus " Bill status

appstatus " Approved status

wstatus " Working status

mngcomment " Manager comment

FROM zcl_timesheet

INTO TABLE it_time

WHERE empid EQ zcl_emprecord-empid

AND workdate GT w_ldate

AND workdate LE w_hdate

AND appstatus NE c_char_s.

IF sy-subrc NE 0.

MESSAGE s031.

ENDIF. " IF SY-SUBRC NE 0

call screen 100."----

---

MODULE STATUS_0400 OUTPUT *

"----

---

This screen is used to display the ALV *

"----

---

MODULE status_0400 OUTPUT.

SET PF-STATUS 'MAIN'.

*" If program executed in foreground.

IF sy-batch IS INITIAL.

*" If g_grid is initial.

if g_grid is initial.

CREATE OBJECT g_grid

EXPORTING

container_name = g_container.

CREATE OBJECT g_alv

EXPORTING

i_parent = g_grid.

else.

CALL METHOD g_alv->refresh_table_display.

endif. " IF G_GRID IS INITIAL

ENDIF. " IF SY-BATCH IS INITIAL

*" If w_first is initial then then display the default dates.

IF w_FIRST IS INITIAL.

w_ldate = sy-datum - 15.

w_hdate = sy-datum.

ENDIF. " IF W_FIRST IS INITIAL

PERFORM display.

REFRESH it_fcat.

PERFORM build_fcatd USING 'IT_TIME' 'WORKDATE' text-002 '1'.

PERFORM build_fcatd USING 'IT_TIME' 'PROJECTID' text-004 '3'.

PERFORM build_fcatd USING 'IT_TIME' 'PROJECTNAME' text-005 '4'.

PERFORM build_fcatd USING 'IT_TIME' 'OBJECTID' text-006 '5'.

PERFORM build_fcatd USING 'IT_TIME' 'OBJECTNAME' text-007 '6'.

PERFORM build_fcatd USING 'IT_TIME' 'ACTIVITYID' text-008 '7'.

PERFORM build_fcatd USING 'IT_TIME' 'ACTIVITYNAME' text-009 '8'.

PERFORM build_fcatd USING 'IT_TIME' 'TIMEWORKED' text-010 '9'.

PERFORM build_fcatd USING 'IT_TIME' 'DESCRIPTION' text-011 '10'.

PERFORM build_fcatd USING 'IT_TIME' 'APPSTATUS' text-012 '11'.

PERFORM build_fcatd USING 'IT_TIME' 'MNGCOMMENT' text-013 '12'.

PERFORM alv_display USING it_time it_fcat.

ENDMODULE. " STATUS_0400 OUTPUT

"----

---

Module USER_COMMAND_0400 INPUT *

"----

---

This module is used for PAI event in display timesheet *

"----

---

MODULE user_command_0400 INPUT.

w_first = c_char_x.

CASE ok_code.

WHEN 'BACK'.

CALL METHOD cl_gui_cfw=>flush.

LEAVE TO SCREEN 0.

WHEN 'EXIT' OR 'CANCEL'.

LEAVE PROGRAM.

WHEN 'REF'.

CALL METHOD g_alv->refresh_table_display.

ENDCASE.

ENDMODULE. " USER_COMMAND_0400 INPUT

"----

---

FORM BUILD_FCATD *

"----

---

To build fieldcatalog in the display mode *

"----

---

-->pr_tabname type lvc_tname *

-->pr_fieldname type lvc_fname *

-->pr_Coltext type lvc_txtcol *

-->pr_Colpos type lvc_colpos *

"----

---

FORM build_fcatd USING pr_tabname TYPE lvc_tname

pr_fieldname TYPE lvc_fname

pr_coltext TYPE lvc_txtcol

pr_colpos TYPE lvc_colpos .

fs_fcat-tabname = pr_tabname.

fs_fcat-fieldname = pr_fieldname.

fs_fcat-coltext = pr_coltext.

fs_fcat-col_pos = pr_colpos.

APPEND fs_fcat TO it_fcat.

ENDFORM. " BUILD_FIELDCATALOG

"----

---

FORM ALV_DISPLAY *

"----

---

To display data in ALV *

"----

---

---> pr_table type standard table *

---> pr_fcat type lvc_t_fcat *

"----

---

FORM alv_display USING pr_table TYPE STANDARD TABLE

pr_fcat TYPE lvc_t_fcat .

*" Local data declaration....

DATA: lt_exclude TYPE ui_functions.

PERFORM exclude_tb_functions CHANGING lt_exclude.

*" To display ALV

CALL METHOD g_alv->set_table_for_first_display

EXPORTING

i_save = 'U'

i_default = space

is_layout = g_fcatlayo

it_toolbar_excluding = lt_exclude

CHANGING

it_outtab = pr_table[]

it_fieldcatalog = pr_fcat[].

ENDFORM. " ALV_DISPLAY

[Former Member]

REPORT ZAK_ALV1 .

type-pools: slis. "ALV Declarations

DATA: VAR TYPE DISVARIANT.

*Data Declaration

TYPES: BEGIN OF t_ekko,
SEl, "stores which row user has selected
ebeln TYPE ekpo-ebeln,
ebelp TYPE ekpo-ebelp,
statu TYPE ekpo-statu,
aedat TYPE ekpo-aedat,
matnr TYPE ekpo-matnr,
menge TYPE ekpo-menge,
meins TYPE ekpo-meins,
netpr TYPE ekpo-netpr,
peinh TYPE ekpo-peinh,
END OF t_ekko.

DATA: it_ekko TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,
wa_ekko TYPE t_ekko.

*ALV data declarations
data: fieldcatalog type slis_t_fieldcat_alv with header line,
gd_layout type slis_layout_alv,
gd_repid like sy-repid.

DATA: GT_EVENTS TYPE slis_t_event,
WA_EVENT TYPE slis_alv_event.

PARAMETERS: P_VARI LIKE DISVARIANT-VARIANT.

INITIALIZATION.
VAR-REPORT = SY-REPID.

*Start-of-selection.
START-OF-SELECTION.

perform data_retrieval.
perform build_fieldcatalog.
perform build_layout.
perform display_alv_report.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_VARI.
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
EXPORTING
IS_VARIANT = VAR
IMPORTING
ES_VARIANT = VAR.

P_VARI = VAR-VARIANT.

*&---------------------------------------------------------------------*
*& Form BUILD_FIELDCATALOG
*&---------------------------------------------------------------------*
* Build Fieldcatalog for ALV Report
*----------------------------------------------------------------------*
form build_fieldcatalog.

fieldcatalog-fieldname = 'EBELN'.
fieldcatalog-seltext_m = 'Purchase Order'.
fieldcatalog-col_pos = 0.
fieldcatalog-outputlen = 15.
fieldcatalog-emphasize = 'X'.
fieldcatalog-key = 'X'.
fieldcatalog-hotspot = 'X'.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.

fieldcatalog-fieldname = 'EBELP'.
fieldcatalog-seltext_m = 'PO Item'.
fieldcatalog-col_pos = 1.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.

fieldcatalog-fieldname = 'STATU'.
fieldcatalog-seltext_m = 'Status'.
fieldcatalog-key = 'X'.
fieldcatalog-col_pos = 2.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.

fieldcatalog-fieldname = 'AEDAT'.
fieldcatalog-seltext_m = 'Item change date'.
fieldcatalog-col_pos = 3.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.

fieldcatalog-fieldname = 'MATNR'.
fieldcatalog-seltext_m = 'Material Number'.
fieldcatalog-col_pos = 4.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.

fieldcatalog-fieldname = 'MENGE'.
fieldcatalog-seltext_m = 'PO quantity'.
fieldcatalog-col_pos = 5.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.

fieldcatalog-fieldname = 'MEINS'.
fieldcatalog-seltext_m = 'Order Unit'.
fieldcatalog-col_pos = 6.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.

fieldcatalog-fieldname = 'NETPR'.
fieldcatalog-seltext_m = 'Net Price'.
fieldcatalog-col_pos = 7.
fieldcatalog-outputlen = 15.
fieldcatalog-do_sum = 'X'. "Display column total
fieldcatalog-datatype = 'CURR'.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.

fieldcatalog-fieldname = 'PEINH'.
fieldcatalog-seltext_m = 'Price Unit'.
fieldcatalog-col_pos = 8.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
endform. " BUILD_FIELDCATALOG


*&---------------------------------------------------------------------*
*& Form BUILD_LAYOUT
*&---------------------------------------------------------------------*
* Build layout for ALV grid report
*----------------------------------------------------------------------*
form build_layout.
gd_layout-box_fieldname = 'SEL'.
"set field name to store row selection
gd_layout-edit = 'X'. "makes whole ALV table editable
gd_layout-zebra = 'X'.
* gd_layout-no_vline = 'X'.
gd_layout-window_titlebar = ' LAYOUT TITLE'.
* gd_layout-confirmation_prompt = 'X'.
* gd_layout-detail_popup = 'X'.
endform. " BUILD_LAYOUT


*&---------------------------------------------------------------------*
*& Form DISPLAY_ALV_REPORT
*&---------------------------------------------------------------------*
* Display report using ALV grid
*----------------------------------------------------------------------*
form display_alv_report.
gd_repid = sy-repid.
call function 'REUSE_ALV_GRID_DISPLAY'
exporting
i_callback_program = gd_repid
I_BACKGROUND_ID = 'SIWB_WALLPAPER'
* i_callback_top_of_page = 'TOP-OF-PAGE'
* i_callback_user_command = 'DISPLAY'
i_grid_title = 'EMPLOYEE REPORTING'
is_layout = gd_layout
it_fieldcat = fieldcatalog[]
IT_EVENTS = GT_EVENTS
i_save = 'X'
is_variant = VAR

tables
t_outtab = it_ekko.

endform. " DISPLAY_ALV_REPORT


*&---------------------------------------------------------------------*
*& Form DATA_RETRIEVAL
*&---------------------------------------------------------------------*
* Retrieve data form EKPO table and populate itab it_ekko
*----------------------------------------------------------------------*
form data_retrieval.

select ebeln ebelp statu aedat matnr menge meins netpr peinh
up to 10 rows from ekpo
into corresponding fields of table it_ekko.

endform. " DATA_RETRIEVAL