Problem with FIELD SYMBOL upgrading from 46c to ECC6.0

Question

Hi people... i'm having big trouble making an upgrade from 4.6c to ECC6.0 with this portion of code of Z's programm.
In the line
ASSIGN (w_field) TO <fs_field>.
i don't see any assigment, so <fs_field> remains empty, when enters into firts IF conditions it is TRUE, then go into second IF condition, it is FALSE, and finally assing
<fs_field> = '/'.
, at this point i have a DUMP telling me MOVE_TO_LIT_NOTALLOWED_NODATA
I'm try any way of definition, assigment, but always i have a DUMP.
Someone can give a hand with this issue!
Thanks in advance!!!
This is the full code from the FORM with the problem.
*       FORM GRABA                                        *
*  -->  VALUE(P_TABLE)                                  *
FORM graba USING value(p_table) TYPE c.
  DATA:
    w_field(60),
    w_dd03l  TYPE dd03l.
  FIELD-SYMBOLS <fs_field>.
  CLEAR w_flag.
  CASE p_table.
    WHEN 'BGR00'.
      d_bgr00-group  = w_batin.
      d_bgr00-mandt  = sy-mandt.
      d_bgr00-usnam  = sy-uname.
      d_bgr00-xkeep  = 'X'.
      d_bgr00-nodata = '/'.
      d_bgr00-stype = 0.
      TRANSFER d_bgr00 TO w_fname.
    WHEN 'BBKPF'.
      LOOP AT gt_dd03l INTO w_dd03l WHERE tabname EQ p_table.
        CONCATENATE
            'd_'
            w_dd03l-tabname
            w_dd03l-fieldname
          INTO w_field.
        ASSIGN (w_field) TO <fs_field>.
        IF <fs_field> IS INITIAL OR <fs_field> EQ '/'.
          IF w_dd03l-fieldname EQ 'TBNAM'.
            <fs_field> = p_table.
          ELSE.
            <fs_field> = '/'.
          ENDIF.
        ELSE.
          w_flag = 'X'.
        ENDIF.
      ENDLOOP.
      TRANSFER d_bbkpf TO w_fname.
    WHEN 'BBSEG'.
      LOOP AT gt_dd03l INTO w_dd03l WHERE tabname EQ p_table.
        CONCATENATE
            'd_'
            w_dd03l-tabname
            w_dd03l-fieldname
          INTO w_field.
        ASSIGN (w_field) TO <fs_field>.
        IF <fs_field> IS INITIAL OR <fs_field> EQ '/'.
          IF w_dd03l-fieldname EQ 'TBNAM'.
            <fs_field> = p_table.
          ELSE.
            <fs_field> = '/'.
          ENDIF.
        ELSE.
          w_flag = 'X'.
        ENDIF.
      ENDLOOP.
      TRANSFER d_bbseg TO w_fname.
  ENDCASE.
ENDFORM.
Edited by: Matt on Dec 15, 2008 5:03 PM - Made subject more informative

Answer 1

Gentlemen:
The problem around this statement:
ASSIGN (w_field) TO <fs_field>
is explained as follows:
1. In ABAP language, there are two ways for assigning a new value to a field-symbol.
- Sentence: ASSIGN (values) TO <my_field_symbol>.
  In this case, the <my_field_symbol> receives from (w_field) the data type and value content of this variable. So, we keep that a FSymbol is assigned and, at the same time, receives an initial value.
- Sentence: <my_field_symbol> = '/' or <my_field_symbol> = my_var.
  In this way, we only pass the content of the variable next to = sign. But before this, the field-symbol must had been assigned (using ASSIGN statement), in another case, the compiler raises an exception.
Following the example of Federico... I think he tried to assign a field like this (please, supose the program imports the structure of a database table with a standard function, into a internal table which is looped by the work area w_field ):
- If w_field contains 'BKPF-WERKS', so sentence ASSIGN will affect the field symbol, passing to this the data type and current content of table field BKPF-WERKS.
- If w_field contains 'BKPF-.INCLUDE': *the column .INCLUDE obviously is not associated with a data type... so our statement ASSIGN... TO... never pass any data type or value to our field-symbol. So that, this field is never initialized properly, and when inmmediately you try to execute something like this: <my_field_symbol> = '/', the game (program) is over.. XD
I hope this post was helpful for anyone...
Best Regards!!
RRG
ABAPer(u) - EVOLution