ALV program with Field Catalog

Former Member · ‎2007 Feb 04

Hi ,

Can any body please provide me sample ALV programs with Field Catalog and GRID DISPLAY. and also please give me the steps for writing the program.

Thanks in advance.

KP

RichHeilman · ‎2007 Feb 04

There are a lot of examples, here in the ABAP forum. You can search for more. Here is a very simple one.



report zrich_0003 .



* Global ALV Data Declarations
type-pools: slis.

* Internal Tables
data: begin of ialv occurs 0,
      test1(10) type c,
      test2(10) type c,
      end of ialv.

data: fieldcat  type slis_t_fieldcat_alv.

start-of-selection.

  perform get_data.
  perform call_alv.

*********************************************************************
*      Form  GET_DATA
*********************************************************************
form get_data.

  ialv-test1 = 'ABC'.
  ialv-test2 = 'DEF'.
  append ialv.

  ialv-test1 = 'GHI'.
  ialv-test2 = 'JKL'.
  append ialv.


  ialv-test1 = '123'.
  ialv-test2 = '456'.
  append ialv.


endform.                    "GET_DATA

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

*  CALL_ALV
************************************************************************

form call_alv.

  perform build_field_catalog.


* Call ABAP List Viewer (ALV)
  call function 'REUSE_ALV_GRID_DISPLAY'
    exporting
      it_fieldcat  = fieldcat
    tables
      t_outtab     = ialv.

endform.                    "CALL_ALV

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

* BUILD_FIELD_CATALOG
************************************************************************

form build_field_catalog.


  clear: fieldcat. refresh: fieldcat.

  data: tmp_fc type slis_fieldcat_alv.

  tmp_fc-reptext_ddic = 'Test1'.
  tmp_fc-fieldname    = 'TEST1'.
  tmp_fc-tabname      = 'IALV'.
  tmp_fc-outputlen    = '10'.
  append tmp_fc to fieldcat.

  tmp_fc-reptext_ddic = 'Test2'.
  tmp_fc-fieldname    = 'TEST2'.
  tmp_fc-tabname      = 'IALV'.
  tmp_fc-outputlen    = '10'.
  append tmp_fc to fieldcat.


endform.                    "BUILD_FIELD_CATALOG

Regards,

Rich Heilman

Former Member · ‎2007 Feb 04

Hi,

Check the program BCALV_GRID_DEMO for Grid using OO..

Check this example for using the FM REUSE_ALV_GRID_DISPLAY..

TYPE-POOLS: slis.

Data declaration.

DATA: BEGIN OF itab OCCURS 0,

vbeln TYPE vbeln,

erdat TYPE erdat,

auart TYPE auart,

netwr TYPE vbak-netwr,

END OF itab.

DATA: wa_kna1 TYPE kna1.

DATA: t_fieldcatalog TYPE slis_t_fieldcat_alv.

DATA: s_fieldcatalog TYPE slis_fieldcat_alv.

Selection-screen.

PARAMETERS: p_kunnr TYPE kunnr OBLIGATORY.

AT SELECTION-SCREEN.

SELECT SINGLE * FROM kna1 INTO wa_kna1

WHERE kunnr = p_kunnr.

IF sy-subrc <> 0.

MESSAGE s208(00) WITH 'Invalid customer'.

LEAVE LIST-PROCESSING.

ENDIF.

START-OF-SELECTION.

Building the field catalog.

s_fieldcatalog-col_pos = '1'.

s_fieldcatalog-fieldname = 'VBELN'.

s_fieldcatalog-tabname = 'ITAB'.

s_fieldcatalog-rollname = 'VBELN'.

s_fieldcatalog-outputlen = '12'.

APPEND s_fieldcatalog TO t_fieldcatalog.

CLEAR: s_fieldcatalog.

s_fieldcatalog-col_pos = '2'.

s_fieldcatalog-fieldname = 'ERDAT'.

s_fieldcatalog-tabname = 'ITAB'.

s_fieldcatalog-rollname = 'ERDAT'.

APPEND s_fieldcatalog TO t_fieldcatalog.

CLEAR: s_fieldcatalog.

s_fieldcatalog-col_pos = '3'.

s_fieldcatalog-fieldname = 'AUART'.

s_fieldcatalog-tabname = 'ITAB'.

s_fieldcatalog-rollname = 'AUART'.

APPEND s_fieldcatalog TO t_fieldcatalog.

CLEAR: s_fieldcatalog.

s_fieldcatalog-col_pos = '4'.

s_fieldcatalog-fieldname = 'NETWR'.

s_fieldcatalog-tabname = 'ITAB'.

s_fieldcatalog-rollname = 'NETWR_AK'.

s_fieldcatalog-do_sum = 'X'.

APPEND s_fieldcatalog TO t_fieldcatalog.

CLEAR: s_fieldcatalog.

Get the sales orders.

SELECT vbeln erdat auart netwr

FROM

vbak

INTO TABLE itab

WHERE kunnr = p_kunnr.

IF sy-subrc <> 0.

MESSAGE s208(00) WITH 'No records found'.

LEAVE LIST-PROCESSING.

ENDIF.

DATA: v_repid TYPE syrepid.

v_repid = sy-repid.

Display the alv

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_callback_program = v_repid

it_fieldcat = t_fieldcatalog

TABLES

t_outtab = itab.

Thanks,

Naren

Former Member · ‎2007 Feb 06

Thanks for the information

Former Member · ‎2007 Feb 08

Refer this link

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

Also see the same in

SE38 > Environment > control Examples.

Please reward points and close the thread if ur problem got solved.

Former Member · ‎2007 Feb 05

Hi,

For ALV GRID DISPLAY (using OOPS),

1)Create an object of the container(an instance of a class like cl_gui_custom_container).

2)Create an object of the ALV using class cl_gui_alv_grid and give the CONTAINER name that you define in your screen layout as the parent of the ALV.

3)Call the method SET_TABLE_FOR_FIRST_DISPLAY of the class cl_gui_alv_grid.

4)Field catalog is used when you want a variation of the standard structure to be displayed on your ALV.A variable of table type LVC_T_FCAT is defined and variations can be made as per the requirements.The variable is then passed in the method SET_TABLE_FOR_FIRST_DISPLAY.

A SAMPLE PROGRAM:

REPORT SAMPLE:

*-- GLOBAL DATA DECLARATIONS FOR ALV

DATA gr_alvgrid TYPE REF TO cl_gui_alv_grid.

DATA gc_custom_control_name TYPE scrfname VALUE 'CC_ALV'.

DATA gr_ccontainer TYPE REF TO cl_gui_custom_container.

DATA gt_fieldcat TYPE lvc_t_fcat.

Data:i_spfli type table of spfli.

*The value CC_ALV is given to the custom container in the screen layout

START-OF-SELECTION.

select * from spfli into table i_spfli.

Call screen 100.

----

MODULE STATUS_0100 OUTPUT

----

MODULE STATUS_0100 OUTPUT.

SET PF-STATUS 'SCREEN_100'.

*Create container

CREATE OBJECT gr_ccontainer

EXPORTING container_name = gc_custom_control_name.

*Create ALV

CREATE OBJECT gr_alvgrid

EXPORTING i_parent = gr_ccontainer.

*field catalog

PERFORM prepare_field_catalog CHANGING gt_fieldcat.

*to display the ALV

CALL METHOD gr_alvgrid->set_table_for_first_display

EXPORTING

I_STRUCTURE_NAME = 'SPFLI'

CHANGING

it_outtab = i_spfli[]

it_fieldcatalog = gt_fieldcat.

ENDMODULE. "display_alv OUTPUT

----

MODULE USER_COMMAND_0100 INPUT

----

MODULE user_command_0100 INPUT.

IF sy-ucomm = 'BACK' OR

sy-ucomm = 'EXIT' OR

sy-ucomm = 'CANCEL'.

LEAVE PROGRAM.

ENDIF.

ENDMODULE.

&----

*& Form prepare_field_catalog

&----

FORM prepare_field_catalog CHANGING pt_fieldcat TYPE lvc_t_fcat.

DATA ls_fcat TYPE lvc_s_fcat.

ls_fcat-ref_table = 'SPFLI'.

ls_fcat-fieldname = 'CARRID'.

APPEND ls_fcat TO pt_fieldcat.

CLEAR ls_fcat.

ls_fcat-fieldname = 'CONNID'.

ls_fcat-ref_table = 'SPFLI'.

APPEND ls_fcat TO pt_fieldcat.

CLEAR ls_fcat.

ls_fcat-fieldname = 'DEPTIME'.

ls_fcat-ref_table = 'SPFLI'.

APPEND ls_fcat TO pt_fieldcat.

CLEAR ls_fcat.

ls_fcat-fieldname = 'ARRTIME'.

ls_fcat-ref_table = 'SPFLI'.

APPEND ls_fcat TO pt_fieldcat.

CLEAR ls_fcat.

endform.

For more sample programs refer:http://www.geocities.com/victorav15/sapr3/abap_ood.html#d_grid

http://www.sapdevelopment.co.uk/reporting/alv/alvgrid_color.htm

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

-->download the PDF from following link.

www.abap4.it/download/ALV.pdf

http://help.sap.com/printdocu/core/Print46c/en/data/pdf/BCSRVALV/BCSRVALV.pdf

Some more:

http://www.sap-hefte.de/download/dateien/1025/087_leseprobe.pdf

https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/docs/library/uuid/e8a1d690-0201-0010-b7ad-d97...

http://www.alvgmbh.de/dwnload/gonio_t.pdfhttp://

You can get all demo programs for ALV:Go to se38 and type BCALV* and press F4 for all demo porgrams.

Regards,

Beejal

**Reward if this helps

By Category

Related Content

Activity Groups

Industry Groups

Influence and Feedback Groups

Interest Groups

Location Groups

Customer Only Groups

Forums

Related Resources

Products

Learning and Support

About

My SAP Profile

My SAP Profile

ALV program with Field Catalog