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