Problem in ALV Report

Former Member — Thu, 25 Jun 2009 09:17:01 GMT

Hi All,

i make one alv report,it works fine.but i want heading .when i execute tcode display Heading on first

screen whith out input varibles.

for example: COPA.

this heading with big front in middle on first screen.

give me suggistions.

Thanks.

Re: Problem in ALV Report

Former Member — Thu, 25 Jun 2009 09:25:54 GMT

Hi,

your question is not very much clear....

but i guess u want to print heading in alv report... for doing so here is the code just go through this...

TYPE-POOLS:slis.

TABLES:MARA.

*Type Declaration

TYPES:BEGIN OF t_mara,

matnr TYPE mara-matnr,

ersda TYPE mara-ersda,

ernam TYPE mara-ernam,

END OF t_mara.

*Internal Table

data:it_mara type standard table of t_mara.

*Work Area

data:wa_mara type t_mara.

DATA:i_repid TYPE sy-repid .

i_repid = sy-repid.

*Declaration for field catalog

DATA : fcat TYPE slis_t_fieldcat_alv,

wa_fcat TYPE slis_fieldcat_alv.

*Declaration for Layout

data : WA_LAYOUT type SLIS_LAYOUT_ALV.

*Initializing ColumnWidth_Optimize For Layout

WA_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.

*----

START-OF-SELECTION

*----

START-OF-SELECTION.

*Fetching data into internal tables

PERFORM get_data.

*Buil Fieldcatalog

PERFORM build_fcat.

*Display ALV Report

PERFORM alv_display.

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

*Build Fieldcat

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

FORM build_fcat .

wa_fcat-tabname = 'IT_MARA'.

wa_fcat-fieldname = 'MATNR'.

wa_fcat-inttype = 'C'.

wa_fcat-seltext_m = 'Material Number'.

wa_fcat-outputlen = 25.

wa_fcat-col_pos = 1.

APPEND wa_fcat TO fcat.

CLEAR wa_fcat.

wa_fcat-tabname = 'IT_MARA'.

wa_fcat-fieldname = 'ERSDA'.

wa_fcat-inttype = 'C'.

wa_fcat-seltext_m = 'Date'.

wa_fcat-outputlen = 25.

wa_fcat-col_pos = 1.

APPEND wa_fcat TO fcat.

CLEAR wa_fcat.

wa_fcat-tabname = 'IT_MARA'.

wa_fcat-fieldname = 'ERNAM'.

wa_fcat-inttype = 'C'.

wa_fcat-seltext_m = 'User'.

wa_fcat-outputlen = 25.

wa_fcat-col_pos = 1.

APPEND wa_fcat TO fcat.

CLEAR wa_fcat.

endform.

&----

*& Form GET_DATA

&----

text

----

--> p1 text
<-- p2 text

----

form GET_DATA .

select matnr ersda ernam from mara into table it_mara.

endform. " GET_DATA

&----

*& Form ALV_DISPLAY

&----

text

----

--> p1 text
<-- p2 text

----

form ALV_DISPLAY .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '

I_CALLBACK_PROGRAM = i_repid

I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '

I_CALLBACK_TOP_OF_PAGE = 'TOP'

I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
I_GRID_TITLE =
I_GRID_SETTINGS =
IS_LAYOUT =

IT_FIELDCAT = fcat

IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
I_HTML_HEIGHT_TOP = 0
I_HTML_HEIGHT_END = 0
IT_ALV_GRAPHICS =
IT_HYPERLINK =
IT_ADD_FIELDCAT =
IT_EXCEPT_QINFO =
IR_SALV_FULLSCREEN_ADAPTER =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =

TABLES

t_outtab = it_mara

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

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

Form for top of page " I_CALLBACK_TOP_OF_PAGE "

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

FORM TOP.

DATA: listheader TYPE slis_t_listheader.

DATA: wa_listheader TYPE slis_listheader.

CLEAR wa_listheader.

wa_listheader-typ = 'S'.

wa_listheader-KEY = 'Requester'.

wa_listheader-info = '----

APPEND wa_listheader TO listheader.

clear wa_listheader.

wa_listheader-typ = 'S'.

wa_listheader-KEY = 'Program'.

wa_listheader-info = '----

APPEND wa_listheader TO listheader.

clear wa_listheader.

wa_listheader-typ = 'H'.

wa_listheader-KEY = ''.

wa_listheader-info = 'Material Details'.

APPEND wa_listheader TO listheader.

clear wa_listheader.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

it_list_commentary = listheader.

ENDFORM.

Thanks & Regards

Ashu SIngh

Re: Problem in ALV Report

Former Member — Thu, 25 Jun 2009 09:28:34 GMT

IF YOU WANT TO MAINTAIN HEADING ON ALV REPORT FALLOW THE BELOW CODE

data: header type slis_t_listheader,

wa type slis_listheader.

wa-typ = 'H'. "H --> the text will be displayed with big font

wa-info = <text-h04>.

append wa to header.

call function 'REUSE_ALV_COMMENTARY_WRITE'

exporting

it_list_commentary = header

i_logo = 'PENNAR'.

OR IF YOU WANT TO MAINTAIN REPORT HEADING ON SELECTION-SCREEN

in report goto --> attributes --> title

this title will be displayed on selection screen

regards,

sateesh.

Re: Problem in ALV Report

Former Member — Tue, 04 Aug 2009 13:25:27 GMT

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

Problem in ALV Report

Re: Problem in ALV Report

Re: Problem in ALV Report

Re: Problem in ALV Report