topic Re: alv in Application Development and Automation Discussions

alv

Former Member — Tue, 24 Jul 2007 09:38:57 GMT

what is the use of this alv FM.

REUSE_ALV_FIELDCATALOG_MERGE.

REGARDS

prajwal

Re: alv

Former Member — Tue, 24 Jul 2007 09:42:16 GMT

Hi Prajwal,

Assuming that you know what is field catalog used for -

If you want to build fieldcatalog using an existing structure (in Data Dictionary), then you can directly use this FM to build Field Catalog.

If not you need to manually build the field catalog by passing the parameters individually.

Reward points if answer is informatory.

Best Regards,

Ram.

Re: alv

Former Member — Tue, 24 Jul 2007 09:43:33 GMT

hi,

Creates field catalog from dictionary structure or internal table.

Whenever u are using 2 or more fieldcatalogs we go for this FM.

Re: alv

Former Member — Tue, 24 Jul 2007 09:44:00 GMT

this FM is used to build the fieldcatalog(structure of output table) for the ALV

<b>Functionality</b>

Supports the creation of the field catalog for the ALV function modules

based either on a structure or table defined in the ABAP Data

Dictionary, or a program-internal table.

The program-internal table must either be in a TOP Include or its

Include must be specified explicitly in the interface.

The variant based on a program-internal table should only be used for

rapid prototyping since the following restrictions apply:

o Performance is affected since the code of the table definition must

always be read and interpreted at runtime.

o Dictionary references are only considered if the keywords LIKE or

INCLUDE STRUCTURE (not TYPE) are used.

If the field catalog contains more than 90 fields, the first 90 fields

are output in the list by default whereas the remaining fields are only

available in the field selection.

If the field catalog is passed with values, they are merged with the

'automatically' found information.

call function 'REUSE_ALV_FIELDCATALOG_MERGE'
    exporting
     I_PROGRAM_NAME               = sy-repid
*     i_internal_tabname           =
      i_structure_name             = 'T001'
*     I_CLIENT_NEVER_DISPLAY       = 'X'
*     I_INCLNAME                   =
      i_bypassing_buffer           = gs_test-bypassing_buffer
      i_buffer_active              = gs_test-buffer_active
    changing
      ct_fieldcat                  = it_fcat.

Re: alv

Former Member — Tue, 24 Jul 2007 09:44:33 GMT

sample code with reuse_alv_fieldcatalog_merge

----

REPORT YSG_MATSTK_ALVREP *

----

REPORT YSG_MATSTK_ALVREP LINE-SIZE 180

LINE-COUNT 25(5)

NO STANDARD PAGE HEADING.

&----

*& DATA DECLARATION *

&----

TABLES: MARA, "GENERAL MASTER DATA

MARC, "PLANT DATA FOR MATERIAL

MARD, "STORAGE LOCATION DATA FOR MATERIAL

MBEW, "MATERIAL VALUATION

MVKE, "SALES DATA FOR MATERIAL

MAKT. "MATERIAL DESCRIPTION

TYPE-POOLS : SLIS.

DATA: VT_FIELDCAT1 TYPE SLIS_T_FIELDCAT_ALV,

VT_FIELDCAT2 TYPE SLIS_T_FIELDCAT_ALV.

DATA: BEGIN OF I_MARC OCCURS 0,

MATNR LIKE MARC-MATNR,

WERKS LIKE MARC-WERKS,

LVORM LIKE MARC-LVORM,

PSTAT LIKE MARC-PSTAT,

END OF I_MARC.

DATA: BEGIN OF I_MARA OCCURS 0,

MATNR LIKE MARA-MATNR,

MBRSH LIKE MARA-MBRSH,

MEINS LIKE MARA-MEINS,

END OF I_MARA.

DATA: BEGIN OF I_MAKT OCCURS 0,

MATNR LIKE MAKT-MATNR,

MAKTX LIKE MAKT-MAKTX,

END OF I_MAKT.

DATA: BEGIN OF I_MBEW OCCURS 0,

MATNR LIKE MBEW-MATNR,

BWKEY LIKE MBEW-BWKEY,

BWTAR LIKE MBEW-BWTAR,

LBKUM LIKE MBEW-LBKUM,

END OF I_MBEW.

DATA: BEGIN OF I_MVKE OCCURS 0,

MATNR LIKE MVKE-MATNR,

VKORG LIKE MVKE-VKORG,

VTWEG LIKE MVKE-VTWEG,

END OF I_MVKE.

DATA: BEGIN OF I_MARD OCCURS 0,

MATNR LIKE MARD-MATNR,

WERKS LIKE MARD-WERKS,

LGORT LIKE MARD-LGORT,

LABST LIKE MARD-LABST,

END OF I_MARD.

DATA: BEGIN OF I_OUT OCCURS 0,

MATNR LIKE MARC-MATNR,

WERKS LIKE MARC-WERKS,

LVORM LIKE MARC-LVORM,

PSTAT LIKE MARC-PSTAT,

MBRSH LIKE MARA-MBRSH,

MEINS LIKE MARA-MEINS,

MAKTX LIKE MAKT-MAKTX,

BWKEY LIKE MBEW-BWKEY,

BWTAR LIKE MBEW-BWTAR,

LBKUM LIKE MBEW-LBKUM,

VKORG LIKE MVKE-VKORG,

VTWEG LIKE MVKE-VTWEG,

LGORT LIKE MARD-LGORT,

LABST LIKE MARD-LABST,

END OF I_OUT.

&----

*& S E L E C T I O N - S C R E E N *

&----

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-101.

PARAMETERS: P_WERKS LIKE MARC-WERKS.

SELECTION-SCREEN END OF BLOCK B1.

SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-102.

SELECT-OPTIONS: S_MATNR FOR MARC-MATNR,

S_LGORT FOR MARD-LGORT.

SELECTION-SCREEN END OF BLOCK B2.

&----

*& I N I T I A L I Z A T I O N *

&----

INITIALIZATION.

P_WERKS = '3000'.

S_MATNR-SIGN = 'I'.

S_MATNR-OPTION = 'EQ'.

S_MATNR-LOW = 'M-14'.

S_MATNR-HIGH = 'M-18'.

S_LGORT-SIGN = 'I'.

S_LGORT-OPTION = 'EQ'.

S_LGORT-LOW = '0001'.

S_LGORT-HIGH = '0007'.

APPEND S_LGORT.

APPEND S_MATNR.

CLEAR S_MATNR.

CLEAR S_LGORT.

&----

*& S T A R T - O F - S E L E C T I O N *

&----

START-OF-SELECTION.

SELECT MATNR WERKS LVORM FROM MARC

INTO TABLE I_MARC

WHERE WERKS = P_WERKS

AND MATNR IN S_MATNR.

SELECT MATNR MBRSH MEINS FROM MARA

INTO TABLE I_MARA

FOR ALL ENTRIES IN I_MARC

WHERE MATNR = I_MARC-MATNR.

SELECT MATNR MAKTX FROM MAKT

INTO TABLE I_MAKT

FOR ALL ENTRIES IN I_MARA

WHERE MATNR = I_MARA-MATNR

AND SPRAS = SY-LANGU.

SELECT MATNR BWKEY BWTAR FROM MBEW

INTO TABLE I_MBEW

FOR ALL ENTRIES IN I_MARA

WHERE MATNR = I_MARA-MATNR.

SELECT MATNR VKORG VTWEG FROM MVKE

INTO TABLE I_MVKE

FOR ALL ENTRIES IN I_MARA

WHERE MATNR = I_MARA-MATNR.

SELECT MATNR WERKS LGORT LABST FROM MARD

INTO TABLE I_MARD

FOR ALL ENTRIES IN I_MARC

WHERE MATNR = I_MARC-MATNR

AND WERKS = P_WERKS

AND LGORT IN S_LGORT..

LOOP AT I_MARC.

MOVE I_MARC-MATNR TO I_OUT-MATNR.

MOVE I_MARC-WERKS TO I_OUT-WERKS.

MOVE I_MARC-LVORM TO I_OUT-LVORM.

READ TABLE I_MARA WITH KEY MATNR = I_MARD-MATNR.

MOVE I_MARA-MBRSH TO I_OUT-MBRSH.

MOVE I_MARA-MEINS TO I_OUT-MEINS.

READ TABLE I_MAKT WITH KEY MATNR = I_MARD-MATNR.

MOVE I_MAKT-MAKTX TO I_OUT-MAKTX.

READ TABLE I_MBEW WITH KEY MATNR = I_MARD-MATNR.

MOVE I_MBEW-BWKEY TO I_OUT-BWKEY.

MOVE I_MBEW-BWTAR TO I_OUT-BWTAR.

READ TABLE I_MVKE WITH KEY MATNR = I_MARD-MATNR.

MOVE I_MVKE-VKORG TO I_OUT-VKORG.

MOVE I_MVKE-VTWEG TO I_OUT-VTWEG.

LOOP AT I_MARD WHERE MATNR = I_MARC-MATNR

AND WERKS = I_MARC-WERKS.

MOVE I_MARD-LGORT TO I_OUT-LGORT.

MOVE I_MARD-LABST TO I_OUT-LABST.

APPEND I_OUT.

ENDLOOP.

CLEAR I_OUT.

ENDLOOP.

&----

*& E N D -- O F -- S E L E C T I O N *

&----

END-OF-SELECTION.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

I_PROGRAM_NAME = SY-REPID

I_INTERNAL_TABNAME = 'I_OUT'

I_CLIENT_NEVER_DISPLAY = 'X'

I_INCLNAME = SY-REPID

CHANGING

CT_FIELDCAT = VT_FIELDCAT1.

IF SY-SUBRC <> 0.

ENDIF.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = SY-REPID

I_CALLBACK_USER_COMMAND = 'DISPLAY'

IT_FIELDCAT = VT_FIELDCAT1

TABLES

T_OUTTAB = I_OUT.

IF SY-SUBRC <> 0.

ENDIF.

&----

*& F O R M D I S P L A Y *

&----

FORM DISPLAY USING UCOMM LIKE SY-UCOMM

SELFIELD TYPE SLIS_SELFIELD.

IF SELFIELD-FIELDNAME = 'MATNR'.

IF UCOMM = '&IC1'.

READ TABLE I_OUT INDEX SELFIELD-TABINDEX.

SELECT MATNR WERKS LGORT LABST

FROM MARD

INTO TABLE I_MARD

WHERE MATNR = I_OUT-MATNR

AND WERKS = P_WERKS.

IF SY-SUBRC = 0.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

I_PROGRAM_NAME = SY-REPID

I_INTERNAL_TABNAME = 'I_MARD'

I_CLIENT_NEVER_DISPLAY = 'X'

I_INCLNAME = SY-REPID

CHANGING

CT_FIELDCAT = VT_FIELDCAT2.

IF SY-SUBRC <> 0.

ENDIF.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = SY-REPID

IT_FIELDCAT = VT_FIELDCAT2

I_CALLBACK_PF_STATUS_SET = 'SET_PF_STATUS'

I_CALLBACK_USER_COMMAND = 'USER_COMMAND'

TABLES

T_OUTTAB = I_MARD.

ENDIF.

ENDFORM. "DISPLAY

&----

*& F O R M SET_PF_STATUS *

&----

FORM SET_PF_STATUS USING SG_EXTAB TYPE SLIS_T_EXTAB.

SET PF-STATUS 'MATALV'.

ENDFORM. "SET_PF_STATUS

&----

*& F O R M USER_COMMAND *

&----

FORM USER_COMMAND USING SG_UCOMM LIKE SY-UCOMM

SG_SELFIELD TYPE SLIS_SELFIELD.

CASE SG_UCOMM.

WHEN 'EXIT'.

LEAVE PROGRAM.

ENDCASE.

ENDFORM. "USER_COMMAND

regards,

srinivas

<b>*reward for useful answers*</b>