Skip to Content
0
Former Member
Feb 25, 2009 at 05:18 AM

Problem with Footer in ALV Report

26 Views

Hi Experts,

What is coding for Footer In my ALV Report how can I resolve it.

for example will come in footer like this....

  • 'This Report is created by '

  • Date is ',

  • 'Time is '

  • Page No ' *

Please find below the piece of codes

REPORT ZALV2 .

TABLES : MAKT. " Material Description

TYPE-POOLS : SLIS.

TYPES : BEGIN OF TY_MAKT,

MATNR TYPE MATNR, " Material No

SPRAS TYPE SPRAS, " Language Key

MAKTX TYPE MAKTX, " Material Description

MAKTG TYPE MAKTG, " Material des in upper case

END OF TY_MAKT.

DATA : T_MAKT TYPE STANDARD TABLE OF TY_MAKT INITIAL SIZE 0,

T_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,

T_LISTHEADER TYPE SLIS_T_LISTHEADER.

DATA : W_MAKT TYPE TY_MAKT,

W_FIELDCAT TYPE SLIS_FIELDCAT_ALV,

W_LISTHEADER TYPE SLIS_LISTHEADER,

W_LAYOUT TYPE SLIS_LAYOUT_ALV.

CONSTANTS : C_MATNR TYPE SLIS_FIELDNAME VALUE 'MATNR',

C_SPRAS TYPE SLIS_FIELDNAME VALUE 'SPRAS',

C_MAKTX TYPE SLIS_FIELDNAME VALUE 'MAKTX',

C_MAKTG TYPE SLIS_FIELDNAME VALUE 'MAKTG'.

SELECTION-SCREEN BEGIN OF BLOCK BLK WITH FRAME TITLE TEXT-000.

SELECT-OPTIONS : S_MATNR FOR MAKT-MATNR.

SELECTION-SCREEN END OF BLOCK BLK.

INITIALIZATION.

PERFORM SUB_CLEAR_OBJ.

AT SELECTION-SCREEN. " it is used for validation

PERFORM SUB_VALIDATE_DATA.

START-OF-SELECTION.

PERFORM SUB_FETCH_DATA.

PERFORM SUB_FIELDCAT USING :

C_MATNR TEXT-001 'X',

C_SPRAS TEXT-002 ' ',

C_MAKTX TEXT-003 ' ',

C_MAKTG TEXT-004 ' '.

PERFORM SUB_LAYOUT.

PERFORM SUB_DISPLAY.

END-OF-SELECTION.

TOP-OF-PAGE.

PERFORM SUB_TOP_OF_PAGE.

PERFORM SUB_WRITE_HEADER.

END-OF-PAGE.

  • PERFORM SUB_SET_PF_STATUS.

&----


*& Form SUB_CLEAR_OBJ

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM SUB_CLEAR_OBJ .

REFRESH : T_MAKT,

T_FIELDCAT,

T_LISTHEADER.

CLEAR : W_MAKT,

W_FIELDCAT,

W_LISTHEADER.

ENDFORM. " SUB_CLEAR_OBJ

&----


*& Form SUB_VALIDATE_DATA

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM SUB_VALIDATE_DATA .

DATA : L_MATNR TYPE MATNR.

SELECT MATNR UP TO 1 ROWS FROM MAKT INTO L_MATNR. " IN S_MATNR.

ENDSELECT.

IF SY-SUBRC <> 0.

MESSAGE E000(15) WITH 'IT IS AN INVALID NUMBER'.

ENDIF.

ENDFORM. " SUB_VALIDATE_DATA

&----


*& Form SUB_FETCH_DATA

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM SUB_FETCH_DATA .

SELECT MATNR SPRAS MAKTX MAKTG FROM MAKT INTO TABLE T_MAKT WHERE MATNR

IN S_MATNR.

ENDFORM. " SUB_FETCH_DATA

&----


*& Form SUB_FIELDCAT

&----


  • text

----


  • -->P_C_MATNR text

  • -->P_TEXT_001 text

  • -->P_0122 text

  • -->P_0123 text

----


FORM SUB_FIELDCAT USING :

FLD TYPE SLIS_FIELDNAME

TXT TYPE SCRTEXT_L

  • COL TYPE SLIS_FIELDCAT_ALV-OPTIMIZE

HPOT TYPE C.

W_FIELDCAT-TABNAME = 'ZSHEREE2'.

W_FIELDCAT-FIELDNAME = FLD.

W_FIELDCAT-SELTEXT_M = TXT.

*W_FIELDCAT-EMPHASIZE = COL.

W_FIELDCAT-HOTSPOT = HPOT.

APPEND W_FIELDCAT TO T_FIELDCAT.

ENDFORM. " SUB_FIELDCAT

&----


*& Form SUB_LAYOUT

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM SUB_LAYOUT .

W_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.

W_LAYOUT-ZEBRA = 'X'.

W_LAYOUT-F2CODE = '&ETA'.

ENDFORM. " SUB_LAYOUT

&----


*& Form SUB_DISPLAY

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM SUB_DISPLAY .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

  • I_INTERFACE_CHECK = ' '

  • I_BYPASSING_BUFFER = ' '

  • I_BUFFER_ACTIVE = ' '

I_CALLBACK_PROGRAM = 'ZSHEREE2 '

I_CALLBACK_PF_STATUS_SET = 'PF_STATUS_SET '

  • I_CALLBACK_USER_COMMAND = ' '

I_CALLBACK_TOP_OF_PAGE = 'SUB_TOP_OF_PAGE '

  • I_CALLBACK_HTML_TOP_OF_PAGE = ' '

  • I_CALLBACK_HTML_END_OF_LIST = ' '

  • I_STRUCTURE_NAME =

  • I_BACKGROUND_ID = 'ALV_BACKGROUND '

I_GRID_TITLE = 'Header Item / Data'

  • I_GRID_SETTINGS = 5

IS_LAYOUT = W_LAYOUT

IT_FIELDCAT = T_FIELDCAT

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

  • I_SCREEN_START_LINE =

  • I_SCREEN_END_COLUMN = 0

  • I_SCREEN_END_LINE = 0

  • IT_ALV_GRAPHICS =

  • IT_HYPERLINK =

  • IT_ADD_FIELDCAT =

  • IT_EXCEPT_QINFO =

  • I_HTML_HEIGHT_TOP =

  • I_HTML_HEIGHT_END =

  • IMPORTING

  • E_EXIT_CAUSED_BY_CALLER =

  • ES_EXIT_CAUSED_BY_USER =

TABLES

T_OUTTAB = T_MAKT

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

&----


*& Form SUB_TOP_OF_PAGE

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM SUB_TOP_OF_PAGE .

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = T_LISTHEADER

  • I_LOGO =

  • I_END_OF_LIST_GRID =

.

REFRESH T_LISTHEADER.

ENDFORM. " SUB_TOP_OF_PAGE

&----


*& Form SUB_WRITE_HEADER

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM SUB_WRITE_HEADER .

W_LISTHEADER-TYP = 'H'.

W_LISTHEADER-INFO = 'PLANT WISE DATA DISPLAYED'.

APPEND W_LISTHEADER TO T_LISTHEADER.

ENDFORM. " SUB_WRITE_HEADER

&----


*& Form SUB_SET_PF_STATUS

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM PF_STATUS_SET USING

RT_EXTAB TYPE SLIS_T_EXTAB.

SET PF-STATUS 'ZSTATUS1'.

ENDFORM. " SUB_SET_PF_STATUS

If any mistake where i am wrong sorry for that.