topic Problem with Generic Function Module. in Application Development and Automation Discussions

Problem with Generic Function Module.

amit_khare — Tue, 06 Feb 2007 16:24:39 GMT

Hi All,

I am trying to develop a generic function module which can be used in different programs for displaying ALV.

I am able to display the ALV but unable to get the header for it.

Please suggest.

This is the code -

function zhrca_show_itab_in_alv.

*"----

""Local Interface:

*" IMPORTING

*" REFERENCE(V_REPID) TYPE SY-REPID DEFAULT SY-REPID

*" TABLES

*" ITAB

*" ITAB_NAMES

*" I_ALV OPTIONAL

*" EXCEPTIONS

*" DATA_TABLE_EMPTY

*" HEADER_TABLE_EMPTY

*"----

l_repid = v_repid.

describe table itab lines l_lines.

if l_lines eq 0.

raise data_table_empty.

endif.

describe table itab_names lines l_lines.

if l_lines eq 0.

raise header_table_empty.

endif.

perform fill_layout changing l_layout.

PERFORM easy_alv_build_fcat TABLES itab
itab_names
CHANGING fcat error.

***************************

field-symbols: <f_line> type any.

clear fcat.

refresh fcat.

error = 0.

l_index = 0.

clear fcat.

refresh fcat.

Read the structure of the incoming Internal table and then
create the field catalog ,assigning the user defined texts
sent in the table P_ITAB_NAMES

assign local copy of initial line of itab to <f_line>.

describe field <f_line> into td.

read table td-types index 1 into typed.

if typed-from = 0 and typed-to = 0.

error = 10. exit.

endif.

read table itab_names index l_index.

itab_names1[] = itab_names[].

loop at td-types into wa_types from typed-from to typed-to.

l_index = l_index + 1.

read table td-names into wa_name index wa_types-idx_name.

wa_fcat-fieldname = wa_name-name.

if not wa_name-continue is initial.

idx = wa_types-idx_name + 1.

read table td-names into wa_name index idx.

For local struct no more than 30 chars are allowed so there is no need
to loop at td-name to get more than 2 pieces of the name

concatenate wa_fcat-fieldname wa_name-name

into wa_fcat-fieldname.

endif.

READ TABLE itab_names INDEX l_index.

read table itab_names1 index l_index.

wa_fcat-reptext_ddic = itab_names1-title.

wa_fcat-inttype = wa_types-type.

wa_fcat-outputlen = wa_types-output_length.

textlen = strlen( wa_fcat-fieldname ).

if wa_fcat-outputlen < textlen.

wa_fcat-outputlen = textlen.

endif.

wa_fcat-decimals_out = wa_types-decimals.

append wa_fcat to fcat.

endloop.

***************************

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
i_list_type = 0
IMPORTING
et_events = i_eventcat
EXCEPTIONS
list_type_wrong = 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.

CLEAR l_event.
READ TABLE i_eventcat WITH KEY name = slis_ev_top_of_page INTO l_event.
IF sy-subrc = 0.
MOVE 'ZF_TOP_OF_PAGE' TO l_event-form.
APPEND l_event TO i_eventcat.
ENDIF.

*perform event.

call function 'REUSE_ALV_GRID_DISPLAY'

exporting

i_callback_program = l_repid

i_callback_top_of_page = 'ALV_TOP_OF_PAGE'

i_callback_pf_status_set = ' '
i_callback_user_command = ' '

is_layout = l_layout

it_fieldcat = fcat

it_events = i_eventcat

i_default = 'X'
i_save = 'A'
is_variant = l_variant

tables

t_outtab = itab

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.

endfunction.

----

***INCLUDE LZHRCA_UEMAILSF02 .

----

&----

*& Form FILL_LAYOUT

&----

form fill_layout changing c_f_layout type slis_layout_alv.

Call module to set values for optimize width etc

call function 'FM_ALV_LAYOUT'

changing

c_f_layout = c_f_layout.

c_f_layout-key_hotspot = ' '.

endform. " FILL_LAYOUT

*&----

**& Form event

*&----

text

*----

--> p1 text
<-- p2 text

*----

*FORM event .

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
i_list_type = 0
IMPORTING
et_events = i_eventcat
EXCEPTIONS
list_type_wrong = 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.

CLEAR l_event.
READ TABLE i_eventcat WITH KEY name = slis_ev_top_of_page INTO l_event.
IF sy-subrc = 0.
MOVE 'ZF_TOP_OF_PAGE' TO l_event-form.
APPEND l_event TO i_eventcat.
ENDIF.

*ENDFORM. " event

&----

*& Form alv_top_of_page

&----

text

----

form alv_top_of_page.

data: l_listheader type slis_listheader.

refresh i_listheader.

clear l_listheader.

l_listheader-typ = 'H'.

l_listheader-key = 'Program'.

l_listheader-info = l_repid.

append l_listheader to i_listheader.

clear l_listheader.

l_listheader-typ = 'S'.

l_listheader-key = 'Run Date'.

l_listheader-info = sy-datum.

append l_listheader to i_listheader.

clear l_listheader.

l_listheader-typ = 'S'.

l_listheader-key = 'Run BY'.

l_listheader-info = sy-uname.

append l_listheader to i_listheader.

call function 'REUSE_ALV_COMMENTARY_WRITE'

exporting

it_list_commentary = i_listheader.

endform. " ALV_TOP_OF_PAGE

Points will be rewarded.

Thanks,

Amit Khare

Anym Suggestion from anyone.

Message was edited by:

Amit Khare

Re: Problem with Generic Function Module.

Former Member — Tue, 06 Feb 2007 21:28:04 GMT

Hi Amit,

Try the following:

function zhrca_show_itab_in_alv.

*"----

""Local Interface:

*" IMPORTING

*" REFERENCE(V_REPID) TYPE SY-REPID DEFAULT SY-REPID

*" TABLES

*" ITAB

*" ITAB_NAMES

*" I_ALV OPTIONAL

*" EXCEPTIONS

*" DATA_TABLE_EMPTY

*" HEADER_TABLE_EMPTY

*"----

l_repid = v_repid.

describe table itab lines l_lines.

if l_lines eq 0.

raise data_table_empty.

endif.

describe table itab_names lines l_lines.

if l_lines eq 0.

raise header_table_empty.

endif.

perform fill_layout changing l_layout.

PERFORM easy_alv_build_fcat TABLES itab
itab_names
CHANGING fcat error.

***************************

field-symbols: <f_line> type any.

clear fcat.

refresh fcat.

error = 0.

l_index = 0.

clear fcat.

refresh fcat.

Read the structure of the incoming Internal table and then
create the field catalog ,assigning the user defined texts
sent in the table P_ITAB_NAMES

assign local copy of initial line of itab to <f_line>.

describe field <f_line> into td.

read table td-types index 1 into typed.

if typed-from = 0 and typed-to = 0.

error = 10. exit.

endif.

read table itab_names index l_index.

itab_names1[] = itab_names[].

loop at td-types into wa_types from typed-from to typed-to.

l_index = l_index + 1.

read table td-names into wa_name index wa_types-idx_name.

wa_fcat-fieldname = wa_name-name.

if not wa_name-continue is initial.

idx = wa_types-idx_name + 1.

read table td-names into wa_name index idx.

For local struct no more than 30 chars are allowed so there is no need
to loop at td-name to get more than 2 pieces of the name

concatenate wa_fcat-fieldname wa_name-name

into wa_fcat-fieldname.

endif.

READ TABLE itab_names INDEX l_index.

read table itab_names1 index l_index.

wa_fcat-reptext_ddic = itab_names1-title.

wa_fcat-inttype = wa_types-type.

wa_fcat-outputlen = wa_types-output_length.

textlen = strlen( wa_fcat-fieldname ).

if wa_fcat-outputlen < textlen.

wa_fcat-outputlen = textlen.

endif.

wa_fcat-decimals_out = wa_types-decimals.

append wa_fcat to fcat.

endloop.

***************************

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
i_list_type = 0
IMPORTING
et_events = i_eventcat
EXCEPTIONS
list_type_wrong = 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.

CLEAR l_event.
READ TABLE i_eventcat WITH KEY name = slis_ev_top_of_page INTO l_event.
IF sy-subrc = 0.
MOVE 'ZF_TOP_OF_PAGE' TO l_event-form.
APPEND l_event TO i_eventcat.
ENDIF.

perform event.

call function 'REUSE_ALV_GRID_DISPLAY'

exporting

i_callback_program = l_repid

i_callback_top_of_page = 'ALV_TOP_OF_PAGE'

i_callback_pf_status_set = ' '
i_callback_user_command = ' '

is_layout = l_layout

it_fieldcat = fcat

it_events = i_eventcat

i_default = 'X'
i_save = 'A'
is_variant = l_variant

tables

t_outtab = itab

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.

endfunction.

----

***INCLUDE LZHRCA_UEMAILSF02 .

----

&----

*& Form FILL_LAYOUT

&----

form fill_layout changing c_f_layout type slis_layout_alv.

Call module to set values for optimize width etc

call function 'FM_ALV_LAYOUT'

changing

c_f_layout = c_f_layout.

c_f_layout-key_hotspot = ' '.

endform. " FILL_LAYOUT

*&----

**& Form event

*&----

text

*----

--> p1 text
<-- p2 text

*----

FORM event .

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

i_list_type = 0

IMPORTING

et_events = i_eventcat

EXCEPTIONS

list_type_wrong = 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.

CLEAR l_event.

READ TABLE i_eventcat WITH KEY name = slis_ev_top_of_page INTO l_event.

IF sy-subrc = 0.

MOVE 'ZF_TOP_OF_PAGE' TO l_event-form.

APPEND l_event TO i_eventcat.

ENDIF.

ENDFORM. " event

&----

*& Form alv_top_of_page

&----

text

----

form alv_top_of_page.

data: l_listheader type slis_listheader.

refresh i_listheader.

clear l_listheader.

l_listheader-typ = 'H'.

l_listheader-key = 'Program'.

l_listheader-info = l_repid.

append l_listheader to i_listheader.

clear l_listheader.

l_listheader-typ = 'S'.

l_listheader-key = 'Run Date'.

l_listheader-info = sy-datum.

append l_listheader to i_listheader.

clear l_listheader.

l_listheader-typ = 'S'.

l_listheader-key = 'Run BY'.

l_listheader-info = sy-uname.

append l_listheader to i_listheader.

call function 'REUSE_ALV_COMMENTARY_WRITE'

exporting

it_list_commentary = i_listheader.

endform. " ALV_TOP_OF_PAGE

Hope it helps.

Regards,

Gilberto Li

Re: Problem with Generic Function Module.

amit_khare — Tue, 06 Feb 2007 23:23:01 GMT

Thanks for reply,

but you may find the same suggestion existing in the code and commented out, as it is not working too.

Amit

Re: Problem with Generic Function Module.

Former Member — Tue, 06 Feb 2007 23:28:36 GMT

Hi,

Do this change at starting of your FM..

l_repid = sy-repid.

Since you are assigning the program name that calls this function module...But the subroutine 'ALV_TOP_OF_PAGE' is available inside your function module..

So this should work..

Thanks,

Naren