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.