topic Re: Sample ALV Report in Application Development and Automation Discussions

Sample ALV Report

Former Member — Fri, 25 Aug 2006 06:16:40 GMT

HI All,

Pls send me a simple ALV Report.As my requirment is In select-option I'm passing two field & In O/P I've to get 8 fields as ALV grid display.One of the field In O/P should display in dicending order.

Pls send me sample report as I'm very new to ALV.

Thanks in advance

Singha

Re: Sample ALV Report

Former Member — Fri, 25 Aug 2006 06:22:21 GMT

Try to go through programs starting with BCALV* or

transaction DWDM to explore and find one suitable for

your requirements.

Kind Regards

Eswar

Re: Sample ALV Report

Former Member — Fri, 25 Aug 2006 06:26:33 GMT

See Demo program BCALV_GRID_DEMO in se38

Its helpful to you

Reward if Helpful

Regard

Re: Sample ALV Report

Former Member — Fri, 25 Aug 2006 06:54:51 GMT

hi,

i am giving u code for a sample ALV with explanation.

REPORT z_alv_simple_example_with_itab .

************************************************************************

*Simple example to use ALV and to define the ALV data in an internal

*table

************************************************************************

Martin Schlegel, BearingPoint, December 2004

Thanks to Madhusudhan Sonee and Rama Krishna Kommineni for testing
and feedback

************************************************************************

*For a very long time, people gave me the feeling that ALV is a

*complicated tool that is difficult to understand and to use.

*Lately I had to use it and I discovered that ALV is easy to use and

*saves a lot of work:

*ALV will generate the column headings on its own, so one does not need

*to work on headlines and transalation.

*ALV allows the user to select the columns he wants to see, so the user

*does not need to contact a developer for every change he likes to have.

*ALV allows the user to create his own sums, so …

*ALV has a simple way to work with internal tables.

*If you really want to save time, use ALV instead of write!

************************************************************************

*Please take 30 minutes to explore the following example and see how

*easy it is to use ALV!

************************************************************************

*data definition

INCLUDE <icon>.

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,

ios(4) TYPE c,

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.

LOOP AT imat.

IF imat-matnr+0(1) = 'M'.

MOVE icon_green_light TO imat-ios.

MODIFY imat.

ENDIF.

IF imat-matnr+0(1) = 'Z'.

MOVE icon_red_light TO imat-ios.

MODIFY imat.

ENDIF.

ENDLOOP.

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'.

ENDIF.

Hope this will help you.

Re: Sample ALV Report

Former Member — Thu, 15 Feb 2007 12:08:57 GMT

hi,

report z_alv_data_display .

*Table declaration

tables :

bsis,

bsas.

----

Declaration of the Internal Table

data : begin of itab occurs 100,

belnr like bsas-belnr, " Accounting document number

bldat like bsas-bldat, " Document date

budat like bsas-budat, " Posting date

hkont like bsas-hkont, " GL account

dmbtr like bsas-dmbtr, " Amount in local currency

xblnr like bsas-xblnr, " Reference document number

end of itab.

----

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,

is_layout type slis_fieldcat_alv.

data: wa_fieldcat like line of int_fcat.

----

*Selection Screen Declaration

selection-screen: begin of block b1.

parameters : ddate like bsas-bldat,

glact like bsas-hkont.

selection-screen:end of block b1.

----

*Select the document date, amount, document no from the table bsas

start-of-selection.

select bldat

dmbtr

belnr

budat

hkont

xblnr

from bsas

into (itab-bldat,

itab-dmbtr,

itab-belnr,

itab-budat,

itab-hkont,

itab-xblnr)

where bldat eq ddate and hkont eq glact.

append itab.

endselect.

select bldat

dmbtr

belnr

budat

hkont

xblnr

from bsis

into (itab-bldat,

itab-dmbtr,

itab-belnr,

itab-budat,

itab-hkont,

itab-xblnr)

where bldat eq ddate and hkont eq glact.

append itab.

endselect.

Check if material was found

clear i_lines.

describe table itab lines i_lines.

if i_lines lt 1.

Using hardcoded write here for easy upload

write: /

'No DATA found.'.

exit.

endif.

end-of-selection.

Store report name

i_repid = sy-repid.

*This was the fieldcatlogue

----

to display the list of data

is_layout-col_pos = 1.

is_layout-fieldname = 'BELNR'.

is_layout-tabname = 'ITAB'.

is_layout-seltext_l = 'Document No'.

append is_layout to int_fcat.

clear is_layout.

is_layout-col_pos = 2.

is_layout-fieldname = 'BLDAT'.

is_layout-tabname = 'ITAB'.

is_layout-seltext_l = 'Document Dt'.

append is_layout to int_fcat.

clear is_layout.

is_layout-col_pos = 3.

is_layout-fieldname = 'BUDAT'.

is_layout-tabname = 'ITAB'.

is_layout-seltext_l = 'Posting Dt'.

append is_layout to int_fcat.

clear is_layout.

is_layout-col_pos = 4.

is_layout-fieldname = 'HKONT'.

is_layout-tabname = 'ITAB'.

is_layout-seltext_l = 'GL Act No'.

append is_layout to int_fcat.

clear is_layout.

is_layout-col_pos = 5.

is_layout-fieldname = 'DMBTR'.

is_layout-tabname = 'ITAB'.

is_layout-seltext_l = 'Amt(Lcl Curncy)'.

append is_layout to int_fcat.

clear is_layout.

is_layout-col_pos = 6.

is_layout-fieldname = 'XBLNR'.

is_layout-tabname = 'ITAB'.

is_layout-seltext_l = 'Reference'.

append is_layout to int_fcat.

clear is_layout.

*----

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 = itab[]

exceptions

program_error = 1

others = 2.

if sy-subrc <> 0.

write: /

'Returncode',

sy-subrc,

'from FUNCTION REUSE_ALV_LIST_DISPLAY'.

endif.

Re: Sample ALV Report

Former Member — Thu, 15 Feb 2007 12:49:34 GMT

good

go to SE38 give BCALV* and put F4,you ll find lots of example related to AVL,test them and ust them accordingly.

thanks

mrutyun^