ALV Grid to hold sub headings

[Former Member]

Hi,

Can any one tell me about the possibility to display sub headings for an ALV grid control i.e to have a group of columns under one column similar to the feature in excel?

Regards,

Sujatha

[Former Member]

Hi Sujatha,

in normal ALV GRID DISPLAY... it is not possible to display sud-headings....

still if u need that, then go for Hierarchial ALV..

sample code for Hierarchial ALV is as follows.

REPORT ZBHALV_GRID.

TABLES:LFA1,EKKO.

SELECT-OPTIONS:LIFNR FOR LFA1-LIFNR.

DATA:BEGIN OF ITAB OCCURS 0,

LIFNR LIKE LFA1-LIFNR,

NAME1 LIKE LFA1-NAME1,

LAND1 LIKE LFA1-LAND1,

ORT01 LIKE LFA1-ORT01,

REGIO LIKE LFA1-REGIO,

SORTL LIKE LFA1-SORTL,

END OF ITAB.

*DATA:BEGIN OF JTAB OCCURS 0,

• LIFNR LIKE EKKO-LIFNR,

• EBELN LIKE EKKO-EBELN,

• BUKRS LIKE EKKO-BUKRS,

• BSTYP LIKE EKKO-BSTYP,

• BSART LIKE EKKO-BSART,

*END OF JTAB.

DATA:JTAB LIKE EKKO OCCURS 0 WITH HEADER LINE.

SELECT * FROM LFA1 INTO CORRESPONDING FIELDS OF TABLE ITAB WHERE LIFNR

IN LIFNR.

SELECT * FROM EKKO INTO CORRESPONDING FIELDS OF TABLE JTAB WHERE LIFNR

IN LIFNR.

TYPE-POOLS:SLIS.

DATA:FCAT TYPE SLIS_T_FIELDCAT_ALV.

DATA:KINFO TYPE SLIS_KEYINFO_ALV.

DATA:LAYOUT TYPE SLIS_LAYOUT_ALV.

DATA:EVE TYPE SLIS_T_EVENT WITH HEADER LINE.

DATA:HEAD TYPE SLIS_T_LISTHEADER WITH HEADER LINE.

LAYOUT-ZEBRA = 'X'.

LAYOUT-COLWIDTH_OPTIMIZE = 'X'.

LAYOUT-WINDOW_TITLEBAR = 'VENDORS AND PURCHASE DOCCUMENTS

DETAILS'.

LAYOUT-numc_sum = 'X'.

KINFO-HEADER01 = 'LIFNR'.

KINFO-ITEM01 = 'LIFNR'.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

I_LIST_TYPE = 0

IMPORTING

ET_EVENTS = EVE[]

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 EVE WITH KEY NAME = 'TOP_OF_PAGE'.

EVE-FORM = 'TOPOFPAGE'.

MODIFY EVE TRANSPORTING FORM WHERE NAME = 'TOP_OF_PAGE'.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

I_PROGRAM_NAME = SY-REPID

I_INTERNAL_TABNAME = 'ITAB'

• I_STRUCTURE_NAME =

• I_CLIENT_NEVER_DISPLAY = 'X'

I_INCLNAME = SY-REPID

• I_BYPASSING_BUFFER =

• I_BUFFER_ACTIVE =

CHANGING

CT_FIELDCAT = FCAT

• EXCEPTIONS

• INCONSISTENT_INTERFACE = 1

• PROGRAM_ERROR = 2

• OTHERS = 3

.

IF SY-SUBRC <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'

EXPORTING

• I_INTERFACE_CHECK = ' '

I_CALLBACK_PROGRAM = SY-REPID

• I_CALLBACK_PF_STATUS_SET = ' '

• I_CALLBACK_USER_COMMAND = ' '

IS_LAYOUT = LAYOUT

IT_FIELDCAT = FCAT

• IT_EXCLUDING =

• IT_SPECIAL_GROUPS =

• IT_SORT =

• IT_FILTER =

• IS_SEL_HIDE =

• I_SCREEN_START_COLUMN = 5

• I_SCREEN_START_LINE = 5

• I_SCREEN_END_COLUMN = 120

• I_SCREEN_END_LINE = 25

• I_DEFAULT = 'X'

• I_SAVE = ' '

• IS_VARIANT =

IT_EVENTS = EVE[]

• IT_EVENT_EXIT =

I_TABNAME_HEADER = 'ITAB'

I_TABNAME_ITEM = 'JTAB'

I_STRUCTURE_NAME_HEADER = 'LFA1'

I_STRUCTURE_NAME_ITEM = 'EKKO'

IS_KEYINFO = KINFO

• IS_PRINT =

• IS_REPREP_ID =

• I_BYPASSING_BUFFER =

• I_BUFFER_ACTIVE =

• IMPORTING

• E_EXIT_CAUSED_BY_CALLER =

• ES_EXIT_CAUSED_BY_USER =

TABLES

T_OUTTAB_HEADER = ITAB[]

T_OUTTAB_ITEM = JTAB[]

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

FORM TOPOFPAGE.

REFRESH HEAD.

HEAD-TYP = 'H'.

HEAD-INFO = 'VENDORS & PURCHASE DOCC. DETAILS'.

APPEND HEAD.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = HEAD[]

• I_LOGO = ' '

• I_END_OF_LIST_GRID =

.

ENDFORM.

kindly reward if found helpful.

cheers,

Hema.

[Former Member]

Hi Sujatha, also check this code.

REPORT ZALV5_OBJECTS.

TABLES : EKKO.

TYPE-POOLS : SLIS.

TYPES : BEGIN OF TY_EKKO,

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

DATA: IT_EKKO TYPE STANDARD TABLE OF TY_EKKO INITIAL SIZE 0,

IT_EKPO TYPE STANDARD TABLE OF TY_EKKO INITIAL SIZE 0,

IT_EMPTYTAB TYPE STANDARD TABLE OF TY_EKKO INITIAL SIZE 0,

WA_EKKO TYPE TY_EKKO,

WA_EKPO TYPE TY_EKKO.

DATA: OK_CODE LIKE SY-UCOMM, "OK-Code

SAVE_OK LIKE SY-UCOMM.

*ALV data declarations

DATA: FIELDCATALOG TYPE LVC_T_FCAT WITH HEADER LINE.

DATA: GD_FIELDCAT TYPE LVC_T_FCAT,

GD_TAB_GROUP TYPE SLIS_T_SP_GROUP_ALV,

GD_LAYOUT TYPE SLIS_LAYOUT_ALV.

*ALVtree data declarations

CLASS CL_GUI_COLUMN_TREE DEFINITION LOAD.

CLASS CL_GUI_CFW DEFINITION LOAD.

DATA: GD_TREE TYPE REF TO CL_GUI_ALV_TREE,

GD_HIERARCHY_HEADER TYPE TREEV_HHDR,

GD_REPORT_TITLE TYPE SLIS_T_LISTHEADER,

GD_LOGO TYPE SDYDO_VALUE,

GD_VARIANT TYPE DISVARIANT.

*Create container for alv-tree

DATA: GD_TREE_CONTAINER_NAME(30) TYPE C,

GD_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER.

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

*Includes

*INCLUDE ZDEMO_ALVTREEO01. "Screen PBO Modules

*INCLUDE ZDEMO_ALVTREEI01. "Screen PAI Modules

*INCLUDE ZDEMO_ALVTREEF01. "ABAP Subroutines(FORMS)

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

*Start-of-selection.

START-OF-SELECTION.

• ALVtree setup data

PERFORM DATA_RETRIEVAL.

PERFORM BUILD_FIELDCATALOG.

PERFORM BUILD_LAYOUT.

PERFORM BUILD_HIERARCHY_HEADER CHANGING GD_HIERARCHY_HEADER.

PERFORM BUILD_REPORT_TITLE USING GD_REPORT_TITLE GD_LOGO.

PERFORM BUILD_VARIANT.

• Display ALVtree report

• CALL SCREEN 100.

&----

---

*& Form data_retrieval

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM DATA_RETRIEVAL .

SELECT EBELN

UP TO 10 ROWS

FROM EKKO

INTO CORRESPONDING FIELDS OF TABLE IT_EKKO.

LOOP AT IT_EKKO INTO WA_EKKO.

SELECT EBELN EBELP STATU AEDAT MATNR MENGE MEINS NETPR PEINH

FROM EKPO

APPENDING TABLE IT_EKPO

WHERE EBELN EQ WA_EKKO-EBELN.

ENDLOOP.

ENDFORM. " data_retrieval

&----

---

*& Form build_fieldcatalog

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM BUILD_FIELDCATALOG .

• Please not there are a number of differences between the structure of

• ALVtree fieldcatalogs and ALVgrid fieldcatalogs.

• For example the field seltext_m is replace by scrtext_m in ALVtree.

FIELDCATALOG-FIELDNAME = 'EBELN'. "Field name in itab

FIELDCATALOG-SCRTEXT_M = 'Purchase Order'. "Column text

FIELDCATALOG-COL_POS = 0. "Column position

FIELDCATALOG-OUTPUTLEN = 15. "Column width

FIELDCATALOG-EMPHASIZE = 'X'. "Emphasize (X or SPACE)

FIELDCATALOG-KEY = 'X'. "Key Field? (X or SPACE)

• fieldcatalog-do_sum = 'X'. "Sum Column?

• fieldcatalog-no_zero = 'X'. "Don't display if zero

APPEND FIELDCATALOG TO GD_FIELDCAT.

CLEAR FIELDCATALOG.

FIELDCATALOG-FIELDNAME = 'EBELP'.

FIELDCATALOG-SCRTEXT_M = 'PO Iten'.

FIELDCATALOG-OUTPUTLEN = 15.

FIELDCATALOG-COL_POS = 1.

APPEND FIELDCATALOG TO GD_FIELDCAT..

CLEAR FIELDCATALOG.

FIELDCATALOG-FIELDNAME = 'STATU'.

FIELDCATALOG-SCRTEXT_M = 'Status'.

FIELDCATALOG-OUTPUTLEN = 15.

FIELDCATALOG-COL_POS = 2.

APPEND FIELDCATALOG TO GD_FIELDCAT..

CLEAR FIELDCATALOG.

FIELDCATALOG-FIELDNAME = 'AEDAT'.

FIELDCATALOG-SCRTEXT_M = 'Item change date'.

FIELDCATALOG-OUTPUTLEN = 15.

FIELDCATALOG-COL_POS = 3.

APPEND FIELDCATALOG TO GD_FIELDCAT..

CLEAR FIELDCATALOG.

FIELDCATALOG-FIELDNAME = 'MATNR'.

FIELDCATALOG-SCRTEXT_M = 'Material Number'.

FIELDCATALOG-OUTPUTLEN = 15.

FIELDCATALOG-COL_POS = 4.

APPEND FIELDCATALOG TO GD_FIELDCAT..

CLEAR FIELDCATALOG.

FIELDCATALOG-FIELDNAME = 'MENGE'.

FIELDCATALOG-SCRTEXT_M = 'PO quantity'.

FIELDCATALOG-OUTPUTLEN = 15.

FIELDCATALOG-COL_POS = 5.

APPEND FIELDCATALOG TO GD_FIELDCAT..

CLEAR FIELDCATALOG.

FIELDCATALOG-FIELDNAME = 'MEINS'.

FIELDCATALOG-SCRTEXT_M = 'Order Unit'.

FIELDCATALOG-OUTPUTLEN = 15.

FIELDCATALOG-COL_POS = 6.

APPEND FIELDCATALOG TO GD_FIELDCAT..

CLEAR FIELDCATALOG.

FIELDCATALOG-FIELDNAME = 'NETPR'.

FIELDCATALOG-SCRTEXT_M = 'Net Price'.

FIELDCATALOG-OUTPUTLEN = 15.

FIELDCATALOG-COL_POS = 7.

FIELDCATALOG-DATATYPE = 'CURR'.

APPEND FIELDCATALOG TO GD_FIELDCAT..

CLEAR FIELDCATALOG.

FIELDCATALOG-FIELDNAME = 'PEINH'.

FIELDCATALOG-SCRTEXT_M = 'Price Unit'.

FIELDCATALOG-OUTPUTLEN = 15.

FIELDCATALOG-COL_POS = 8.

APPEND FIELDCATALOG TO GD_FIELDCAT..

CLEAR FIELDCATALOG.

ENDFORM. " build_fieldcatalog

&----

---

*& Form build_layout

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM BUILD_LAYOUT .

GD_LAYOUT-NO_INPUT = 'X'.

GD_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.

GD_LAYOUT-TOTALS_TEXT = 'Totals'(201).

• gd_layout-totals_only = 'X'.

• gd_layout-f2code = 'DISP'. "Sets fcode for when double

• "click(press f2)

• gd_layout-zebra = 'X'.

• gd_layout-group_change_edit = 'X'.

• gd_layout-header_text = 'helllllo'

ENDFORM. " build_layout

&----

---

*& Form build_hierarchy_header

&----

---

• text

----

---

• <--P_GD_HIERARCHY_HEADER text

----

---

FORM BUILD_HIERARCHY_HEADER CHANGING

P_HIERARCHY_HEADER TYPE TREEV_HHDR.

P_HIERARCHY_HEADER-HEADING = 'Hierarchy Header'(013).

P_HIERARCHY_HEADER-TOOLTIP = 'This is the Hierarchy Header !'(014).

P_HIERARCHY_HEADER-WIDTH = 30.

P_HIERARCHY_HEADER-WIDTH_PIX = ''.

ENDFORM. " build_hierarchy_header

&----

---

*& Form build_report_title

&----

---

• text

----

---

• -->P_GD_REPORT_TITLE text

• -->P_GD_LOGO text

----

---

FORM BUILD_REPORT_TITLE USING PT_REPORT_TITLE TYPE SLIS_T_LISTHEADER

P_GD_LOGO TYPE SDYDO_VALUE.

DATA: LS_LINE TYPE SLIS_LISTHEADER,

LD_DATE(10) TYPE C.

• List Heading Line(TYPE H)

CLEAR LS_LINE.

LS_LINE-TYP = 'H'.

• ls_line-key "Not Used For This Type(H)

LS_LINE-INFO = 'PO ALVTree Display'.

APPEND LS_LINE TO PT_REPORT_TITLE.

• Status Line(TYPE S)

LD_DATE(2) = SY-DATUM+6(2).

LD_DATE+2(1) = '/'.

LD_DATE3(2) = SY-DATUM4(2).

LD_DATE+5(1) = '/'.

LD_DATE+6(4) = SY-DATUM(4).

LS_LINE-TYP = 'S'.

LS_LINE-KEY = 'Date'.

LS_LINE-INFO = LD_DATE.

APPEND LS_LINE TO PT_REPORT_TITLE.

• Action Line(TYPE A)

CLEAR LS_LINE.

LS_LINE-TYP = 'A'.

CONCATENATE 'Report: ' SY-REPID INTO LS_LINE-INFO SEPARATED BY SPACE.

APPEND LS_LINE TO PT_REPORT_TITLE.

ENDFORM. " build_report_title

&----

---

*& Form build_variant

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM BUILD_VARIANT .

• Set repid for storing variants

GD_VARIANT-REPORT = SY-REPID.

ENDFORM. " build_variant

cheers,

Hema.

[Former Member]

Hi Hema,

Thanks for the sample code.

But i could not find any output!! Probably i should have a screen 100, rite?

Are the following lines in your program needs to be commented ?

Display ALVtree report

CALL SCREEN 100.

In case if i have to create screen 100 with custom container, where should i use the include programs?

Please let me know the details.

Thanks & Regards,

Sujatha