topic Re: i need model program for alv grid control in Application Development and Automation Discussions

i need model program for alv grid control

Former Member — Mon, 21 Aug 2006 06:50:48 GMT

hi all,

i need example program and detailed description of alv grid control . what is the features of alv grid control over normal alv.

Re: i need model program for alv grid control

ibrahim_u — Mon, 21 Aug 2006 06:51:51 GMT

in development class SLIS you can find various ALV control examples

ibrahim

Re: i need model program for alv grid control

Former Member — Mon, 21 Aug 2006 06:52:20 GMT

1)se38 enter bcalv + F4

2)see transaction DWDM

Re: i need model program for alv grid control

Former Member — Mon, 21 Aug 2006 06:54:02 GMT

Hi Narendra,

Check this easy reference guide, Very useful document to have a good understanding.

https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.km.cm.docs/library/abap/an%20easy%20reference%20for%20alv%20grid%20control.pdf

Cheers

Re: i need model program for alv grid control

Former Member — Mon, 21 Aug 2006 07:00:11 GMT

Hi,

Check out the below sample code.I have pasted even the include programs, u can copy the program.

*----

SAP-User : BWR2KOR *
Author (name) : Bharadwaja R *
Created on/in : 07.02.2006 *

*----

Description : Report for Listing IDOC-Informations for the given *
segment on the selection screen *

*----

Changes: - for each change: add chapter *
- changes get a changes number (ascending) *
- source code has to be marked with SAP-user-name *
change date and number *

*----

Change number : *
Enhance/Change numer: 90xxxx (900001-909999) -> /RB11/YBF_MODIF *
SAP-User : *
Author (name) : *
Created on/in : *
Reason for the change: *
*
*

*----

REPORT Y16S_VIEW_IDOC_CONTENT LINE-SIZE 230

NO STANDARD PAGE HEADING.

Data declarations

INCLUDE Y16S_VIEW_IDOC_CONTENT_D01I.

Selection screen

INCLUDE Y16S_VIEW_IDOC_CONTENT_S01I.

Events

INCLUDE Y16S_VIEW_IDOC_CONTENT_E01I.

Routines for program

INCLUDE Y16S_VIEW_IDOC_CONTENT_F01I.

START-OF-SELECTION.

Get the fieldcatalog

PERFORM get_fcat.

**Method for getting the reference for the structure

CALL METHOD cl_alv_table_create=>create_dynamic_table

EXPORTING it_fieldcatalog = g_t_fieldcat

IMPORTING ep_table = dref.

**Passing the reference of the structure to field-symbol of type table

ASSIGN dref->* TO .

Fill IDoc data

PERFORM fill_data.

Display ALV

perform display_grid.

*----

INCLUDE Y16S_VIEW_IDOC_CONTENT_D01I *

*----

Data declaration : Tables used *

*----

TABLES : edidd, "Data record (IDoc)

edidc, "Control record (IDoc)

edid4, "IDoc Data Records from 4.0 onwards

dd03d, "Dynpro fields for table fields

edsappl, "EDI: IDoc Segment Application Structure

int_seg, "Data record details display

dd03l, "Table Fields

edisegment. "IDoc Development : IDoc Segment

Name of segment

DATA : g_f_segment LIKE dntab-tabname.

*--Data Declaration.

FIELD-SYMBOLS : TYPE ANY.

DATA : BEGIN OF g_t_edid OCCURS 0,

docnum LIKE edid4-docnum,

segnum LIKE edid4-segnum,

sdata LIKE edid4-sdata,

END OF g_t_edid.

*DATA : g_t_edid LIKE edid4 OCCURS 0 WITH HEADER LINE.

DATA : BEGIN OF g_t_edidc OCCURS 0,

docnum LIKE edidc-docnum,

credat LIKE edidc-credat,

mestyp LIKE edidc-mestyp,

END OF g_t_edidc.

DATA : BEGIN OF g_t_appl OCCURS 0,

fieldname LIKE edsappl-fieldname,

END OF g_t_appl.

DATA : g_v_tabix LIKE sy-tabix.

*----

ALV Declarations

*----

*Declaration of type groups

TYPE-POOLS :

slis. "Globale Typen für generische Listbausteine

DATA: g_f_okcode LIKE sy-ucomm,

g_container TYPE scrfname VALUE 'G_C_ALV',

grid1 TYPE REF TO cl_gui_alv_grid,

g_custom_container TYPE REF TO cl_gui_custom_container.

FIELD-SYMBOLS: .

Class

CLASS: g_cl_event DEFINITION DEFERRED.

Alv Grid Constants

DATA : g_c_handle(4) TYPE c VALUE '0100',

g_c_save(1) TYPE c VALUE 'A',

g_c_exit(4) TYPE c VALUE 'EXIT'.

DATA: g_v_layout TYPE lvc_s_layo,

g_f_print TYPE lvc_s_prnt,

g_f_variant TYPE disvariant,

g_v_recv TYPE REF TO g_cl_event.

CONSTANTS : gc_ucomm_sel_criteria(12) VALUE 'SEL_CRITERIA'.

*----

CLASS G_Cl_EVENT DEFINITION

*----

Class to handle GRID Events *

*----

CLASS g_cl_event DEFINITION.

PUBLIC SECTION.

METHODS:

constructor IMPORTING value(grid_name) TYPE REF TO

cl_gui_alv_grid,

handle_toolbar

FOR EVENT toolbar OF cl_gui_alv_grid

IMPORTING e_object e_interactive,

handle_user_command

FOR EVENT user_command OF cl_gui_alv_grid

IMPORTING e_ucomm.

PRIVATE SECTION.

DATA: g_v_alv TYPE REF TO cl_gui_alv_grid.

ENDCLASS. "g_cl_event DEFINITION

**----

CLASS g_cl_events IMPLEMENTATION

**----

Class to handle GRID Events *

**----

CLASS g_cl_event IMPLEMENTATION.

Handling methods

METHOD constructor.

g_v_alv = grid_name.

ENDMETHOD. "constructor

Tool bar

METHOD handle_toolbar.

CONSTANTS:

lc_quickinfo_sel_criteria(111) VALUE 'Show Selection Criteria'.

DATA:

l_toolbar TYPE stb_button.

CLEAR l_toolbar.

MOVE 0 TO l_toolbar-butn_type.

MOVE gc_ucomm_sel_criteria TO l_toolbar-function.

MOVE icon_select_with_condition TO l_toolbar-icon.

MOVE lc_quickinfo_sel_criteria TO l_toolbar-quickinfo.

MOVE space TO l_toolbar-disabled.

APPEND l_toolbar TO e_object->mt_toolbar.

ENDMETHOD. "handle_toolbar

User Command

METHOD handle_user_command.

CASE e_ucomm.

When Exit button is used

WHEN 'EXIT'.

PERFORM exit_program.

WHEN OTHERS.

ENDCASE.

ENDMETHOD. "handle_user_command

ENDCLASS. "g_cl_event IMPLEMENTATION

*----

INCLUDE Y16S_VIEW_IDOC_CONTENT_S01I *

*----

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.

Creation Date of IDoc

SELECT-OPTIONS : s_date FOR edidc-credat.

IDoc Number

SELECT-OPTIONS : s_idocnm FOR edidc-docnum.

Basic IDoc type

SELECT-OPTIONS : s_idoctp FOR edidc-idoctp.

*Message type

SELECT-OPTIONS : s_mestyp FOR edidc-mestyp.

Segment name

PARAMETERS : p_segnam LIKE edisegment-segtyp OBLIGATORY.

Field name

SELECT-OPTIONS : s_fldnam FOR dd03d-fieldname NO INTERVALS.

SELECTION-SCREEN END OF BLOCK b1.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME.

Field name

PARAMETERS : p_fldnam LIKE dd03d-fieldname.

Field contents of a field of an IDoc segment

SELECT-OPTIONS : s_fldval FOR int_seg-string.

SELECTION-SCREEN END OF BLOCK b2.

*----

INCLUDE Y16S_VIEW_IDOC_CONTENT_E01I *

*----

Check for IDoc number on selection screen

AT SELECTION-SCREEN ON s_idocnm.

IF NOT s_idocnm IS INITIAL.

Data fetch : Control record (IDoc)

SELECT COUNT( * ) FROM edidc

WHERE docnum IN s_idocnm.

IF sy-subrc NE 0.

MESSAGE e429(mo).

ENDIF.

ELSE.

message for required entry.

MESSAGE e055(00).

ENDIF.

Check for segment name on selection screen

AT SELECTION-SCREEN ON p_segnam.

Check segment name is an input on selection screen

IF NOT p_segnam IS INITIAL.

Data fetch : Table Fields

SELECT SINGLE * FROM dd03l

WHERE tabname EQ p_segnam.

IF sy-subrc NE 0.

MESSAGE e429(mo).

ENDIF.

F4 help for fieldname

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_fldnam-low.

DATA : l_rc LIKE sy-subrc.

Check segment name on selection screen is not empty

IF NOT p_segnam IS INITIAL.

PERFORM get_f4help USING l_rc.

IF l_rc = 0.

Fill the selected field name

READ TABLE g_t_appl INDEX g_v_tabix.

CHECK sy-subrc = 0.

s_fldnam-low = g_t_appl-fieldname.

s_fldnam-sign = 'I'.

s_fldnam-option = 'EQ'.

APPEND s_fldnam.

ENDIF.

Check for field name on selection screen

AT SELECTION-SCREEN ON s_fldnam.

IF NOT p_fldnam IS INITIAL.

Data fetch : Table Fields

SELECT SINGLE * FROM dd03l

WHERE tabname EQ p_segnam

AND fieldname IN s_fldnam.

IF sy-subrc NE 0.

MESSAGE e429(mo).

ENDIF.

F4 help for fieldname

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_fldnam.

DATA : l_rc LIKE sy-subrc.

Check segment name on selection screen is not empty

IF NOT p_segnam IS INITIAL.

F4 Help for fieldname

PERFORM get_f4help USING l_rc.

IF l_rc = 0.

Fill the selected field name

READ TABLE g_t_appl INDEX g_v_tabix.

CHECK sy-subrc = 0.

p_fldnam = g_t_appl-fieldname.

ENDIF.

Check for field name on selection screen

AT SELECTION-SCREEN ON p_fldnam.

IF NOT p_fldnam IS INITIAL.

Data fetch : Table Fields

SELECT SINGLE * FROM dd03l

WHERE tabname EQ p_segnam

AND fieldname EQ p_fldnam.

IF sy-subrc NE 0.

MESSAGE e429(mo).

ENDIF.

Check for field name on selection screen

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_fldval-low.

Check field name is an input on selection screen

IF NOT p_fldnam IS INITIAL.

Get the domain values as F4 help

PERFORM get_domain_value.

ENDIF.

*Check for Message type on selection screen

AT SELECTION-SCREEN ON s_mestyp.

IF NOT s_mestyp IS INITIAL.

Data fetch : Logical message types

SELECT COUNT( * ) FROM edmsg

WHERE msgtyp IN s_mestyp.

IF sy-subrc NE 0.

MESSAGE e429(mo).

ENDIF.

*Check for Basic type on selection screen

AT SELECTION-SCREEN ON s_idoctp.

IF NOT s_idoctp IS INITIAL.

Data fetch : Basic types

SELECT COUNT( * ) FROM edbas

WHERE idoctyp IN s_idoctp.

IF sy-subrc NE 0.

MESSAGE e429(mo).

ENDIF.

*&----

*& Form GET_F4HELP

*&----

text

*----

-->P_L_RC text

*----

FORM get_f4help USING p_l_rc LIKE sy-subrc.

DATA : l_v_segment LIKE edsappl-segtyp.

DATA : l_t_help_value LIKE help_value OCCURS 0 WITH HEADER LINE.

Segment name

l_v_segment = p_segnam.

Data fetch : EDI: IDoc Segment Application Structure

SELECT pos fieldname FROM edsappl

INTO CORRESPONDING FIELDS OF TABLE g_t_appl

WHERE segtyp = l_v_segment

ORDER BY pos.

Popup having data

CALL FUNCTION 'POPUP_WITH_TABLE_DISPLAY'

EXPORTING

endpos_col = 110

endpos_row = 16

startpos_col = 90

startpos_row = 1

titletext = text-001

IMPORTING

choise = g_v_tabix

TABLES

valuetab = g_t_appl

EXCEPTIONS

break_off = 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.

Return code

p_l_rc = sy-subrc.

ENDFORM. " GET_F4HELP

*&----

*& Form GET_DOMAIN_VALUE

*&----

text

*----

-->P_L_RC text

*----

FORM get_domain_value.

DD: Domain header with text

DATA : l_s_dd01v LIKE dd01v.

Value table

DATA : l_v_valuetab LIKE l_s_dd01v-entitytab.

RFC Table Read: Description of Fields to Retrieve

DATA : l_t_db_fld LIKE rfc_db_fld OCCURS 0 WITH HEADER LINE.

RFC Table Read: Select Options / WHERE Clause

DATA : l_t_options LIKE rfc_db_opt OCCURS 0 WITH HEADER LINE.

Table with a 512 byte field

DATA : l_t_valuetab LIKE tab512 OCCURS 0 WITH HEADER LINE.

*Data Dictionary access routines

CALL FUNCTION 'G_DOMAIN_READ'

EXPORTING

domain = p_fldnam

langu = sy-langu

IMPORTING

domain_attr = l_s_dd01v

EXCEPTIONS

not_found = 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.

l_v_valuetab = l_s_dd01v-entitytab.

l_t_db_fld-fieldname = p_fldnam.

APPEND l_t_db_fld.

External access to R/3 tables via RFC

CALL FUNCTION 'RFC_READ_TABLE'

EXPORTING

query_table = l_v_valuetab

DELIMITER = ' '
NO_DATA = ' '
ROWSKIPS = 0
ROWCOUNT = 0

TABLES

options = l_t_options

fields = l_t_db_fld

data = l_t_valuetab

EXCEPTIONS

table_not_available = 1

table_without_data = 2

option_not_valid = 3

field_not_valid = 4

not_authorized = 5

data_buffer_exceeded = 6

OTHERS = 7

IF sy-subrc <> 0.

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

ENDIF.

CLEAR g_v_tabix.

IF NOT l_t_valuetab[] IS INITIAL.

Popup having data

CALL FUNCTION 'POPUP_WITH_TABLE_DISPLAY'

EXPORTING

endpos_col = 110

endpos_row = 16

startpos_col = 90

startpos_row = 1

titletext = text-001

IMPORTING

choise = g_v_tabix

TABLES

valuetab = l_t_valuetab

EXCEPTIONS

break_off = 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 l_t_valuetab INDEX g_v_tabix.

CHECK sy-subrc = 0.

Fill the select-options of Fieldvalue

s_fldval-low = l_t_valuetab-wa.

s_fldval-sign = 'I'.

s_fldval-option = 'EQ'.

APPEND s_fldval.

ENDIF.

ENDFORM. " GET_DOMAIN_VALUE

*----

INCLUDE Y16S_VIEW_IDOC_CONTENT_F01I *

*----

*&----

*& Module STATUS_0100 OUTPUT

*&----

ALV grid output

*----

MODULE status_0100 OUTPUT.

*set the screen elements

SET PF-STATUS 'MAIN100'.

SET TITLEBAR 'TITLE100'.

*instantiation

IF g_custom_container IS INITIAL.

g_v_layout-zebra = 'X'.

g_v_layout-sel_mode = 'A'.

Create custom container

CREATE OBJECT g_custom_container

EXPORTING container_name = g_container.

Create ALV grid

CREATE OBJECT grid1

EXPORTING i_parent = g_custom_container.

CREATE OBJECT g_v_recv EXPORTING grid_name = grid1.

Display ALV grid

CALL METHOD grid1->set_table_for_first_display

EXPORTING

i_save = g_c_save

is_layout = g_v_layout

is_print = g_f_print

is_variant = g_f_variant

CHANGING

it_fieldcatalog = g_t_fieldcat

it_outtab = refresh_table_display.

ENDIF.

User command

SET HANDLER g_v_recv->handle_user_command FOR grid1.

CALL METHOD grid1->set_toolbar_interactive.

ENDMODULE. " STATUS_0100 OUTPUT

*&----

*& Module USER_COMMAND_0100 INPUT

*&----

User actions on grid

*----

MODULE user_command_0100 INPUT.

Dispatch the okcode

CALL METHOD cl_gui_cfw=>dispatch.

CASE g_f_okcode.

WHEN g_c_exit.

PERFORM exit_program.

WHEN OTHERS.

*do nothing

ENDCASE.

CLEAR g_f_okcode.

ENDMODULE. " USER_COMMAND_0100 INPUT

*&----

*& Form EXIT_PROGRAM

*&----

Exit from the Grid

*----

--> p1 text
<-- p2 text

*----

FORM exit_program.

Container for Custom Controls in the Screen Area

CALL METHOD g_custom_container->free.

*Control Framework Basic Class

CALL METHOD cl_gui_cfw=>flush.

Call the selection screen

SET SCREEN 0.

LEAVE SCREEN.

ENDFORM. " EXIT_PROGRAM

*&----

*& Form GET_FCAT

*&----

Field catalog fill

*----

--> p1 text
<-- p2 text

*----

FORM get_fcat.

*Segment details regarding fields

PERFORM get_segment_details.

Populate the Fieldcatalog

PERFORM fill_fieldcat.

IF g_f_variant-variant IS INITIAL.

Get the default variant

g_f_repid = sy-repid.

CLEAR : g_f_variant.

g_f_variant-report = g_f_repid.

g_r_x_variant = g_f_variant.

Get default variant

CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'

EXPORTING

i_save = g_c_save

CHANGING

cs_variant = g_r_x_variant

EXCEPTIONS

not_found = 2.

g_f_variant = g_r_x_variant.

g_f_variant-variant = 'X'.

ENDIF.

ENDFORM. " GET_FCAT

*&----

*& Form FILL_DATA

*&----

Fill the output internal table

*----

--> p1 text
<-- p2 text

*----

FORM fill_data.

FIELD-SYMBOLS TYPE ANY.

DATA : l_rc LIKE sy-subrc.

*Get the IDoc data

PERFORM get_data.

LOOP AT g_t_edid.

*Check for filtering the values

IF ( NOT ( p_fldnam IS INITIAL AND s_fldval[] IS INITIAL ) ).

Field value check

PERFORM check_fieldvalue USING l_rc.

IF l_rc NE 0.

CONTINUE.

ENDIF.

ASSIGN LOCAL COPY OF g_t_edid TO .

ENDLOOP.

ENDFORM. " FILL_DATA

*&----

*& Form DISPLAY_GRID

*&----

Display ALV grid

*----

--> p1 text
<-- p2 text

*----

FORM display_grid.

Call ALV grid

CALL SCREEN 100.

ENDFORM. " DISPLAY_GRID

*&----

*& Form CHECK_FIELDVALUE

*&----

Check the fieldvalue

*----

-->P_L_RC text

*----

FORM check_fieldvalue USING p_l_rc LIKE sy-subrc.

Segment data

ASSIGN g_t_edid-sdata TO CASTING TYPE (p_segnam).

Segment fields

LOOP AT g_t_segment WHERE fieldname = p_fldnam.

ASSIGN COMPONENT g_t_segment-fieldname

OF STRUCTURE IN s_fldval.

p_l_rc = 0.

ELSE.

p_l_rc = 4.

ENDIF.

ENDLOOP.

ENDFORM. " CHECK_FIELDVALUE

*&----

*& Form GET_DATA

*&----

Get the IDoc data

*----

--> p1 text
<-- p2 text

*----

FORM get_data.

*Clear the header line of the internal table

CLEAR : g_t_edid,

g_t_edidc.

Clear the body of the internal table

REFRESH : g_t_edid,

g_t_edidc.

*Data fetch : Control record (IDoc)

SELECT docnum credat mestyp FROM edidc

INTO TABLE g_t_edidc

WHERE docnum IN s_idocnm AND

credat IN s_date AND

mestyp IN s_mestyp AND

idoctp IN s_idoctp.

*Date/Message type if not initial

IF ( ( NOT ( s_date[] IS INITIAL ) )

OR ( NOT ( s_mestyp[] IS INITIAL ) )

OR ( NOT ( s_idoctp[] IS INITIAL ) ) ).

Check the control record of the IDoc

PERFORM check_control_data.

ELSE.

Data fetch : IDoc Data Records from 4.0 onwards

SELECT docnum segnum sdata FROM edid4 INTO TABLE g_t_edid

WHERE docnum IN s_idocnm AND

segnam EQ p_segnam.

ENDIF.

ENDFORM. " GET_DATA

*&----

*& Form CHECK_CONTROL_DATA

*&----

Check the control data of IDoc

*----

--> p1 text
<-- p2 text

*----

FORM check_control_data.

CHECK NOT g_t_edidc[] IS INITIAL.

Data fetch : IDoc Data Records from 4.0 onwards

SELECT docnum segnum sdata FROM edid4 INTO TABLE g_t_edid

WHERE docnum IN s_idocnm AND

segnam EQ p_segnam.

LOOP AT g_t_edid.

READ TABLE g_t_edidc WITH KEY docnum = g_t_edid-docnum.

*Check for the correct MT

IF sy-subrc = 0.

CONTINUE.

ELSE.

*Delete, if unsuccessful

DELETE g_t_edid.

ENDIF.

ENDLOOP.

ENDFORM. " CHECK_CONTROL_DATA

*&----

*& Form GET_SEGMENT_DETAILS

*&----

Segment details regarding fields

*----

--> p1 text
<-- p2 text

*----

FORM get_segment_details.

Segment name

g_f_segment = p_segnam.

CALL FUNCTION 'NAMETAB_GET'

EXPORTING

langu = sy-langu

tabname = g_f_segment

TABLES

nametab = g_t_segment

EXCEPTIONS

internal_error = 1

table_has_no_fields = 2

table_not_activ = 3

no_texts_found = 4

OTHERS = 5.

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. " GET_SEGMENT_DETAILS

*&----

*& Form FILL_FIELDCAT

*&----

Populate the Fieldcatalog

*----

--> p1 text
<-- p2 text

*----

FORM fill_fieldcat.

DATA : lv_pos TYPE i.

IDoc number in the catalog

lv_pos = 1.

g_r_fieldcat-fieldname = 'DOCNUM'.

g_r_fieldcat-ref_table = 'EDID4'.

g_r_fieldcat-ref_field = 'DOCNUM'.

g_r_fieldcat-key = 'X'.

g_r_fieldcat-col_pos = lv_pos.

g_r_fieldcat-outputlen = '10'.

APPEND g_r_fieldcat TO g_t_fieldcat.

Segment number in the catalog

ADD 1 TO lv_pos.

g_r_fieldcat-fieldname = 'SEGNUM'.

g_r_fieldcat-ref_table = 'EDID4'.

g_r_fieldcat-ref_field = 'SEGNUM'.

g_r_fieldcat-key = 'X'.

g_r_fieldcat-col_pos = lv_pos.

g_r_fieldcat-outputlen = '10'.

g_r_fieldcat-colddictxt = 'X'.

g_r_fieldcat-reptext = text-002.

APPEND g_r_fieldcat TO g_t_fieldcat.

**Populating fieldcatalog with segment field

LOOP AT g_t_segment .

ADD 1 TO lv_pos.

CLEAR g_r_fieldcat.

g_r_fieldcat-fieldname = g_t_segment-fieldname .

g_r_fieldcat-ref_table = p_segnam.

g_r_fieldcat-ref_field = g_t_segment-fieldname .

g_r_fieldcat-key = 'X'.

g_r_fieldcat-col_pos = lv_pos.

g_r_fieldcat-outputlen = '10'.

Check for given fields on the selection screen

IF NOT g_t_segment-fieldname IN s_fldnam.

g_r_fieldcat-no_out = 'X'.

ENDIF.

*Column text

IF g_t_segment-fieldtext IS INITIAL.

*Get the DDIC texts for columns

PERFORM get_ddic_texts.

ENDIF.

APPEND g_r_fieldcat TO g_t_fieldcat.

ENDLOOP.

ENDFORM. " FILL_FIELDCAT

*&----

*& Form GET_DDIC_TEXTS

*&----

Get the DDIC texts

*----

--> p1 text
<-- p2 text

*----

FORM get_ddic_texts.

DATA : l_f_descr TYPE string.

Get the texts for the data element

CALL FUNCTION 'TB_DATAELEMENT_GET_TEXTS'

EXPORTING

name = g_t_segment-fieldname

IMPORTING

description = l_f_descr

LENGTH_FIELD =
LENGTH_HEADER =
LENGTH_LONG =
LENGTH_MIDDLE =
LENGTH_SHORT =
TEXT_HEADER =
TEXT_LONG =
TEXT_MIDDLE =
TEXT_SHORT =

EXCEPTIONS

not_found = 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.

*Add DDIC text..

g_r_fieldcat-colddictxt = 'X'.

g_r_fieldcat-reptext = l_f_descr.

ENDFORM. " GET_DDIC_TEXTS

Re: i need model program for alv grid control

Former Member — Mon, 21 Aug 2006 07:24:15 GMT

Hi,

chk the links for examples on ALV Grid and description abt the same

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

http://www.sap-img.com/abap/example-of-a-simple-alv-grid-report.htm

http://www.sap-img.com/abap/alv-grid.htm

http://www.sap-img.com/abap/how-to-refresh-alv-list-grid-once-it-is-displayed.htm

Reward points for helpful solutions.

Regards,

Harini.S

Re: i need model program for alv grid control

Former Member — Mon, 21 Aug 2006 07:52:14 GMT

Hi,

Normal ALV Drop down list is not possible, But ALV GRID Control you can get the Drop downs in columns.

check the sample code.

REPORT  ZTEST1234    MESSAGE-ID ZZ                           .
DATA: G_GRID TYPE REF TO CL_GUI_ALV_GRID.
DATA: L_VALID TYPE C,
      V_FLAG,
      V_DATA_CHANGE,
      V_ROW TYPE LVC_S_ROW,
      V_COLUMN TYPE LVC_S_COL,
      V_ROW_NUM TYPE LVC_S_ROID.

*---------------------------------------------------------------------*
*       CLASS lcl_event_handler DEFINITION
*---------------------------------------------------------------------*
CLASS LCL_EVENT_HANDLER DEFINITION .
  PUBLIC SECTION .
    METHODS:
**Hot spot Handler
    HANDLE_HOTSPOT_CLICK FOR EVENT HOTSPOT_CLICK OF CL_GUI_ALV_GRID
                      IMPORTING E_ROW_ID E_COLUMN_ID ES_ROW_NO,
**Double Click Handler
    HANDLE_DOUBLE_CLICK FOR EVENT DOUBLE_CLICK OF CL_GUI_ALV_GRID
                                     IMPORTING E_ROW E_COLUMN ES_ROW_NO.


ENDCLASS.                    "lcl_event_handler DEFINITION
*---------------------------------------------------------------------*
*       CLASS lcl_event_handler IMPLEMENTATION
*---------------------------------------------------------------------*
CLASS LCL_EVENT_HANDLER IMPLEMENTATION.
*Handle Hotspot Click
  METHOD HANDLE_HOTSPOT_CLICK .
    CLEAR: V_ROW,V_COLUMN,V_ROW_NUM.
    V_ROW  = E_ROW_ID.
    V_COLUMN = E_COLUMN_ID.
    V_ROW_NUM = ES_ROW_NO.
    MESSAGE I000 WITH V_ROW 'clicked'.
  ENDMETHOD.                    "lcl_event_handler

*Handle Double Click
  METHOD  HANDLE_DOUBLE_CLICK.

  ENDMETHOD.                    "handle_double_click
ENDCLASS.                    "LCL_EVENT_HANDLER IMPLEMENTATION

*&---------------------------------------------------------------------*
*&             Global Definitions
*&---------------------------------------------------------------------*
DATA:      G_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,"Container1
            G_HANDLER TYPE REF TO LCL_EVENT_HANDLER. "handler

DATA: OK_CODE LIKE SY-UCOMM,
      SAVE_OK LIKE SY-UCOMM,
      G_CONTAINER1 TYPE SCRFNAME VALUE 'TEST',
      GS_LAYOUT TYPE LVC_S_LAYO.


*- Fieldcatalog for First and second Report
DATA: IT_FIELDCAT  TYPE  LVC_T_FCAT,
      X_FIELDCAT TYPE LVC_S_FCAT,
      LS_VARI  TYPE DISVARIANT.

*---------------------------------------------------------------------
*                START-OF_SELECTION
*---------------------------------------------------------------------
START-OF-SELECTION.
  DATA:BEGIN OF  ITAB OCCURS 0,
       VBELN LIKE LIKP-VBELN,
       POSNR LIKE LIPS-POSNR,
       CELLCOLOR TYPE LVC_T_SCOL, "required for color
       DROP(10),
       END OF ITAB.
  SELECT VBELN
         POSNR
         FROM LIPS
         UP TO 20 ROWS
         INTO CORRESPONDING FIELDS OF TABLE ITAB.

END-OF-SELECTION.
  IF NOT ITAB[] IS INITIAL.
    CALL SCREEN 100.
  ELSE.
    MESSAGE I002 WITH 'NO DATA FOR THE SELECTION'(004).
  ENDIF.
*&---------------------------------------------------------------------*
*&      Form  CREATE_AND_INIT_ALV
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM CREATE_AND_INIT_ALV .
  DATA: LT_EXCLUDE TYPE UI_FUNCTIONS.

  CREATE OBJECT G_CUSTOM_CONTAINER
         EXPORTING CONTAINER_NAME = G_CONTAINER1.
  CREATE OBJECT G_GRID
         EXPORTING I_PARENT = G_CUSTOM_CONTAINER.
* Set a titlebar for the grid control
  CLEAR GS_LAYOUT.
  GS_LAYOUT-GRID_TITLE = TEXT-003.
  GS_LAYOUT-ZEBRA = SPACE.
  GS_LAYOUT-CWIDTH_OPT = 'X'.
  GS_LAYOUT-NO_ROWMARK = 'X'.
  GS_LAYOUT-CTAB_FNAME = 'CELLCOLOR'.
  CALL METHOD G_GRID->REGISTER_EDIT_EVENT
    EXPORTING
      I_EVENT_ID = CL_GUI_ALV_GRID=>MC_EVT_ENTER.

  CREATE OBJECT G_HANDLER.
  SET HANDLER G_HANDLER->HANDLE_DOUBLE_CLICK FOR G_GRID.
  SET HANDLER G_HANDLER->HANDLE_HOTSPOT_CLICK FOR G_GRID.

  DATA: LS_CELLCOLOR TYPE LVC_S_SCOL. "required for color
  DATA: L_INDEX TYPE SY-TABIX.
  "Here i am changing the color of line 1,5,10...
  "so you can change the color of font conditionally
  LOOP AT ITAB.
    L_INDEX = SY-TABIX.
    IF L_INDEX = 1 OR L_INDEX = 5 OR L_INDEX = 10.
      LS_CELLCOLOR-FNAME = 'VBELN'.
      LS_CELLCOLOR-COLOR-COL = '6'.
      LS_CELLCOLOR-COLOR-INT = '0'.
      LS_CELLCOLOR-COLOR-INV = '1'.
      APPEND LS_CELLCOLOR TO ITAB-CELLCOLOR.
      MODIFY ITAB INDEX L_INDEX TRANSPORTING CELLCOLOR.
      LS_CELLCOLOR-FNAME = 'POSNR'.
      LS_CELLCOLOR-COLOR-COL = '6'.
      LS_CELLCOLOR-COLOR-INT = '0'.
      LS_CELLCOLOR-COLOR-INV = '1'.
      APPEND LS_CELLCOLOR TO ITAB-CELLCOLOR.
      MODIFY ITAB INDEX L_INDEX TRANSPORTING CELLCOLOR.
    ENDIF.
  ENDLOOP.

* setting focus for created grid control
  CALL METHOD CL_GUI_CONTROL=>SET_FOCUS
    EXPORTING
      CONTROL = G_GRID.
* Build fieldcat and set editable for date and reason code
* edit enabled. Assign a handle for the dropdown listbox.
  PERFORM BUILD_FIELDCAT.
  PERFORM  SET_DRDN_TABLE.
* Optionally restrict generic functions to 'change only'.
*   (The user shall not be able to add new lines).
  PERFORM EXCLUDE_TB_FUNCTIONS CHANGING LT_EXCLUDE.
**Vaiant to save the layout
  LS_VARI-REPORT      = SY-REPID.
  LS_VARI-HANDLE      = SPACE.
  LS_VARI-LOG_GROUP   = SPACE.
  LS_VARI-USERNAME    = SPACE.
  LS_VARI-VARIANT     = SPACE.
  LS_VARI-TEXT        = SPACE.
  LS_VARI-DEPENDVARS  = SPACE.

**Calling the Method for ALV output
  CALL METHOD G_GRID->SET_TABLE_FOR_FIRST_DISPLAY
    EXPORTING
      IT_TOOLBAR_EXCLUDING = LT_EXCLUDE
      IS_VARIANT           = LS_VARI
      IS_LAYOUT            = GS_LAYOUT
      I_SAVE               = 'A'
    CHANGING
      IT_FIELDCATALOG      = IT_FIELDCAT
      IT_OUTTAB            = ITAB[].

* Set editable cells to ready for input initially
  CALL METHOD G_GRID->SET_READY_FOR_INPUT
    EXPORTING
      I_READY_FOR_INPUT = 1.

ENDFORM.                               "CREATE_AND_INIT_ALV
*&---------------------------------------------------------------------*
*&      Form  EXCLUDE_TB_FUNCTIONS
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->PT_EXCLUDE text
*----------------------------------------------------------------------*
FORM EXCLUDE_TB_FUNCTIONS CHANGING PT_EXCLUDE TYPE UI_FUNCTIONS.
* Only allow to change data not to create new entries (exclude
* generic functions).
  DATA LS_EXCLUDE TYPE UI_FUNC.

  LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_COPY_ROW.
  APPEND LS_EXCLUDE TO PT_EXCLUDE.
  LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_DELETE_ROW.
  APPEND LS_EXCLUDE TO PT_EXCLUDE.
  LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_APPEND_ROW.
  APPEND LS_EXCLUDE TO PT_EXCLUDE.
  LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_INSERT_ROW.
  APPEND LS_EXCLUDE TO PT_EXCLUDE.
  LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_MOVE_ROW.
  APPEND LS_EXCLUDE TO PT_EXCLUDE.
  LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_COPY.
  APPEND LS_EXCLUDE TO PT_EXCLUDE.
  LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_CUT.
  APPEND LS_EXCLUDE TO PT_EXCLUDE.
  LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_PASTE.
  APPEND LS_EXCLUDE TO PT_EXCLUDE.
  LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_PASTE_NEW_ROW.
  APPEND LS_EXCLUDE TO PT_EXCLUDE.
  LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_UNDO.
  APPEND LS_EXCLUDE TO PT_EXCLUDE.
ENDFORM.                               " EXCLUDE_TB_FUNCTIONS
*&---------------------------------------------------------------------*
*&      Form  build_fieldcat
*&---------------------------------------------------------------------*
*       Fieldcatalog
*----------------------------------------------------------------------*
FORM BUILD_FIELDCAT .
  DATA: L_POS TYPE I.
  L_POS = L_POS + 1.


  X_FIELDCAT-SCRTEXT_M = 'Delivery'(024).
  X_FIELDCAT-FIELDNAME = 'VBELN'.
  X_FIELDCAT-TABNAME = 'IT_FINAL'.
  X_FIELDCAT-COL_POS    = L_POS.
  X_FIELDCAT-NO_ZERO    = 'X'.
  X_FIELDCAT-OUTPUTLEN = '10'.
  X_FIELDCAT-HOTSPOT = 'X'.

  APPEND X_FIELDCAT TO IT_FIELDCAT.
  CLEAR X_FIELDCAT.
  L_POS = L_POS + 1.

  X_FIELDCAT-SCRTEXT_M = 'Item'(025).
  X_FIELDCAT-FIELDNAME = 'POSNR'.
  X_FIELDCAT-TABNAME = 'IT_FINAL'.
  X_FIELDCAT-COL_POS    = L_POS.
  X_FIELDCAT-OUTPUTLEN = '5'.
  APPEND X_FIELDCAT TO IT_FIELDCAT.
  CLEAR X_FIELDCAT.
  L_POS = L_POS + 1.


  X_FIELDCAT-SCRTEXT_M = 'Drop'(025).
  X_FIELDCAT-FIELDNAME = 'DROP'.
  X_FIELDCAT-TABNAME = 'IT_FINAL'.
  X_FIELDCAT-COL_POS    = L_POS.
  X_FIELDCAT-OUTPUTLEN = '5'.
  X_FIELDCAT-EDIT = 'X'.
<b>  X_FIELDCAT-DRDN_HNDL = '1'.
  X_FIELDCAT-DRDN_ALIAS = 'X'.</b>
  APPEND X_FIELDCAT TO IT_FIELDCAT.
  CLEAR X_FIELDCAT.

ENDFORM.                    " build_fieldcat
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.
  SET PF-STATUS 'MAIN100'.
  SET TITLEBAR 'MAIN100'.
  IF G_CUSTOM_CONTAINER IS INITIAL.
**Initializing the grid and calling the fm to Display the O/P
    PERFORM CREATE_AND_INIT_ALV.
  ENDIF.
ENDMODULE.                 " STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0100 INPUT.
  CASE SY-UCOMM.
    WHEN 'BACK'.
      LEAVE TO SCREEN 0.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT

*&---------------------------------------------------------------------*
*&      Form  SET_DRDN_TABLE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM SET_DRDN_TABLE.

<b>  DATA:LT_DRAL TYPE LVC_T_DRAL,
        LS_DRAL TYPE LVC_S_DRAL.
  LOOP AT ITAB .
* First listbox (handle '1').
    IF SY-INDEX = 1.
      LS_DRAL-HANDLE = '1'.
      LS_DRAL-VALUE =  ' '.
      LS_DRAL-INT_VALUE =  ' '.
    ELSE.
      LS_DRAL-HANDLE = '1'.
      <b>LS_DRAL-VALUE =  'DISPLAYVALUE'.</b> "Closed
      "internal value , in your case it is C
      <b>LS_DRAL-INT_VALUE =  ITAB-POSNR.</b>
    ENDIF.
    APPEND LS_DRAL TO LT_DRAL.
  ENDLOOP.
**Setting the Drop down table for Reason Code
  CALL METHOD G_GRID->SET_DROP_DOWN_TABLE
    EXPORTING
      IT_DROP_DOWN_ALIAS = LT_DRAL.</b>
ENDFORM.                               " set_drdn_table

Regards

vijay

Re: i need model program for alv grid control

uwe_schieferstein — Mon, 21 Aug 2006 17:08:42 GMT

Hello Narendra

The reuse library (transaction SE83) contains many sample programs for all types of controls. You will find the samples in package SLIS.

Comparing ALV grid control vs. "normal" ALV my answer is quite straightforward:

<b>Forget about waisting any time on the old-fashioned function modules. Focus exclusively on (ALV grid) controls.</b> Why? The future in SAP development is ABAP-OO, and understand controls is a good start in understanding the concepts behind ABAP-OO.

Regards

Uwe