Skip to Content
0
Former Member
Apr 23, 2009 at 04:42 PM

TOP OF PAGE nOT gettign displayed

31 Views

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