topic Re: How to use the alv function module in Application Development and Automation Discussions

How to use the alv function module

Former Member — Thu, 28 Feb 2008 04:28:19 GMT

hi all,

can any one help me out how to use reuse_alv_block_list_append function module, what parameters shall i pass to it, so that i get top of page and end of page events and report data in two blocks, can any one tell how can i didvide the data into block, at a particular line

Re: How to use the alv function module

p291102 — Thu, 28 Feb 2008 04:33:52 GMT

Hi,

following ALV report is the sample report for that function module.

Kindly go through it .

REPORT YMS_BLOCKALV.

TYPE-POOLS : SLIS.

TABLES : MARA,MAKT.

SELECT-OPTIONS : MAT FOR MARA-MATNR.

DATA : BEGIN OF ITAB OCCURS 0,

MATNR LIKE MARA-MATNR,

MAKTX LIKE MAKT-MAKTX,

MATKL LIKE MARA-MATKL,

MTART LIKE MARA-MTART,

END OF ITAB.

DATA : BEGIN OF ITAB1 OCCURS 0,

MTART LIKE MARA-MTART,

COUNT TYPE I,

END OF ITAB1.

DATA : BEGIN OF ITAB1_COL OCCURS 0,

MTART LIKE MARA-MTART,

COUNT TYPE I,

END OF ITAB1_COL.

DATA : T_FCAT1 TYPE SLIS_T_FIELDCAT_ALV,

T_FCAT2 TYPE SLIS_T_FIELDCAT_ALV,

WA_FCAT TYPE SLIS_FIELDCAT_ALV,

T_EVE TYPE SLIS_T_EVENT,

WA_EVE TYPE SLIS_ALV_EVENT,

T_LAYOUT TYPE SLIS_LAYOUT_ALV.

DATA : V_REPID LIKE SY-REPID,

T_MAT LIKE MARA-MATNR.

DEFINE CREATE_FCAT.

CLEAR WA_FCAT.

WA_FCAT-FIELDNAME = &1.

WA_FCAT-SELTEXT_L = &2.

WA_FCAT-OUTPUTLEN = &3.

APPEND WA_FCAT TO T_FCAT1.

END-OF-DEFINITION.

START-OF-SELECTION.

PERFORM GET_DATA.

PERFORM DIS_DATA.

&----

*& Form get_data

&----

text

----

FORM GET_DATA.

SELECT A_{MATNR B}MAKTX A_{MTART A}MATKL INTO CORRESPONDING FIELDS OF TABLE ITAB

FROM MARA AS A INNER JOIN MAKT AS B ON

A_{MATNR = B}MATNR

WHERE A~MATNR IN MAT.

LOOP AT ITAB.

ITAB1-MTART = ITAB-MTART.

ITAB1-COUNT = 1.

APPEND ITAB1.

ENDLOOP.

SORT ITAB1 BY MTART.

LOOP AT ITAB1.

MOVE-CORRESPONDING ITAB1 TO ITAB1_COL.

COLLECT ITAB1_COL.

ENDLOOP.

ENDFORM. "get_data

&----

*& Form dis_data

&----

text

----

FORM DIS_DATA.

V_REPID = SY-REPID.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'

EXPORTING

I_CALLBACK_PROGRAM = V_REPID.

REFRESH T_FCAT1.

CLEAR T_FCAT1.

REFRESH T_EVE.

WA_EVE-NAME = 'TOP_OF_PAGE'.

WA_EVE-FORM = 'TOP_OF_PAGE1'.

APPEND WA_EVE TO T_EVE.

CREATE_FCAT:

'MATNR' 'Material' '10',

'MAKTX' 'Material Description' '40',

'MTART' 'Type' '10',

'MATKL' 'Group' '10'.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'

EXPORTING

IS_LAYOUT = T_LAYOUT

IT_FIELDCAT = T_FCAT1

I_TABNAME = 'ITAB'

IT_EVENTS = T_EVE

TABLES

T_OUTTAB = ITAB.

REFRESH T_FCAT1.

CLEAR T_FCAT1.

REFRESH T_EVE.

WA_EVE-NAME = 'TOP_OF_PAGE'.

WA_EVE-FORM = 'TOP_OF_PAGE2'.

APPEND WA_EVE TO T_EVE.

CREATE_FCAT:

'MTART' 'Type' '10',

'COUNT' 'Total' '5'.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'

EXPORTING

IS_LAYOUT = T_LAYOUT

IT_FIELDCAT = T_FCAT1

I_TABNAME = 'ITAB1_COL'

IT_EVENTS = T_EVE

TABLES

T_OUTTAB = ITAB1_COL.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'.

ENDFORM. "dis_data

&----

*& Form top_of_page1

&----

text

----

FORM TOP_OF_PAGE1.

FORMAT COLOR COL_POSITIVE.

WRITE:/ 'First Block'.

FORMAT COLOR OFF.

ENDFORM. "top_of_page

&----

*& Form top_of_page2

&----

text

----

FORM TOP_OF_PAGE2.

FORMAT COLOR COL_NEGATIVE.

WRITE /5 'Second Block'.

FORMAT COLOR OFF.

ENDFORM. "top_of_page

Thanks,

Sankar M

Re: How to use the alv function module

dhruv_shah3 — Thu, 28 Feb 2008 04:34:25 GMT

Hi,

go for block list display(with block list display only lists in same screen is possible.if u want grids in same screen u have to go for OOALV).



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,
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,
EKORG LIKE EKKO-EKORG,
BSART LIKE EKKO-BSART,
END OF JTAB.

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:LAYOUT TYPE slis_layout_alv.
DATA:EVE TYPE slis_t_event WITH HEADER LINE.
DATA:EVE1 TYPE slis_t_event WITH HEADER LINE.
DATA:HEAD TYPE slis_t_listheader WITH HEADER LINE.
DATA:FCAT TYPE slis_t_fieldcat_alv.
DATA:FCAT1 TYPE slis_t_fieldcat_alv.

LAYOUT-ZEBRA = 'X'.
LAYOUT-colwidth_optimize = 'X'.
LAYOUT-WINDOW_TITLEBAR = 'VENDOR DETAILS SCREEN'.


EVE1-NAME = 'TOP_OF_PAGE'.
EVE1-FORM = 'TOP_OF_PAGE1'.
APPEND EVE1.

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 = 'TOP_OF_PAGE'.
MODIFY EVE TRANSPORTING FORM WHERE NAME = 'TOP_OF_PAGE'.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'
EXPORTING
I_CALLBACK_PROGRAM = SY-REPID

    * I_CALLBACK_PF_STATUS_SET = ' '
    * I_CALLBACK_USER_COMMAND = ' '
    * IT_EXCLUDING =

.

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_BLOCK_LIST_APPEND'
EXPORTING
IS_LAYOUT = LAYOUT
IT_FIELDCAT = FCAT
I_TABNAME = 'ITAB'
IT_EVENTS = EVE[]

    * IT_SORT =
    * I_TEXT = ' '

TABLES
T_OUTTAB = ITAB

    * EXCEPTIONS
    * PROGRAM_ERROR = 1
    * MAXIMUM_OF_APPENDS_REACHED = 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_FIELDCATALOG_MERGE'
EXPORTING
I_PROGRAM_NAME = SY-REPID
I_INTERNAL_TABNAME = 'JTAB'

    * I_STRUCTURE_NAME =
    * I_CLIENT_NEVER_DISPLAY = 'X'

I_INCLNAME = SY-REPID

    * I_BYPASSING_BUFFER =
    * I_BUFFER_ACTIVE =

CHANGING
CT_FIELDCAT = FCAT1

    * 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_BLOCK_LIST_APPEND'
EXPORTING
IS_LAYOUT = LAYOUT
IT_FIELDCAT = FCAT1
I_TABNAME = 'JTAB'
IT_EVENTS = EVE1[]

    * IT_SORT =
    * I_TEXT = ' '

TABLES
T_OUTTAB = JTAB

    * EXCEPTIONS
    * PROGRAM_ERROR = 1
    * MAXIMUM_OF_APPENDS_REACHED = 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_BLOCK_LIST_DISPLAY'

    * EXPORTING
    * I_INTERFACE_CHECK = ' '
    * IS_PRINT =
    * I_SCREEN_START_COLUMN = 0
    * I_SCREEN_START_LINE = 0
    * I_SCREEN_END_COLUMN = 0
    * I_SCREEN_END_LINE = 0
    * IMPORTING
    * E_EXIT_CAUSED_BY_CALLER =
    * ES_EXIT_CAUSED_BY_USER =
    * 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 TOP_OF_PAGE.
REFRESH HEAD.
HEAD-TYP = 'H'.
HEAD-INFO = 'VENDORS DETAILS'.
APPEND HEAD.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = HEAD[]

    * I_LOGO =
    * I_END_OF_LIST_GRID =

.

ENDFORM.

FORM TOP_OF_PAGE1.
REFRESH HEAD.
HEAD-TYP = 'H'.
HEAD-INFO = 'PURCHASE DOCCUMENTS DETAILS'.
APPEND HEAD.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = HEAD[]

    * I_LOGO =
    * I_END_OF_LIST_GRID =

.

ENDFORM.

Also look this sample reports:

[;

Thanks & Regards,

Dhruv Shah

Re: How to use the alv function module

Former Member — Thu, 28 Feb 2008 04:39:11 GMT

hi,

this is my simple alv blockedlist programme.go through it.it will definrtley help u.

REPORT z50870alv_blocked.

TYPE-POOLS : slis.

&----

*& structure declaration

&----

TYPES : BEGIN OF st_ekko,

ebeln TYPE ekko-ebeln, "Purchasing Document Number

bstyp TYPE ekko-bstyp, "Purchasing Document Category

bsart TYPE ekko-bsart, "Purchasing Document Type

aedat TYPE ekko-aedat, "record created on

ernam TYPE ekko-ernam, "Person who Created the Object

END OF st_ekko.

TYPES : BEGIN OF st_ekpo,

ebeln TYPE ekko-ebeln,

ebelp TYPE ekpo-ebelp, "Item Number of Purchasing Document

ematn TYPE ekpo-ematn, "Material number

matkl TYPE ekpo-matkl, "Material group

netpr TYPE ekpo-netpr, "Net price in purchasing document

END OF st_ekpo.

&----

*& internal table and work area declaration

&----

DATA : it_ekpo TYPE STANDARD TABLE OF st_ekpo,

it_ekko TYPE STANDARD TABLE OF st_ekko,

it_fieldcat1 TYPE slis_t_fieldcat_alv,

wa_fieldcat1 TYPE slis_fieldcat_alv,

it_fieldcat2 TYPE slis_t_fieldcat_alv,

wa_fieldcat2 TYPE slis_fieldcat_alv,

it_events Type slis_t_event,

wa_layout TYPE slis_layout_alv.

&----

*& data declaration

&----

DATA : v_ebeln TYPE ekko-ebeln.

&----

*& selection-screen

&----

SELECTION-SCREEN BEGIN OF BLOCK a WITH FRAME TITLE text-000.

SELECT-OPTIONS : so_ebeln FOR v_ebeln.

SELECTION-SCREEN END OF BLOCK a.

&----

*& At-selection-screen

&----

at selection-screen on so_ebeln.

perform validate_ebeln.

&----

*& start-of-selection

&----

START-OF-SELECTION.

PERFORM data_retrieval.

&----

*& end-of-selection

&----

END-OF-SELECTION.

PERFORM initialize_alv_block.

PERFORM build_fieldcatalog1.

PERFORM build_fieldcatalog2.

PERFORM build_layout.

PERFORM get_events .

PERFORM append_ekkodata_to_alv_block.

PERFORM append_ekpodata_to_alv_block.

PERFORM display_blocked_alv.

&----

*& FORM initialize_alv_block

&----

FORM initialize_alv_block.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'

EXPORTING

i_callback_program = sy-repid.

endform.

&----

*& FORM validate_ebeln

&----

form validate_ebeln.

select ebeln

from ekko

into table it_ekko

where ebeln in so_ebeln.

if sy-subrc ne 0.

message text-003 type 'W'.

endif.

endform.

&----

*& FORM data_retrieval

&----

FORM data_retrieval.

SELECT ebeln bstyp bsart aedat ernam

FROM ekko

INTO TABLE it_ekko

WHERE ebeln IN so_ebeln.

if sy-subrc ne 0.

message text-001 type 'I'.

endif.

SELECT ebeln ebelp ematn matkl netpr

FROM ekpo

INTO TABLE it_ekpo

WHERE ebeln IN so_ebeln.

if sy-subrc ne 0.

message text-002 type 'I'.

endif.

endform.

&----

*& Form build_fieldcatalog1

&----

FORM build_fieldcatalog1.

wa_fieldcat1-fieldname = 'EBELN'.

wa_fieldcat1-seltext_l = 'PURCHASE ORDER'.

wa_fieldcat1-col_pos = 0.