Skip to Content
0
Former Member
Sep 17, 2007 at 05:29 PM

REUSE_ALV_FIELDCATALOG_MERGE

24 Views

hi everyone this code ,

no_fieldcatalog_available. gives error

anyone help me?

report z.

*tables

TABLES: bkpf.

*type pool

TYPE-POOLS: slis.

*data

DATA : BEGIN OF g_gt OCCURS 0,

bukrs TYPE bkpf-bukrs,

gjahr TYPE bkpf-gjahr,

blart TYPE bkpf-blart,

bldat TYPE bkpf-bldat,

budat TYPE bkpf-budat,

usnam TYPE bkpf-usnam,

END OF g_gt.

*ALV

DATA:fcat TYPE slis_t_fieldcat_alv.

DATA:layout TYPE slis_layout_alv.

DATA : gv_repid LIKE sy-repid.

SELECTION-SCREEN BEGIN OF BLOCK blok1 WITH FRAME TITLE text-001.

PARAMETERS : p_bukrs TYPE bkpf-bukrs OBLIGATORY.

SELECTION-SCREEN END OF BLOCK blok1.

SELECTION-SCREEN BEGIN OF BLOCK blok2 WITH FRAME TITLE text-002.

SELECT-OPTIONS : s_gjahr FOR bkpf-gjahr NO INTERVALS,

s_blart FOR bkpf-blart NO INTERVALS,

s_bldat FOR bkpf-bldat NO INTERVALS,

s_budat FOR bkpf-budat NO INTERVALS,

s_usnam FOR bkpf-usnam NO INTERVALS.

SELECTION-SCREEN END OF BLOCK blok2.

&----


*& Form get_data1

&----


  • text

----


FORM get_data1.

SELECT bukrs gjahr blart bldat budat usnam FROM bkpf

INTO TABLE g_gt WHERE bukrs EQ p_bukrs

AND gjahr IN s_gjahr

AND blart IN s_blart

AND bldat IN s_bldat

AND budat IN s_budat

AND usnam IN s_usnam.

ENDFORM. "get_data1

START-OF-SELECTION.

gv_repid = sy-repid.

PERFORM alv.

&----


*& Form alv

&----


  • text

----


FORM alv.

PERFORM get_data1.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

i_program_name = sy-repid

i_internal_tabname = 'G_GT'

i_inclname = sy-repid

i_bypassing_buffer = 'X'

CHANGING

ct_fieldcat = fcat.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

  • I_INTERFACE_CHECK = ' '

  • I_BYPASSING_BUFFER = ' '

  • I_BUFFER_ACTIVE = ' '

I_CALLBACK_PROGRAM = sy-repid

  • I_CALLBACK_PF_STATUS_SET = ' '

  • I_CALLBACK_USER_COMMAND = ' '

  • I_CALLBACK_TOP_OF_PAGE = ' '

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

  • 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