Dear Freinds,
Iam using the ALV and iam not able to get the top of the page , please any one could correct me in my code where i am going wrong.
IF it_count_succ IS NOT INITIAL.
Get the fieldcatalog for the first block
* tOTAL
s_fieldcatalog-col_pos = '1'.
s_fieldcatalog-fieldname = 'TOTAL_SUCSS'.
s_fieldcatalog-tabname = 'IT_COUNT_SUCC'.
s_fieldcatalog-seltext_m = 'Total Count '.
s_fieldcatalog-ref_tabname = 'VBAK'.
s_fieldcatalog-ref_fieldname = 'VBELN'.
APPEND s_fieldcatalog TO t_fieldcatalog1.
CLEAR s_fieldcatalog.
*dESC
s_fieldcatalog-col_pos = '2'.
s_fieldcatalog-fieldname = 'DESC'.
s_fieldcatalog-tabname = 'IT_COUNT_SUCC'.
s_fieldcatalog-seltext_l = 'Status of the E-MAIL'.
s_fieldcatalog-ref_tabname = 'VBAK'.
s_fieldcatalog-ref_fieldname = 'BSTNK'.
s_fieldcatalog-outputlen = '50'.
APPEND s_fieldcatalog TO t_fieldcatalog1.
CLEAR s_fieldcatalog.
wa_events-form = 'TOP_PAGE'.
wa_events-name = slis_ev_top_of_list . "'TOP_OF_PAGE'.
APPEND wa_events TO it_events.
ENDIF.
IF it_count_fail IS NOT INITIAL.
Get the fieldcatalog for the second block
* tOTAL
s_fieldcatalog-col_pos = '1'.
s_fieldcatalog-fieldname = 'TOTAL_FAIL'.
s_fieldcatalog-tabname = 'IT_COUNT_FAIL'.
s_fieldcatalog-seltext_m = 'Total Count '.
s_fieldcatalog-ref_tabname = 'VBAK'.
s_fieldcatalog-ref_fieldname = 'VBELN'.
APPEND s_fieldcatalog TO t_fieldcatalog2.
CLEAR s_fieldcatalog.
*dESC
s_fieldcatalog-col_pos = '2'.
s_fieldcatalog-fieldname = 'DESC'.
s_fieldcatalog-tabname = 'IT_COUNT_FAIL'.
s_fieldcatalog-seltext_L = 'Status of the E-MAIL'.
s_fieldcatalog-ref_tabname = 'VBAK'.
s_fieldcatalog-ref_fieldname = 'BSTNK'.
s_fieldcatalog-outputlen = '50'.
APPEND s_fieldcatalog TO t_fieldcatalog2.
CLEAR s_fieldcatalog.
wa_events-form = 'TOP_PAGE'.
wa_events-name = 'TOP_OF_PAGE'.
APPEND wa_events TO it_events.
ENDIF.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'
EXPORTING
i_callback_program = v_repid.
IF it_count_succ IS NOT INITIAL.
v_tabname = 'IT_COUNT_SUCC'.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
is_layout = v_layout
it_fieldcat = t_fieldcatalog1[]
i_tabname = v_tabname
it_events = It_events[]
TABLES
t_outtab = fp_it_succ.
ENDIF.
IF it_count_fail IS NOT INITIAL.
v_tabname = 'IT_COUNT_FAIL'.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
is_layout = v_layout
it_fieldcat = t_fieldcatalog2[]
i_tabname = v_tabname
it_events = It_events[]
TABLES
t_outtab = fp_it_fail.
ENDIF.
**Display
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'.
&----
*& Form TOP_PAGE
&----
text
----
FORM TOP_PAGE.
WRITE:/ 'PLAYSLIP REPOT ' COLOR 5.
ENDFORM. "TOP_PAGE
Please could any one correct me where iam going wrong.
regards
divya