Hi All,
Given below is ALV report using OO ABAP.Its not displaying th report.Plz let me know wat is wrong..
REPORT ZRAK .
data : gt_mara type table of mara.
data : gl_alv_grid type ref to cl_gui_alv_grid,
gc_custom_control_name type scrfname value 'CCALV',
gr_ccontainer type ref to cl_gui_custom_container,
gt_fieldcat type lvc_t_fcat,
gs_layout type lvc_s_layo.
DATA : wa_fieldcat type lvc_s_fcat.
start-of-selection.
select matnr from mara into table gt_mara.
wa_fieldcat-fieldname = 'MATNR'.
append wa_fieldcat to gt_fieldcat.
clear wa_fieldcat.
*wa_fieldcat-fieldname = 'EMARA'.
*append wa_fieldcat to gt_fieldcat.
*clear wa_fieldcat.
if gl_alv_grid is initial.
CREATE OBJECT GR_CCONTAINER
EXPORTING
PARENT =
CONTAINER_NAME = gc_custom_control_name
STYLE =
LIFETIME = lifetime_default
REPID =
DYNNR =
NO_AUTODEF_PROGID_DYNNR =
EXCEPTIONS
CNTL_ERROR = 1
CNTL_SYSTEM_ERROR = 2
CREATE_ERROR = 3
LIFETIME_ERROR = 4
LIFETIME_DYNPRO_DYNPRO_LINK = 5
others = 6
.
IF SY-SUBRC 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CREATE OBJECT gl_alv_grid
EXPORTING
I_SHELLSTYLE = 0
I_LIFETIME =
I_PARENT = gr_Ccontainer
I_APPL_EVENTS = space
I_PARENTDBG =
I_APPLOGPARENT =
I_GRAPHICSPARENT =
I_USE_VARIANT_CLASS = SPACE
I_NAME =
EXCEPTIONS
ERROR_CNTL_CREATE = 1
ERROR_CNTL_INIT = 2
ERROR_CNTL_LINK = 3
ERROR_DP_CREATE = 4
others = 5
.
IF SY-SUBRC 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
IF sy-subrc EQ 0.
gs_layout-grid_title = text-100.
gs_layout-CWIDTH_OPT = 'X'.
gs_layout-ZEBRA = 'X'.
galv_layout-report = sy-repid.
CALL METHOD GL_ALV_GRID->SET_TABLE_FOR_FIRST_DISPLAY
EXPORTING
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =
I_CONSISTENCY_CHECK =
I_STRUCTURE_NAME =
IS_VARIANT =
I_SAVE =
I_DEFAULT = 'X'
IS_LAYOUT = gs_layout
IS_PRINT =
IT_SPECIAL_GROUPS =
IT_TOOLBAR_EXCLUDING =
IT_HYPERLINK =
IT_ALV_GRAPHICS =
IT_EXCEPT_QINFO =
CHANGING
IT_OUTTAB = gt_mara[]
IT_FIELDCATALOG = gt_fieldcat
IT_SORT =
IT_FILTER =
EXCEPTIONS
INVALID_PARAMETER_COMBINATION = 1
PROGRAM_ERROR = 2
TOO_MANY_LINES = 3
others = 4
.
IF SY-SUBRC 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDIF.
endif.
Bluesky
