Using ASSIGN - Field Symbol

I have used
import <GT_POS_DATA> from memory id 'lines'.
and have the same{<GT_POS_DATA>} in my zreport. Now I have to sum
up one field and move it to a variable to be displayed in my report
output.
How shld I proceed.
Thanks in advance.

Hi,
Am facing problem over here :
ASSIGN COMPONENT wkgbtr OF STRUCTURE <WA> TO <FIELD>.
This is the part of code I used :
FIELD-SYMBOLS: <gt_pos_data> TYPE table,
<WA> type any,
<field> type any.
LOOP AT <GT_POS_DATA> ASSIGNING <WA>.
ASSIGN COMPONENT <wa>-wkgbtr OF STRUCTURE <WA> TO <FIELD>.
lV_tot = lV_tot + <FIELD>.
ENDLOOP.

Similar Messages

Proper use of Field symbol .. please help

what is the proper use of field symbol in sap abap ?
Moderator Message: Please do a proper search for such basic questions.
Edited by: kishan P on Sep 13, 2010 4:01 PM

hi Gopal,
The parameter is used to color a cell in ALV grid.
See this example how it is used
http://www.sap-img.com/abap/line-color-in-alv-example.htm
take a closer look at the code where the info is passed
MOVE 'MATNR' TO wa_color-fname.
        MOVE '6'         TO wa_color-color-col.
        MOVE '1'         TO wa_color-color-int.
        MOVE '1'         TO wa_color-color-inv.
        APPEND wa_color TO it_color.
Cheers
VJ
If it helps dont forget to mark points

FB01 - Can we use assignment field to mention GL Account ?

Dear Experts,
We have a requirement regarding India GAAP and in this regard kindly share your valuable inputs.
We are going with account solution ( maintaining multiple accounts)
Current Plan
In this context, we have to maintain many GL Accounts.
Hence we want to maintain few GL Accounts say a single P&L Accounts for IGAAP, wherein while posting IGAAP accounting entry.
We wish to use assignment field to reference the original GL Account against which this valuation entry is posted
Eg: As per US GAAP
       400000 GL Depreciation Plant & Machinery Debit $5500
       200000 GL Accumulated Depreciation Plant & Machinery Credit $5500
      As Per IGAAP, Depreciation amount is $6100, hence the valuation difference ( $6100-$5500= $600)
Line 1-     999999 IGAAP Depreciation Valuation Difference Debit $600
Line 2-      299999 I GAAP Accumulated Difference Credit $600
In the Line Item 1 , in the assignment field , we mention GL Account 400000 as reference and
in the Line Item 2 , in the assignment field , we mention GL Account 299999 as reference.
Query
Can we make a setting in assignment field that GL Account only should be used for the document type, otherwise it should an error.
Note: We would be using seperate document type for the above IGAAP postings.
Regards
Sanjai

Hi,
You can set up a validation for this through OB28.
Thanks,
Vinod.

How to use different field symbols to append data in a loop

Hi experts!
I have to loop over a itab and I want to save different into one table.
See my code below:
DATA: l_hours        TYPE i,
      grfk_ok_code    TYPE sy-ucomm,
      grfk_values     TYPE TABLE OF GPRVAL WITH HEADER LINE,
      grfk_coltxt     TYPE TABLE OF GPRTXT WITH HEADER LINE,
      wa_ztab         TYPE zqm_chq_prueflos,
      l_index      TYPE n,
      l_field      TYPE string,
      l_line_check TYPE string
FIELD-SYMBOLS:
      <fs_0102>   TYPE ANY,
      <fs_0304>   TYPE ANY,
      <fs_0506>   TYPE ANY,
      <fs_grenze> TYPE ANY
REFRESH: grfk_values.
CLEAR:   l_hours.
LOOP AT ztab INTO wa_ztab.
AT NEW qase_serialnr.
    CLEAR: l_line_check.
    IF wa_ztab-qase_serialnr CS '-01'
    OR wa_ztab-qase_serialnr CS '-02'.
        grfk_values-rowtxt = 'gelötet'.
        l_line_check = '0102'.
    ELSEIF wa_ztab-qase_serialnr CS '-03'
    OR     wa_ztab-qase_serialnr CS '-04'.
        grfk_values-rowtxt = 'geglüht'.
        l_line_check = '0304'.
    ELSEIF wa_ztab-qase_serialnr CS '-05'
    OR     wa_ztab-qase_serialnr CS '-06'.
        grfk_values-rowtxt = 'unbehandelt'.
        l_line_check = '0506'.
    ELSE.
      grfk_values-rowtxt = 'serialnr_wrong'.
    ENDIF.
ENDAT.
***---------------------------------------------------->
AT NEW qapp_usern1.
*   X-axis: values are:0,50,100,...,400
    grfk_coltxt-coltxt = wa_ztab-qapp_usern1.
    SHIFT grfk_coltxt-coltxt LEFT DELETING LEADING '0'.
    APPEND grfk_coltxt.
    UNASSIGN <fs_grenze>.
    CLEAR: l_index, l_field.
    l_index = sy-tabix.
    CONCATENATE 'grfk_values-val' l_index INTO l_field.
    ASSIGN (l_field) TO <fs_grenze>.
    IF sy-subrc <> 0.
      EXIT.
    ENDIF.
    <fs_grenze> = 10.
    APPEND grfk_values.
ENDAT.
IF l_line_check = '0102'.
      UNASSIGN <fs_0102>.
      CLEAR: l_index, l_field.
      l_index = sy-tabix.
      CONCATENATE 'grfk_values-val' l_index INTO l_field.
      ASSIGN (l_field) TO <fs_0102>.
      IF sy-subrc <> 0.
        EXIT.
      ENDIF.
      <fs_0102> = wa_ztab-cf_dgp.
ELSEIF l_line_check = '0304'.
      UNASSIGN <fs_0304>.
      CLEAR: l_index, l_field.
      l_index = sy-tabix.
      CONCATENATE 'grfk_values-val' l_index INTO l_field.
      ASSIGN (l_field) TO <fs_0304>.
      IF sy-subrc <> 0.
        EXIT.
      ENDIF.
      <fs_0304> = wa_ztab-cf_dgp.
ELSEIF l_line_check = '0506'.
      UNASSIGN <fs_0506>.
      CLEAR: l_index, l_field.
      l_index = sy-tabix.
      CONCATENATE 'grfk_values-val' l_index INTO l_field.
      ASSIGN (l_field) TO <fs_0506>.
      IF sy-subrc <> 0.
        EXIT.
      ENDIF.
      <fs_0506> = wa_ztab-cf_dgp.
ENDIF.
ENDLOOP.
My goal should be to fill the graphic with 4 Lines:
1 is boarderline.
2-3 are the lines with the looped values in "ztab"
Do I have to use references to write the values in into different rows of internal table "grfk_values"????
With this code I want to fill the itab which I need for the GFW_PRES_SHOW function.
The table I have to commit has the following structure:
-rowtxt
-val1
-val2
-val31
EDIT:
My current output are 2 lines the first has value 0 for each point and the second shows the correct values... The boarder which always should have value 10 is completly not shown.

hopen this will help
report zrich_0001 .
data: begin of itab1 occurs 0,
      fld1(10) type c,
      fld2(10) type c,
      fld3(10) type c,
      end of itab1.
data: begin of itab2 occurs 0,
    flda(10) type c,
    fldb(10) type c,
    fldc(10) type c,
    end of itab2.
field-symbols: <fs_table> type table,
               <fs_wa>,
               <fs>.
data: mod_field(10) type c.
itab1-fld1 = '1'. itab1-fld2 = '2'. itab1-fld3 = '3'. append itab1.
itab1-fld1 = '4'. itab1-fld2 = '5'. itab1-fld3 = '6'. append itab1.
itab2-flda = 'A'. itab2-fldb = 'B'. itab2-fldc = 'C'. append itab2.
itab2-flda = 'D'. itab2-fldb = 'E'. itab2-fldc = 'F'. append itab2.
assign itab1[] to <fs_table>.
assign itab1 to <fs_wa>.
mod_field = 'FLD2'.
perform modify_table.
perform write_table.
assign itab2[] to <fs_table>.
assign itab2 to <fs_wa>.
mod_field = 'FLDC'.
perform modify_table.
perform write_table.
      FORM modify_table                                             *
form modify_table.
loop at <fs_table> into <fs_wa>.
    assign component mod_field of structure <fs_wa> to <fs>.
    <fs> = 'Modified'.
    modify <fs_table> from <fs_wa>.
endloop.
endform.
      FORM write_table                                             *
form write_table.
loop at <fs_table> into <fs_wa>.
    do.
      assign component sy-index of structure <fs_wa> to <fs>.
      if sy-subrc <> 0.
        exit.
      endif.
      if sy-index = 1.
        write:/ <fs>.
      else.
        write: <fs>.
      endif.
    enddo.
endloop.
endform.
regards
navjot
reward points if helpfull

Problem in assigning field symbol to a nested internal table

Hi All,
I have searched the forum but could not find a solution to this problem. I have a requirement where I need to define an internal table within an internal table, so I have used pointer within the outer internal table(itab2) which point to the inner table. However, I am facing problem while assigning the pointer.
data: begin of struct1 occurs 0,
        fld3(10) type C,
       end of struct1.
data: begin of itab2 occurs 0,
        fld1(10) type C,
        fld2(10) type C,
        p_inner like ref to struct1,
      end of itab2.
field-symbols <inner_table> type any.
I want to assign "itab2->p_inner->* " to "<inner_table>".
However, the following statement is Not working:
assign itab2->p_inner->* to <inner_table>.
I want to fill the values within fields fld1, fld2 and fld3 and append it in itab2.
The final table should be like:
ITAB2:
fld1    fld2    fld3
aa      bb      cc
                 dd
                 ee
11      22      33
                 44
                 55
I have tried many other ways too but could not suceed, please help.
Thanks,
Vishal.

Thanks Matt,
But how do I append the values within this internal table ??
When I am using the following code:
ls_wa-fld3 = 'A'.
ls_wa-t_in-fld1 = 'B'.
ls_wa-t_in-fld2 = 'C'.
ls_wa-t_in-fld1 = 'D'.
ls_wa-t_in-fld2 = 'E'.
append ls_wa to lt_tab.
Its giving an error that:
The data object "LS_WA" does not have a component called "T_IN-FLD1".
I wanted the values to be appended in the following way in lt_tab:
fld3     fld1     fld2
A     B     C
     D     E
Please help.

Problem after assigning field-symbol in read statement...

Hello Experts,
I want to use a universal field-symbol in reading my internal tables so
I can avoid declaring multiple work areas. Here is my code:
FIELD-SYMBOLS: <fs_any> type any.
READ TABLE lt_orderadm_h INDEX 1 ASSIGNING <fs_any>.
Now when I try to insert this code:
IF NOT <fs_any>-object_id IS INITIAL.
ENDIF.
It says that <fs_any> has no structure and therefore no component called object_id.
I think that I need to use assign component for this but I don't know the code.
Thank you guys and take care!

Hi
DATA : WA_ITORDERADM_H LIKE LINE OF IT_ORDERADM_H.
**Try to assign the work area rather type any**
FIELD-SYMBOLS: <fs_any> type WA_ITORDERADM_H.
READ TABLE lt_orderadm_h INDEX 1 ASSIGNING <fs_any>.
Now when I try to insert this code:
IF NOT <fs_any>-object_id IS INITIAL.
ENDIF.
Check this program
This works for me
Simple program.
TYPES: BEGIN OF NAME,
NEXTNAME(10),
FIRSTNAME(10),
LASTNAME(10),
END OF NAME.
FIELD-SYMBOLS <F> TYPE NAME.
DATA: LINE(30).
LINE = 'JOHN SMITH SHRI'.
ASSIGN LINE TO <F> CASTING.
WRITE: / 'Lastname:', <F>-LASTNAME,
'Firstname:', <F>-FIRSTNAME,
'Nextname :', <F>-NEXTNAME
Award points if helpful
Thanks
VENKI

Use of FIELD-SYMBOLS

let me know how to use and why to use FIELD-SYMBOLS in the program

Hi,
A field symbol can point to any data object. The data object to which a field symbol points is assigned to it after it has been declared in the program.
Example
DATA: v_char(10).
FIELD-SYMBOLS: <fs>.
ASSIGN v_char to <fs>.
v_char = 10. " The value for v_char is changed.
write: / <fs>.
Thanks,
Naren

I can't use my field-symbols in my select statement...

Hello experts,
I am have been having problems with my report for the past days. My problem is,
I declared a dynamic field symbol so that I can use it in my select statement
instead of the standard internal table. But it is giving me a dump. Below is my code:
REPORT zfr_forex_rev_acctg
       NO STANDARD PAGE HEADING
       LINE-COUNT 0
       LINE-SIZE 100.
Data dictionary tables                       *
TABLES: bsis,
        bsas,
        tcurr,
        t001.
FIELD-SYMBOLS: <fs_dyntable> TYPE STANDARD TABLE,
               <fs_dynline> TYPE ANY,
               <fs_fld>      TYPE ANY,
               <fs_data>     TYPE REF TO data,
               <fs_1>        TYPE ANY,
               <fs_2>        TYPE ANY TABLE.
CLASS lcl_main DEFINITION.
PUBLIC SECTION.
    METHODS: build_table,
             get_data,
             combine_data,
             display_header,
             display_results.
PRIVATE SECTION.
    TYPES: BEGIN OF t_bsis_bsas,
            zuonr TYPE bsis-zuonr,
            gjahr TYPE bsis-gjahr,
            belnr TYPE bsis-belnr,
            bldat TYPE bsis-bldat,
            waers TYPE bsis-waers,
            blart TYPE bsis-blart,
            dmbtr TYPE bsis-dmbtr,
            wrbtr TYPE bsis-wrbtr,
            hkont TYPE bsis-hkont,
            amount TYPE bsis-wrbtr,
           END OF t_bsis_bsas.
    DATA: it_bsis_bsas TYPE STANDARD TABLE OF t_bsis_bsas,
          v_counter TYPE i.
data declarations for internal table
    DATA: lt TYPE lvc_t_fcat,
          ls TYPE lvc_s_fcat,
          fldname(50) TYPE c,
          it_ddfields TYPE TABLE OF ddfield,
          wa_ddfields LIKE LINE OF it_ddfields.
ENDCLASS.
CLASS lcl_main IMPLEMENTATION.
METHOD build_table
METHOD build_table.
    DATA: lv_from    TYPE bsis-gjahr,
          lv_asof    TYPE bsis-gjahr,
          lv_check   TYPE i,
          lt_data TYPE REF TO data,
          lt      TYPE lvc_t_fcat.
    FIELD-SYMBOLS: <fs_year> TYPE gjahr.
    ASSIGN lv_asof TO <fs_year>.
    lv_from = p_year.
    lv_asof = p_asof+0(4).
    v_counter = lv_asof - lv_from.
    wa_ddfields-fieldname = 'ZUONR'.
    wa_ddfields-position = '0001'.
    wa_ddfields-datatype = 'CHAR'.
    wa_ddfields-leng      = '000018'.
    wa_ddfields-decimals = '00000'.
    APPEND wa_ddfields TO it_ddfields.
    wa_ddfields-fieldname = 'GJAHR'.
    wa_ddfields-position = '0002'.
    wa_ddfields-datatype = 'NUMC'.
    wa_ddfields-leng      = '000004'.
    wa_ddfields-decimals = '000000'.
    APPEND wa_ddfields TO it_ddfields.
    wa_ddfields-fieldname = 'BELNR'.
    wa_ddfields-position = '0003'.
    wa_ddfields-datatype = 'CHAR'.
    wa_ddfields-leng      = '000010'.
    wa_ddfields-decimals = '000000'.
    APPEND wa_ddfields TO it_ddfields.
    wa_ddfields-fieldname = 'BLDAT'.
    wa_ddfields-position = '0004'.
    wa_ddfields-datatype = 'DATS'.
    wa_ddfields-leng      = '000008'.
    wa_ddfields-decimals = '000000'.
    APPEND wa_ddfields TO it_ddfields.
    wa_ddfields-fieldname = 'WAERS'.
    wa_ddfields-position = '0005'.
    wa_ddfields-datatype = 'CUKY'.
    wa_ddfields-leng      = '000005'.
    wa_ddfields-decimals = '000000'.
    APPEND wa_ddfields TO it_ddfields.
    wa_ddfields-fieldname = 'BLART'.
    wa_ddfields-position = '0006'.
    wa_ddfields-datatype = 'CHAR'.
    wa_ddfields-leng      = '000002'.
    wa_ddfields-decimals = '000000'.
    APPEND wa_ddfields TO it_ddfields.
    wa_ddfields-fieldname = 'DMBTR'.
    wa_ddfields-position = '0007'.
    wa_ddfields-datatype = 'CURR'.
    wa_ddfields-leng      = '000013'.
    wa_ddfields-decimals = '000002'.
    APPEND wa_ddfields TO it_ddfields.
    wa_ddfields-fieldname = 'WRBTR'.
    wa_ddfields-position = '0008'.
    wa_ddfields-datatype = 'CURR'.
    wa_ddfields-leng      = '000013'.
    wa_ddfields-decimals = '000002'.
    APPEND wa_ddfields TO it_ddfields.
    wa_ddfields-fieldname = 'HKONT'.
    wa_ddfields-position = '0009'.
    wa_ddfields-datatype = 'CHAR'.
    wa_ddfields-leng      = '000010'.
    wa_ddfields-decimals = '000000'.
    APPEND wa_ddfields TO it_ddfields.
    wa_ddfields-fieldname = 'AMOUNT'.
    wa_ddfields-position = '0010'.
    wa_ddfields-datatype = 'CURR'.
    wa_ddfields-leng      = '000010'.
    wa_ddfields-decimals = '000002'.
    APPEND wa_ddfields TO it_ddfields.
    DATA: lv_position TYPE i.
    lv_position = 0011.
    WHILE lv_check < v_counter.
     <fs_year> = lv_asof.
      wa_ddfields-fieldname = <fs_year>.
      wa_ddfields-position = lv_position.
      wa_ddfields-datatype = 'NUMC'.
      wa_ddfields-leng      = '000004'.
      wa_ddfields-decimals = '000000'.
      APPEND wa_ddfields TO it_ddfields.
      lv_asof = lv_asof - 1.
      ADD 1 TO: lv_check, lv_position.
    ENDWHILE.
    CLEAR lv_position.
    lv_position = 1.
    LOOP AT it_ddfields INTO wa_ddfields.
      ls-col_pos   = lv_position.
      ls-row_pos   = lv_position.
      ls-fieldname = wa_ddfields-fieldname.
      APPEND ls TO lt.
      ADD 1 TO lv_position.
    ENDLOOP.
    CLEAR lv_position.
    ASSIGN lt_data TO <fs_data>.
    CALL METHOD cl_alv_table_create=>create_dynamic_table
     EXPORTING
      it_fieldcatalog = lt
     IMPORTING
      ep_table = <fs_data>
     EXCEPTIONS
      generate_subpool_dir_full = 1
     OTHERS = 2.
    IF sy-subrc <> 0.
    ENDIF.
    ASSIGN <fs_data>->* TO <fs_1>.
    ASSIGN <fs_1> TO <fs_2>.
    ASSIGN <fs_1> TO <fs_dyntable>.
ENDMETHOD.
METHOD get_data
METHOD get_data.
*get records from BSIS
    SELECT zuonr gjahr belnr bldat waers blart dmbtr wrbtr hkont
    FROM bsis
    INTO CORRESPONDING FIELDS OF TABLE <fs_dyntable>
    WHERE bukrs = p_bukrs
      AND hkont IN s_hkont
      AND budat <= p_asof.
*get records from BSAS
    SELECT zuonr gjahr belnr bldat waers blart dmbtr wrbtr hkont
    FROM bsas
    APPENDING CORRESPONDING FIELDS OF TABLE <fs_dyntable>
    WHERE bukrs = p_bukrs
      AND hkont IN s_hkont
      AND budat <= p_asof
      AND augdt > p_asof.
ENDMETHOD.
START-OF-SELECTION.
DATA: main TYPE REF TO lcl_main.
CREATE OBJECT main.
CALL METHOD main->build_table.
CALL METHOD main->get_data.
Need help on this problem. Thanks a lot guys and take care!

Hi guys,
I found out the problem and Andreas is right. Now, I am having problems when including DMBTR, WRBTR in my select statement. All the others are ok. Here is my modified code. Please suggest what I need to add/modify. Thanks a lot!
CLASS lcl_main IMPLEMENTATION.
METHOD build_table
METHOD build_table.
    DATA: lv_from    TYPE bsis-gjahr,
          lv_asof    TYPE bsis-gjahr,
          lv_check   TYPE i,
          lt_data TYPE REF TO data,
          lt      TYPE lvc_t_fcat.
    FIELD-SYMBOLS: <fs_year> TYPE gjahr.
    ASSIGN lv_asof TO <fs_year>.
    lv_from = p_year.
    lv_asof = p_asof+0(4).
    v_counter = lv_asof - lv_from.
ZUONR
    wa_ddfields-fieldname = 'ZUONR'.
    wa_ddfields-position = '0001'.
    wa_ddfields-datatype = 'CHAR'.
    wa_ddfields-leng      = '000018'.
    wa_ddfields-decimals = '00000'.
    APPEND wa_ddfields TO it_ddfields.
GJAHR
    wa_ddfields-fieldname = 'GJAHR'.
    wa_ddfields-position = '0002'.
    wa_ddfields-datatype = 'NUMC'.
    wa_ddfields-leng      = '000004'.
    wa_ddfields-decimals = '000000'.
    APPEND wa_ddfields TO it_ddfields.
BELNR
    wa_ddfields-fieldname = 'BELNR'.
    wa_ddfields-position = '0003'.
    wa_ddfields-datatype = 'CHAR'.
    wa_ddfields-leng      = '000010'.
    wa_ddfields-decimals = '000000'.
    APPEND wa_ddfields TO it_ddfields.
BLDAT
    wa_ddfields-fieldname = 'BLDAT'.
    wa_ddfields-position = '0004'.
    wa_ddfields-datatype = 'DATS'.
    wa_ddfields-leng      = '00008'.
    wa_ddfields-decimals = '000000'.
    APPEND wa_ddfields TO it_ddfields.
WAERS
    wa_ddfields-fieldname = 'WAERS'.
    wa_ddfields-position = '0005'.
    wa_ddfields-datatype = 'CUKY'.
    wa_ddfields-leng      = '000005'.
    wa_ddfields-decimals = '000000'.
    APPEND wa_ddfields TO it_ddfields.
BLART
    wa_ddfields-fieldname = 'BLART'.
    wa_ddfields-position = '0006'.
    wa_ddfields-datatype = 'CHAR'.
    wa_ddfields-leng      = '000002'.
    wa_ddfields-decimals = '000000'.
    APPEND wa_ddfields TO it_ddfields.
DMBTR
    wa_ddfields-fieldname = 'DMBTR'.
    wa_ddfields-position = '0007'.
    wa_ddfields-datatype = 'CURR'.
    wa_ddfields-leng      = '000013'.
    wa_ddfields-decimals = '000002'.
    APPEND wa_ddfields TO it_ddfields.
WRBTR
    wa_ddfields-fieldname = 'WRBTR'.
    wa_ddfields-position = '0008'.
    wa_ddfields-datatype = 'CURR'.
    wa_ddfields-leng      = '000013'.
    wa_ddfields-decimals = '000002'.
    APPEND wa_ddfields TO it_ddfields.
HKONT
    wa_ddfields-fieldname = 'HKONT'.
    wa_ddfields-position = '0009'.
    wa_ddfields-datatype = 'CHAR'.
    wa_ddfields-leng      = '000010'.
    wa_ddfields-decimals = '000000'.
    APPEND wa_ddfields TO it_ddfields.
AMOUNT
    wa_ddfields-fieldname = 'AMOUNT'.
    wa_ddfields-position = '0010'.
    wa_ddfields-datatype = 'CURR'.
    wa_ddfields-leng      = '000010'.
    wa_ddfields-decimals = '000002'.
    APPEND wa_ddfields TO it_ddfields.
    DATA: lv_position TYPE i.
    lv_position = 0011.
Additional fields for the years
    WHILE lv_check < v_counter.
      wa_ddfields-fieldname = <fs_year>.
      wa_ddfields-position = lv_position.
      wa_ddfields-datatype = 'NUMC'.
      wa_ddfields-leng      = '000004'.
      wa_ddfields-decimals = '000000'.
      APPEND wa_ddfields TO it_ddfields.
      lv_asof = lv_asof - 1.
      ADD 1 TO: lv_check, lv_position.
    ENDWHILE.
    CLEAR lv_position.
    lv_position = 1.
    LOOP AT it_ddfields INTO wa_ddfields.
      CASE wa_ddfields-fieldname.
        WHEN 'BLDAT'.
          ls-col_pos   = lv_position.
          ls-row_pos   = lv_position.
          ls-fieldname = wa_ddfields-fieldname.
          ls-inttype   = 'D'.
          ls-ref_table = 'BSIS'.
          ls-ref_field = 'BLDAT'.
        WHEN 'WAERS'.
          ls-col_pos   = lv_position.
          ls-row_pos   = lv_position.
          ls-fieldname = wa_ddfields-fieldname.
          ls-ref_table = 'BSIS'.
          ls-ref_field = 'WAERS'.
        when 'DMBTR'.
          ls-col_pos   = lv_position.
          ls-row_pos   = lv_position.
          ls-fieldname = wa_ddfields-fieldname.
          ls-ref_table = 'BSIS'.
          ls-ref_field = 'DMBTR'.
        when 'WRBTR'.
          ls-col_pos   = lv_position.
          ls-row_pos   = lv_position.
          ls-fieldname = wa_ddfields-fieldname.
          ls-ref_table = 'BSIS'.
          ls-ref_field = 'WRBTR'.
        WHEN OTHERS.
          ls-col_pos   = lv_position.
          ls-row_pos   = lv_position.
          ls-fieldname = wa_ddfields-fieldname.
      ENDCASE.
      APPEND ls TO lt.
      ADD 1 TO lv_position.
    ENDLOOP.
    CLEAR lv_position.
    ASSIGN lt_data TO <fs_data>.
    CALL METHOD cl_alv_table_create=>create_dynamic_table
     EXPORTING
      it_fieldcatalog = lt
     IMPORTING
      ep_table = <fs_data>
     EXCEPTIONS
      generate_subpool_dir_full = 1
     OTHERS = 2.
    IF sy-subrc <> 0.
    ENDIF.
    ASSIGN <fs_data>->* TO <fs_1>.
    ASSIGN <fs_1> TO <fs_2>.
    ASSIGN <fs_1> TO <fs_dyntable>.
ENDMETHOD.

Assign field symbols in infotype 0021 BADI implementation (HRPAD00INFTY )

Hi there,
In PA30 infotype 0021, i have to change the value of T_VIEW_REPID by implementing BADI HRPAD00INFTY [Program MP002100->screen 2000->MODULE BEFORE_OUTPUT->PERFORM badi_before_output(sapfp50m)]. I'm trying to use field symbols (as below) to change the value of T_VIEW_REPID and getting SY-SUBRC = 4 after the Assign (LV_WA) To <FS_REPID>. Can somebody please help.
method IF_EX_HRPAD00INFTY~BEFORE_OUTPUT.
Data: LV_WA(20) Type C Value '(MPPDAT02)VIEW_REPID'.
Types: T_VIEW_REPID Type T582V-REPID.
Field-Symbols: <FS_REPID> Type T_VIEW_REPID.
Assign (LV_WA) To <FS_REPID>.
endmethod.
Thanks.

Try like this
method IF_EX_HRPAD00INFTY~BEFORE_OUTPUT.
Data: LV_WA(20) Type C Value '(MP002100)VIEW_REPID'.
Types: T_VIEW_REPID Type T582V-REPID.
Field-Symbols: <FS_REPID> Type T_VIEW_REPID.
Assign (LV_WA) To <FS_REPID>.
endmethod.

UrGENT-DUMP while querying database table into itab(Assigned field Symbol)

Hi,
__I am getting a dump whose description is as follows__-
"" In an SQL array select, the internal table used to hold the
selected records must be at least as wide as the database table
from which the records are being read.
In this particular case, the database table is 820 bytes wide,
but the internal table is only 814 bytes wide.""
The following code had been written:
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_tabl TYPE dd02l-tabname.                                      "Table Name
SELECTION-SCREEN END OF BLOCK b1.
FIELD-SYMBOLS: <fs_itab> TYPE STANDARD TABLE,
               <fs_wa> TYPE ANY,
               <fs_itab1> TYPE STANDARD TABLE,
               <fs_wa1> TYPE ANY.
FORM generate_internal_tab .
DATA: o_itab TYPE REF TO data,
        o_wa TYPE REF TO data,
        o_itab1 TYPE REF TO data,
        o_wa1 TYPE REF TO data.
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
    EXPORTING
      i_structure_name       = p_tabl
    CHANGING
      ct_fieldcat            = it_fcat
    EXCEPTIONS
      inconsistent_interface = 1
      program_error          = 2
      OTHERS                 = 3.
*Create Dynamic Table for it_fcat
CALL METHOD cl_alv_table_create=>create_dynamic_table
    EXPORTING
      it_fieldcatalog           = it_fcat
    IMPORTING
      ep_table                  = o_itab
    EXCEPTIONS
      generate_subpool_dir_full = 1
      OTHERS                    = 2.
IF sy-subrc EQ 0 OR o_itab IS NOT INITIAL.
    ASSIGN o_itab->* TO <fs_itab>.
    CREATE DATA o_wa LIKE LINE OF <fs_itab>.
    ASSIGN o_wa->* TO <fs_wa>.
ENDIF.
*Download the file to Application server
    SELECT *
      FROM (p_tabl)
      INTO TABLE <fs_itab>.
So i am geting a dump in placing contents of table(p_tabl) into <fs_itab>.Should the type declarations be changed???
Please give me an solution to resolve this dump.
Thanks and regards-
Sumita

You are trying to put more fields in the internal table than what is declared presently for itab. Check if one of the fields is selected but not being passed on to a internal table field.

Doubt in using a Field symbols

Hi gurus,
i want to use field symbols for a varying fields in a table.
like my fields are ZPER01 SHKZG01
                          ZPER02 SHKZG02
                          ZPER03 SHKZG03
                         ......ZPER0N SHKZG0N
now i have to populate values in this using field symbols how do i do it.(These fields are in a custom table)
thanks in advance,
Vanathi
Edited by: vanathi sekar on May 2, 2008 2:15 PM

DATA: BEGIN OF text,
        word1 TYPE c LENGTH 4 VALUE 'AAAA',
        word2 TYPE c LENGTH 4 VALUE 'BBBB',
        word3 TYPE c LENGTH 4 VALUE 'CCCC',
        word4 TYPE c LENGTH 4 VALUE 'DDDD',
      END OF text.
DATA: word TYPE c LENGTH 4,
      char1 TYPE c LENGTH 1,
      char2 TYPE c LENGTH 1,
      leng TYPE i.
FIELD-SYMBOLS <word> LIKE text-word1.
DATA inc TYPE i.
DESCRIBE FIELD text LENGTH leng IN CHARACTER MODE.
leng = leng / 2.
DO leng TIMES VARYING char1 FROM text(1)
                            NEXT text+2(1) RANGE text
              VARYING char2 FROM text+1(1)
                            NEXT text+3(1) RANGE text.
WRITE: char1, char2.
char1 = 'x'.
char2 = 'y'.
ENDDO.
DO 4 TIMES VARYING word FROM text-word1 NEXT text-word2.
WRITE / word.
ENDDO.
DO.
inc = sy-index - 1.
ASSIGN text-word1 INCREMENT inc TO <word> RANGE text.
IF sy-subrc = 0.
    WRITE / <word>.
ELSE.
    EXIT.
ENDIF.
ENDDO.
Please assign points.

Assigning field symbol

I want to assign member area of several fields to a <fs>. For example,
TYPES: BEGIN OF ty_ex,
    header TYPE char150,
    item1   TYPE char20,
    value1 TYPE i,
    item2   TYPE char20,
    value2 TYPE i,
END OF ty_ex,
BEGIN OF ty_item,
    item TYPE char20,
    value TYPE i,
END OF ty_item.
DATA:
     l_ex TYPE ty_ex.
FIELD-SYMBOLS <item> TYPE ty_item.
I want to make <item> points to l_ex-item1 and l_ex-value1.
In abap, we can use 'ASSIGN dobj[+off][(len)] TO <fs>'. But in my case, the header is char150 long which exceeds to limit of (off + len) 131.
Please advice. Thanks.

Hi,
Please check these links....
[Basic form of assign statement|http://help.sap.com/saphelp_nw04/helpdata/en/fc/eb38d5358411d1829f0000e829fbfe/content.htm]
[Assigning components of a structure to a field symbol|http://help.sap.com/saphelp_nw04/Helpdata/EN/fc/eb3923358411d1829f0000e829fbfe/content.htm]
Hope this would help you.
Good luck
Narin

Assigning field symbol to a form parameter

Hello there.
I got this huge string that concatenates several columns from a structure and I have to distribute these data into fields of a generic work area in a FORM.
The thing is that I can't find the right way to pass this work area and when I try to assign my field symbol a dump occurs.
Could anyone give me a tip?
<b>Here is what I'm doing:</b>
Form Nameform <how to pass?> p_workarea
loop at it_tab
    CONCATENATE 'p_table-' it_tab-fieldname INTO campo.
    ASSIGN (campo) TO <fs>.
endloop.
When I debug it, the program sees p_workarea, but when I try to see a specific field like p_workarea-kunnr, it's like it doesn't exists.

Thanks Matt,
But how do I append the values within this internal table ??
When I am using the following code:
ls_wa-fld3 = 'A'.
ls_wa-t_in-fld1 = 'B'.
ls_wa-t_in-fld2 = 'C'.
ls_wa-t_in-fld1 = 'D'.
ls_wa-t_in-fld2 = 'E'.
append ls_wa to lt_tab.
Its giving an error that:
The data object "LS_WA" does not have a component called "T_IN-FLD1".
I wanted the values to be appended in the following way in lt_tab:
fld3     fld1     fld2
A     B     C
     D     E
Please help.

Using of field-symbols iw32

Hello to everyone!
I've found in forum a special trick, wich in userexit for Headerdetails of servceorder give me information about position:
data: element(50) type c,
sresbd like resbd.
field-symbols: <iresbd> type table.
element = '(SAPLCOBC)RESB_BT[]'.
assign (element) to <iresbd>.
When I tried to debug I can read for example material number od the third position with
<iresbd>[3]- matnr
but in the program, after using this code I get the message that this field dosent exist.

I still don't follow what you are referring as Field Symbols. If you talking about using Form variables dynamically in a query then check this thread
Variables in query ??
Suda

Using Assignment field or Segment field for adding product information

Hello people,
My costumer is using the new general ledger and wants too be able too add product information too FI postings. They have put their focus on using either the assignment field or the segment field (other options are not a possibility). Using the segment field will make profibility analysis easier because of existing reports. However, Iu2019ve heard of performance issues when the amount of segments used increases too say 50 or more. Does anyone have any experience with either 1 of these situations and or some good advice?
Many thanks,
Kees

As you have mentioned, reflection error mostly occurs when there is a object type mismatch.
If it is of type object reference then try
newMember.getFieldMetadata("VENDOR_REF").set(newMember,vendorBean.getObjectReference());
Further, check if the vendor object enclosed in the collection member "newMember" and the vendor object "vendorBean" are of the same type.
regards,
Immanuel

Using ASSIGN - Field Symbol

Similar Messages

Maybe you are looking for