Skip to Content
0
Sep 20, 2005 at 10:50 AM

Field Symbols

62 Views

Hi,

Pls look at the following code and tell me why i am getting a runtime error.

-


DATA: w_count(2) TYPE c,

w_key(8) TYPE c,

w_col(8) TYPE c.

FIELD-SYMBOLS: <fs_key>, <fs_col>.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

i_program_name = sy-cprog

i_internal_tabname = 'IT_TAB'

  • i_structure_name =

  • i_client_never_display = 'X'

i_inclname = sy-cprog

i_bypassing_buffer = 'X'

  • i_buffer_active =

CHANGING

ct_fieldcat = it_fcat1[]

EXCEPTIONS

inconsistent_interface = 1

program_error = 2

OTHERS = 3.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

LOOP AT it_fcat1 WHERE key EQ 'X'.

w_count = w_count + 1.

CONCATENATE 'colpos' w_count INTO w_col.

CONCATENATE 'readkey' w_count INTO w_key.

ASSIGN (w_key) TO <fs_key>.

<b>ASSIGN (w_col) TO <fs_col></b>.

<fs_key> = it_fcat1-fieldname.

move it_fcat1-col_pos to w_temp.

<fs_col> = w_temp.

w_count = w_count + 1.

ENDLOOP.

-


<fs_key> is working fine but <fs_col> is not. The assign statement ASSIGN (w_col) TO <fs_col> sets sy-subrc eq 4.

i don't know why. pls solve my problem. thankx for spending your time.