Regarding Field Symbols

Hi All,
Im selecting values into an internal table say ' 0001...0010 ' and i have concatenated prefix with 'PA' to them (which will be PA0001 ... PA0010 )
and appened in the internal table.
Now based on this values in the internal table say PA0001...PA0010 (which are table names) I have to select an entry say PERNR into another internal table.
Please help me to solve this using Field symbols Points will be regarded fully if found usefull.
Thanks,
Sarath.C

Hi Sarath,
if your tables PA0001 ....PA0010 have different structures, use something like:
DATA: ref_itab TYPE REF TO data.
FIELD-SYMBOLS: <fs_itab> TYPE ANY TABLE.
 DATA: BEGIN OF itab OCCURS 0,
 tabname TYPE tabname,
 ref_itab TYPE REF TO data.
DATA: END OF itab.
 FIELD-SYMBOLS: <fs_wa_itab> LIKE itab.
 DATA: wa_itab LIKE itab.
 CLEAR wa_itab.
MOVE 'ZKG00001' TO wa_itab-tabname.
APPEND wa_itab TO itab.
 CLEAR wa_itab.
MOVE 'ZKGPERIOD' TO wa_itab-tabname.
APPEND wa_itab TO itab.
 LOOP AT itab ASSIGNING <fs_wa_itab>.
CLEAR ref_itab.
 CREATE DATA ref_itab TYPE STANDARD TABLE OF (<fs_wa_itab>-tabname)
 WITH DEFAULT KEY.
<fs_wa_itab>-ref_itab = ref_itab.
ASSIGN ref_itab->* TO <fs_itab>.
 SELECT * FROM (<fs_wa_itab>-tabname) INTO TABLE <fs_itab>
 UP TO 10 ROWS.
ENDLOOP.
Kind regards
Henner

Similar Messages

Help in eroor in field symbol

Hallow I have this error
"<FS_ANY2>" is not an internal table.
I try to change <FS_ANY2> to TYPE STANDARD TABLE but I have DUMP in
CONCATENATE 'LT_P' l_infty INTO l_field2. what is the best way to solve it?
regards
FIELD-SYMBOLS: <fs_any> TYPE ANY,
 <fs_any2> TYPE any.
 DATA: l_field TYPE string,
 l_field2 TYPE string.
 DATA: l_infty TYPE char4.
 IF ( <wa_lcl_pers_tab>-infty EQ '0000' ) OR ( <wa_lcl_pers_tab>-infty EQ '0002').
 l_infty = <wa_lcl_pers_tab>-infty.
 CONCATENATE 'LS_P' l_infty INTO l_field .
 CONCATENATE 'LT_P' l_infty INTO l_field2.
 ASSIGN (l_field) TO <fs_any>.
 ASSIGN (l_field) TO <fs_any2>.
 LOOP AT infty_tab_after INTO ls_prelp.
 CALL METHOD cl_hr_pnnnn_type_cast=>prelp_to_pnnnn "Convert: semi-transparent -> transparent infotype
 EXPORTING
 prelp = ls_prelp
 IMPORTING
 pnnnn = <fs_any>.
 APPEND <fs_any> TO <fs_any2>.
 ENDLOOP.
 ENDIF.
REGARDS

hi uwe
sorry for timeing
i use your code and its working maybe u can explain to me the code in bold.
regards
Hello Shnya
Your logic looks to complicated for me. The semi-transparent ls_prelp "knows" its infotype. Thus, you could simplify your coding as following:
DATA:
ldo_data TYPE REF TO DATA.
ld_tabname TYPE tabname.
FIELD-SYMBOLS:
<ls_pnnnn> TYPE any.
LOOP AT infty_tab_after INTO ls_prelp.
CONCATENATE 'PA' ls_prelp-infty INTO ld_tabname.
 CREATE DATA ldo_data TYPE (ld_tabname). "this code
ASSIGN ldo_data->* TO <ls_pnnnn>.
CALL METHOD cl_hr_pnnnn_type_cast=>prelp_to_pnnnn
EXPORTING
 prelp = ls_prelp
IMPORTING
 pnnnn = <ls_pnnnn>.
CASE ls_prelp-infty.
 WHEN '0000'.
 APPEND <ls_pnnnn> TO <lt_any>. " line type PA0000
 WHEN '0002'.
 APPEND <ls_pnnnn> TO <lt_any1>. " line type PA0002
 WHEN others.
 ENDCASE.
ENDLOOP.
Regards
Uwe

Regarding error "Field symbol is not assigned." during print preview

Hi experts,
    I am getting dump while trying print preview for particular POs in ME23n transaction(ECC 6.0). Please refer the below dump error:
Runtime Errors         GETWA_NOT_ASSIGNED_RANGE
Date and Time          29.09.2009 19:30:39
Short dump has not been completely stored (too big)
Short text
     Field symbol is not assigned.
What happened?
     Error in the ABAP Application Program
     The current ABAP program "SAPLSTXC" had to be terminated because it has
     come across a statement that unfortunately cannot be executed.
What can you do?
     Note down which actions and inputs caused the error.
     To process the problem further, contact you SAP system
     administrator.
     Using Transaction ST22 for ABAP Dump Analysis, you can look
     at and manage termination messages, and you can also
     keep them for a long time.
Error analysis
     A field symbol that was not assigned was accessed
     (data segment no. 32769).
    The field symbol is no longer assigned because there was an attempt
    makde previously in a Unicode program to set the field symbol using
    ASSIGN with offset and/or length specification. Here, the memory
    addressed by the offset/length specification was not within the
    allowed area.
How to correct the error
    If the error occures in a non-modified SAP program, you may be able to
    find an interim solution in an SAP Note.
    If you have access to SAP Notes, carry out a search with the following
    keywords:
    "GETWA_NOT_ASSIGNED_RANGE" " "
    "SAPLSTXC" or "LSTXCFFT"
    "FT_COMPOSE"
    If you cannot solve the problem yourself and want to send an error
    notification to SAP, include the following information:
    1. The description of the current problem (short dump)
       To save the description, choose "System->List->Save->Local File
    (Unconverted)".
   2. Corresponding system log
      Display the system log by calling transaction SM21.
      Restrict the time interval to 10 minutes before and five minutes
   after the short dump. Then choose "System->List->Save->Local File
   (Unconverted)".
   3. If the problem occurs in a problem of your own or a modified SAP
   program: The source code of the program
      In the editor, choose "Utilities->More
   Utilities->Upload/Download->Download".
   4. Details about the conditions under which the error occurred or which
   actions and input led to the error.
I am getting this dump only for few POs.. Rest of the POs are able to print. I am not able to find notes for this issue. Is there any SAP notes available for that or Is there any configuration issue related to this?
Please provide solution for thsi as soon as possible.
Thanks and Regards
Subbu

A field symbol is not assigned, but thats what the dump is telling you. Mostly this happens, when fields or function modules are stored by name, like the fieldnames in the fieldcatalog in an ALV report. It a field referenced in such a way does not exist you will get this error. Always store fieldnames and function names in capital letters and check mistyping of 1L 8B and so on.

Regarding problem with assigning field to Field symbols

Hi All,
We are migrating(recreating) the program which was in 4.7 to ECC 6.0.
In 4.7 they are using the below code for assigning the field to fieldsymbol from work area as shown below.
ASSIGN wa_kostl_kstar-wkg001+offset TO <von>
wa_kostl_kstar is a work area and wkg001 is the fourth field and wkg011 is 13th field and it is taking this filed into field symbol <Von>.
In Ecc 6.0 th same code is not being accepted and throwing syntax error.
So they had changed the code in ECC 6.0 to
ASSIGN wa_kostl_kstar-wkg001+(offset) TO <von>
And there was no syntax error and while testing it goes to dump.
I had tested in 4.7 and its working fine taking the value of 13 th field to <von>,and like wise there are some other assign statements after,like this.
So any one please let me know what to do in this case.
Regards,
MADHAVA.

Hi,
Hope below example can give you an idea on handling your case:
TYPES: BEGIN OF t_sal_ord,
 vbeln TYPE vbeln_va,
 posnr TYPE posnr_va,
 auart TYPE auart,
 vkorg TYPE vkorg,
 matnr TYPE matnr,
 END OF t_sal_ord.
DATA: wa_mara TYPE mara.
DATA: wa_sal_ord TYPE t_sal_ord.
FIELD-SYMBOLS: <fs_matkl>,
 <fs_vkorg>.
ASSIGN COMPONENT 'MATKL' OF STRUCTURE wa_mara TO <fs_matkl>.
IF sy-subrc NE 0.
EXIT.
ENDIF.
ASSIGN COMPONENT 'VKORG' OF STRUCTURE wa_sal_ord TO <fs_vkorg>.
IF sy-subrc NE 0.
EXIT.
ENDIF.
Kind Regards
Eswar

Modify DB by single field using Field Symbol

Hi,
please help me ,actually i have not use the field symbol in any object. i have one requirement ,i have to modify the DB by field STATUS using Field symbol ,
I am sending u my code so please help me how can i modify DB using field symbol..
 gw_msg3_status1 = k_status1 .
 LOOP AT gi_msg3 INTO gs_msg3.
 gs_msg3-status = gw_msg3_status1 .
 gs_msg3-issue = lw_issuno.
 MODIFY gi_msg3 FROM gs_msg3 TRANSPORTING status.
 MODIFY gi_msg3 INDEX sy-tabix FROM gs_msg3 TRANSPORTING issue status.
 ENDLOOP.
Thanks & Regards,
Meenakshi

perform dboperation_table using 'SET' 'BIRTHDT' '=' <fs>.
 perform dboperation_table using 'WHERE' 'PARTNER' '=' <fs>
 perform dboperation_update using 'BUT000'.
form dboperation_table
using p_type
 p_var1
 p_var2
 p_var3.
data: t_l type cmst_str_data.
data: d_cx_root type ref to cx_root,
 d_text type string.
try.
 clear t_l.
 if p_var3 is not initial.
 t_l = p_var3.
 condense t_l.
 concatenate '''' t_l '''' into t_l.
 endif.
 concatenate p_var1 p_var2 t_l into t_l
 separated by space.
 case p_type.
 when 'SET'. append t_l to g_s_t.
 when 'WHERE'. append t_l to g_w_t.
 endcase.
 catch cx_root into d_cx_root.
 d_text = d_cx_root->get_text( ).
 message a398(00) with d_text.
endtry.
endform. "DBOPERATION_table
form dboperation_update
using p_tabname type zdboperation-tabname.
data: tabname type bus_table.
data: d_cx_root type ref to cx_root,
 d_text type string.
try.
 tabname-tabname = p_tabname.
 call function 'ZDBOPERATION_UPDATE'
 in update task
 exporting
 tabname = tabname
 tables
 where_table = g_w_t
 set_table = g_s_t.
 catch cx_root into d_cx_root.
 d_text = d_cx_root->get_text( ).
 message a398(00) with d_text.
endtry.
endform. "DBOPERATION_update
Hope it will help you.
Regards,
Madan.

Field symbols and READ TABLE with system code 4

Hi,
I have a hashed table and I am using field symbols to point to it to retrieve the field content. I then use it in the READ TABLE statement in the following way:
Loop at x_data assign <fs>.
ASSIGN COMPONENT 'xxx' OF STRUCTURE <fs> TO <c1>.
ASSIGN COMPONENT 'xxx' OF STRUCTURE <fs> TO <c2>.
READ TABLE ZZZZ assign <fs> with table key a1 = <c1>
a2 = <c2>.
If sy-subrc = 0.
endif.
I ran the debugger and I keep getting a 4. I am not able to get the value from a1 and a2 to see what it is and why it is causing a 4 sy-subrc. I know the value from the hashed table and the values c1 and c2 are the same, so the sy-subrc should be 0.
How would I read a hashed table using field symbols? I know that usig a standard table, I have to sort the table on the key fields() before I actually can do the READ TABLE using the binary search.
Please advise. Thanks
RT

Hai Rob
Go through the following Code
Field-Symbols are place holders for existing fields.
A Field-Symbol does not physically reserve space for a field but points to a field, which is not known until run time of the program.
Field-Symbols are like Pointers in Programming language C .
Syntax check is not effective.
Syntax :
Data : v1(4) value abcd.
Field-symbols <fs>.
Assign v1 to <fs>.
Write:/ <fs>.
DATA: BEGIN OF LINE,
COL1 TYPE I,
COL2 TYPE I,
END OF LINE.
DATA ITAB LIKE SORTED TABLE OF LINE WITH UNIQUE KEY COL1.
FIELD-SYMBOLS <FS> LIKE LINE OF ITAB.
DO 4 TIMES.
LINE-COL1 = SY-INDEX.
LINE-COL2 = SY-INDEX ** 2.
APPEND LINE TO ITAB.
ENDDO.
READ TABLE ITAB WITH TABLE KEY COL1 = 2 ASSIGNING <FS>.
<FS>-COL2 = 100.
READ TABLE ITAB WITH TABLE KEY COL1 = 3 ASSIGNING <FS>.
DELETE ITAB INDEX 3.
IF <FS> IS ASSIGNED.
WRITE '<FS> is assigned!'.
ENDIF.
LOOP AT ITAB ASSIGNING <FS>.
WRITE: / <FS>-COL1, <FS>-COL2.
ENDLOOP.
The output is:
1 1
2 100
4 16
Thanks & regards
Sreenivasulu P

Field symbol has not yet been assigned. ???

Dear Experts ,
W hen i tried to execute my program this error appears :
Short text
    Field symbol has not yet been assigned.
What happened?
    Error in the ABAP Application Program
    The current ABAP program "SAPLSLVC" had to be terminated because it has
    come across a statement that unfortunately cannot be executed.
Error analysis
    You attempted to access an unassigned field symbol
    (data segment 32821).
    This error may occur if
    - You address a typed field symbol before it has been set with
      ASSIGN
    - You address a field symbol that pointed to the line of an
      internal table that was deleted
    - You address a field symbol that was previously reset using
      UNASSIGN or that pointed to a local field that no
      longer exists
    - You address a global function interface, although the
      respective function module is not active - that is, is
      not in the list of active calls. The list of active calls
      can be taken from this short dump.
and Here is my CODE :
*& Report ZPO
Report ZPO1.
type-pools slis.
PARAMETERS : PO_Doc like EKBE-EBELN DEFAULT '4800000007'.
PARAMETERS : Plant TYPE WERKS DEFAULT '1000'.
PARAMETERS : PO_ORG TYPE EKORG DEFAULT ''.
data TtlS type mara-wesch .
data TtlH type mara-wesch .
data Ttl type mara-wesch .
data ZEKBE type TABLE OF EKBE.
data ZEKBER type EKBE.
data ZEKPO type TABLE OF EKPO.
data ZEKPOR type EKPO.
data ZEKKOR TYPE EKKO.
data ZNAME1F type LFA1-LIFNR.
data ZWGBEZF TYPE T023T-WGBEZ.
data i type n.
data counter type n.
types : begin of SBAGDS,
Serial Type n, "Purchase Order
EBELN like EKKO-EBELN, "Purchase Order
MATNR like EKPO-MATNR, "Material
TXZ01 like EKPO-TXZ01, "Short Text
MATKL like EKPO-MATKL, "Material Group
WGBEZ like T023T-WGBEZ, "Material Group Desc"
SUBMI like EKKO-SUBMI, "GPM
CHARG like EKBE-CHARG, "Batch
LIFNR like EKKO-LIFNR, "Vendor
NAME1 like LFA1-NAME1, "Vendor Name
RECV like mara-wesch, "Received Quantity
REVR like mara-wesch, "Reversed Quantity
DELV like mara-wesch, "Delivered Quantity
end of SBAGDS .
DATA : BAGDS TYPE SBAGDS OCCURS 0 WITH HEADER LINE.
data Struc like BAGDS.
data: gr_table like BAGDS OCCURS 0 WITH HEADER LINE.
data: gt_fieldcat type slis_t_fieldcat_alv, gt_outtab type SBAGDS occurs 0 with header line.
INITIALIZATION.
i = 0.
counter = 0 .
perform field_cat_init using gt_fieldcat[].
FORM field_cat_init using rt_fieldcat type slis_t_fieldcat_alv.
data: ls_fieldcat type slis_fieldcat_alv,
         pos type i value 1.
clear LS_FIELDCAT.
*Column 1
ls_fieldcat-col_pos           = pos.
ls_fieldcat-fieldname        = 'Serial'.
ls_fieldcat-SELTEXT_L      = 'Serial'.
ls_fieldcat-DDICTXT          = 'L'.
append ls_fieldcat to rt_fieldcat.
clear ls_fieldcat.
pos = pos + 1.
*Column 2
ls_fieldcat-col_pos           = pos.
ls_fieldcat-fieldname        = 'EBELN'.
ls_fieldcat-SELTEXT_L      = 'Purchase Order'.
ls_fieldcat-DDICTXT          = 'L'.
append ls_fieldcat to rt_fieldcat.
clear ls_fieldcat.
pos = pos + 1.
*Column 3
ls_fieldcat-col_pos           = pos.
ls_fieldcat-fieldname        = 'MATNR'.
ls_fieldcat-SELTEXT_L      = 'Material'.
ls_fieldcat-DDICTXT          = 'L'.
append ls_fieldcat to rt_fieldcat.
clear ls_fieldcat.
pos = pos + 1.
*Column 4
ls_fieldcat-col_pos           = pos.
ls_fieldcat-fieldname        = 'TXZ01'.
ls_fieldcat-SELTEXT_L      = 'Short Text'.
ls_fieldcat-DDICTXT          = 'L'.
append ls_fieldcat to rt_fieldcat.
clear ls_fieldcat.
pos = pos + 1.
*Column 5
ls_fieldcat-col_pos           = pos.
ls_fieldcat-fieldname        = 'MATKL'.
ls_fieldcat-SELTEXT_L      = 'Material Group'.
ls_fieldcat-DDICTXT          = 'L'.
append ls_fieldcat to rt_fieldcat.
clear ls_fieldcat.
pos = pos + 1.
*Column 6
ls_fieldcat-col_pos           = pos.
ls_fieldcat-fieldname        = 'WGBEZ'.
ls_fieldcat-SELTEXT_L      = 'Material Group Desc'.
ls_fieldcat-DDICTXT          = 'L'.
append ls_fieldcat to rt_fieldcat.
clear ls_fieldcat.
pos = pos + 1.
*Column 7
ls_fieldcat-col_pos           = pos.
ls_fieldcat-fieldname        = 'SUBMI'.
ls_fieldcat-SELTEXT_L      = 'GPM'.
ls_fieldcat-DDICTXT          = 'L'.
append ls_fieldcat to rt_fieldcat.
clear ls_fieldcat.
pos = pos + 1.
*Column 8
ls_fieldcat-col_pos           = pos.
ls_fieldcat-fieldname        = 'CHARG'.
ls_fieldcat-SELTEXT_L      = 'Batch'.
ls_fieldcat-DDICTXT          = 'L'.
append ls_fieldcat to rt_fieldcat.
clear ls_fieldcat.
pos = pos + 1.
*Column 9
ls_fieldcat-col_pos           = pos.
ls_fieldcat-fieldname        = 'LIFNR'.
ls_fieldcat-SELTEXT_L      = 'Vendor'.
ls_fieldcat-DDICTXT          = 'L'.
append ls_fieldcat to rt_fieldcat.
clear ls_fieldcat.
pos = pos + 1.
*Column 10
ls_fieldcat-col_pos           = pos.
ls_fieldcat-fieldname        = 'NAME1'.
ls_fieldcat-SELTEXT_L      = 'Vendor Name'.
ls_fieldcat-DDICTXT          = 'L'.
append ls_fieldcat to rt_fieldcat.
clear ls_fieldcat.
pos = pos + 1.
*Column 11
ls_fieldcat-col_pos           = pos.
ls_fieldcat-fieldname        = 'RECV'.
ls_fieldcat-SELTEXT_L      = 'Received Quantity'.
ls_fieldcat-DDICTXT          = 'L'.
append ls_fieldcat to rt_fieldcat.
clear ls_fieldcat.
pos = pos + 1.
*Column 12
ls_fieldcat-col_pos           = pos.
ls_fieldcat-fieldname        = 'REVR'.
ls_fieldcat-SELTEXT_L      = 'Reversed Quantity'.
ls_fieldcat-DDICTXT          = 'L'.
append ls_fieldcat to rt_fieldcat.
clear ls_fieldcat.
pos = pos + 1.
*Column 13
ls_fieldcat-col_pos           = pos.
ls_fieldcat-fieldname        = 'DELV'.
ls_fieldcat-SELTEXT_L      = 'Delivered Quantity'.
ls_fieldcat-DDICTXT          = 'L'.
append ls_fieldcat to rt_fieldcat.
clear ls_fieldcat.
pos = pos + 1.
endform.
START-OF-SELECTION.
       select SINGLE * from EKKO into ZEKKOR where EBELN = PO_DOC.
       select SINGLE * from EKPO into ZEKPOR where EBELN = PO_DOC.
       select SINGLE NAME1 from LFA1 into ZNAME1F where LIFNR = ZEKKOR-LIFNR.
*         ' Buliding Structure
          Struc-EBELN = ZEKPOR-EBELN.
          Struc-SUBMI = ZEKKOR-SUBMI.
          Struc-LIFNR = ZEKKOR-LIFNR.
          Struc-Name1 = ZNAME1F.
       select * from EKPO into TABLE ZEKPO where EBELN = PO_Doc and WERKS = plant.
       LOOP at ZEKPO into ZEKPOR.
           select SINGLE WGBEZ from T023T into ZWGBEZF WHERE MATKL = ZEKPOR-MATKL .
           counter = counter + 1.
*         ' Buliding Structure
          Struc-Serial = counter.
          Struc-MATNR = ZEKPOR-MATNR.
          Struc-TXZ01 = ZEKPOR-TXZ01.
          Struc-MATKL = ZEKPOR-MATKL.
          Struc-WGBEZ = ZWGBEZF.
*          Calcualting Debit transactions from PO History
           select * from EKBE into table ZEKBE where EBELN = PO_Doc and MATNR = ZEKPOR-MATNR and EBELP = ZEKPOR-EBELP and BWART NOT LIKE '' and SHKZG = 'S'.
           LOOP AT ZEKBE INTO ZEKBER.
               TtlS = TtlS + ZEKBER-MENGE.
           ENDLOOP.
*          ' Buliding Structure
           Struc-CHARG = ZEKBER-CHARG.
           Struc-RECV = TtlS.
           Ttl = TtlS.
           clear TtlS.
*         Calcualting Credit transactions from PO History
         select * from EKBE into table ZEKBE where EBELN = PO_Doc and MATNR = ZEKPOR-MATNR and EBELP = ZEKPOR-EBELP and BWART NOT LIKE '' and SHKZG = 'H'.
           LOOP AT ZEKBE INTO ZEKBER.
               TtlH = TtlH + ZEKBER-MENGE.
           ENDLOOP.
*          ' Buliding Structure
           Struc-REVR = TtlH.
*          Calculating Total Delivered
           Ttl = Ttl - TtlH.
           clear TtlH.
*          ' Buliding Structure
           Struc-DELV = Ttl.
           clear Ttl.
*      Writtng ITAB
       APPEND Struc to BAGDS.
       ENDLOOP.
*      Reading ITAB
*       WRITE : / , 'ITAB Begin : '    .
*       loop at BAGDS into Struc.
*         counter = counter + 1.
*         write : /,'Serial : ',counter.
*         write : / ,'PO : ',Struc-EBELN.
*         write : / ,'Vendor : ',Struc-LIFNR.
*         write : / ,'Vendor Name : ',Struc-NAME1.
*         write : / ,'Material : ',Struc-MATNR.
*         write : /,'Short Text: ',Struc-TXZ01.
*         write : / ,'Model : ',Struc-MATKL.
*         write : / ,'Model Desc : ',Struc-WGBEZ.
*         write : /,'GPM : ',Struc-SUBMI.
*         write : /,'Lot : ',Struc-CHARG.
*         write : /,'Received : ',Struc-RECV.
*         write : /,'Reversed : ',Struc-REVR.
*         write : /,'Delivered : ',Struc-DELV,/,/,/.
*       ENDLOOP.
* Call ALV Grid Viewer
*BREAK-POINT.
gr_Table[] = BAGDS[].
   CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
        EXPORTING
             I_STRUCTURE_NAME   = 'SBAGDS'
             IT_FIELDCAT          = gt_fieldcat[]
        TABLES
             T_OUTTAB                  = gr_Table.
Please Advise
Edited by: Sap Sap on Jul 27, 2009 12:18 PM
Edited by: Sap Sap on Jul 27, 2009 12:22 PM
Edited by: Sap Sap on Jul 27, 2009 12:22 PM

Hi,
The problem seems to be in your ALV grid display.
The reason must be your field catalog.
Just check your fieldcatalog.
The value in the fieldname field of the fieldcatalog should be same as the fieldname in your internal table and should be in capital letters.
Probably you must have mistyped some field.
Kinldy check.
Regards,
Ankur Parab

How can i concatenate single quote to a field symbol

hi
i have a senario where i have to concatenate a single quote (') to the field symbol. it is simple but i' m not able to do that.
concatenate ''' <f> ''' into lv_f.
CONCATENATE lv_condition_temp lv_f INTO
lv_condition_temp
SEPARATED BY space.
this is the code which i used. could someone help me in solving this...
thanks & regards,
subha....

hi
i tried using the following code
data : lv_text(10) type c.
concatenate ''' <f> ''' into lv_text.
it is giving me a spelling or incorrect comma error.
thanks & regards,
subhashini.

Field symbol with top of page in reuse_alv_list

When using the top_of_page in REUSE_ALV_LIST_DISPLAY
I had in the old programm reference to values in the outtab for the header in the new programm I use dynamic tables and I wonder how to add those values in a header.
 CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
 EXPORTING
 i_callback_program = h_repid
 i_callback_pf_status_set = 'SET_PF_STATUS'
 i_callback_user_command = 'USER_COMMAND'
* i_structure_name = 'ZDOORBEL_ALV'
* IT_EVENTS = TEVENTS
 is_layout = slayout
 it_fieldcat = it_fieldcat[]
 it_sort = tsort[]
 i_save = a_save
 is_variant = variant
 TABLES
 t_outtab = <ta_output>
in my top_of_page I try to read the current row of <ta_output> but I have no clue on how to do it. I gives the error that there is no workarea assigned to <ta_output>
anybody knows how to read the current line of <ta_output> in top_of_page ?
kind regards
arthur de smidt

I have
* fieldsymbols voor dynamische ALV tabel
FIELD-SYMBOLS: <ta_output> TYPE table ,
 <ta_color> TYPE table,
 <l_line> TYPE ANY,
 <wa_output> type any,
 <wa> TYPE ANY,
 <l_field> TYPE ANY,
 <fs> TYPE ty_pernrs.
FORM top_of_page.
CREATE DATA new_line LIKE LINE OF <ta_output>.
ASSIGN new_line->* TO <wa_output>.
read table <ta_output> assigning <wa_output> index sy-tabix.
if ra_pernr = 'X'.
if <wa_output>-week = space or <wa_output>-pernr = '00000000'.
but still it says that the
The data object "<WA_OUTPUT>" has no structure and therefore no
component called "WEEK" . .
Edited by: A. de Smidt on Jun 26, 2008 11:07 AM

ALV report with internal in field symbol

Hi Shifu ABAP,
I have ALV report.
My problem is when I tried to do sum using the sum icon. I got a message 'desired operation cannot be performed for column 'Dignostic delay'. Is it because I used field symbol, then when I clicked on the column it didn't recorgnise the field.
FYI.
1)The internal table for my ALV report is stored in field symbol.
2)I dont have a problem to display the report.
3)I had to set 'do_sum' at ALV field category, still doesn't work
My source code to define ALV category.
loop at i_qpcd into wa_qpcd.
CLEAR ls_fieldcat2.
ls_fieldcat2-col_pos = pos2.
ls_fieldcat2-fieldname = wa_qpcd-code.
ls_fieldcat2-reptext_ddic = wa_qpcd-desc.
ls_fieldcat2-just = 'C'.
ls_fieldcat2-do_sum = 'X'.
APPEND ls_fieldcat2 TO gt_fieldcat2.
endloop.
My source code call the ALV FM
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
 i_callback_program = 'ZMPMR001_Q1OOT'
 i_callback_pf_status_set = 'PF_STATUS_SET'
 is_layout = ls_layout
 it_fieldcat = gt_fieldcat2[]
 is_print = ls_print
TABLES
 t_outtab = <l_table>
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.
Thanks a lot in advance for your attention.

my situation is like this, declare the internal tble
1) data : begin of itab occurs 0,
 code like qpcd-code,
 desc like QPCT-KURZTEXT,
 end of itab.
2) populate the itab like this
code desc
01 desc 1
02 desc 2
03 desc 3
3) take the selected record converted it into new dynamic internal table using field symbol declare as table, now the component of this new table are 01, 02 and 03.
4) populate the new table with some data, so technically my new table structure will be like this
01 02 03
1 0 1
0 0 3
2 2 2
5) display the new table in ALV report, in ALV I tried to sum-up each of column.
6) Question : HOW can I convert the componet 01, 02 and 03 as an integer/numeric field.
Regards
Nislina

Field symbol has not yet been defined-ALV Grid Display in Report

Hi all,
Iam calling a Function module for ALV grid display in Report programming. Its throwing the Error message Field Symbol has not yet defined. Can any one suggest what i have to do regarding it?

Hi,
<li> This is problem with fieldcatalog.
<li> Check field names or table name in small letters in quotes while building fieldcatalog internal table
<li> Check the fieldcatalog internal table , whether it has same fields as in data table which is shown using GRID_DISPLAY function module.
Thanks
Venkat.O

Field-Symbols: How to retrieve data into an internal table from FS

Hello All,
I am working on field symbols.I have declared the field symbols as shown.
FIELD-SYMBOLS: <gt_pos_data> TYPE table,
 <wa_pos_data> like <gt_pos_data>.
Data: Begin of itab occurs 0,
 field1(5) type c,
 field2(10)_type c,
 end of itab.
The FS <gt_pos_data> has 100 fields but I need to move only two fields from this FS to my internal table itab.I am doing the following.
loop at <gt_pos_data> assigning <wa_pos_data>.
itab-field1 = <wa_pos_data>-field1.
itab-field2 = <wa_pos_data>-field2.
append itab.
clear itab.
endloop.
But it is giving me an error saying "<wa_pos_data> is a table without header line and therefore has no componet FIELD1".How to achieve this requirement?
Thanks in advance
Sandeep

<wa_pos_data> should be defined LIKE LINE OF <gt_pos_data>, but it will still have no structure, so you need to assign a field symbol to the component as well.
FIELD-SYMBOLS: <gt_pos_data> TYPE table,
 <wa_pos_data> like LINE OF <gt_pos_data>,
 <field> type any.
Data: Begin of itab occurs 0,
field1(5) type c,
field2(10)_type c,
end of itab.
loop at <gt_pos_data> assigning <wa_pos_data>.
assign componet 'FIELD1' of structure <wa_pos_data> to <field>.
if sy-subrc = 0.
itab-field1 = <field>.
endif.
assign componet 'FIELD2' of structure <wa_pos_data> to <field>.
if sy-subrc = 0.
itab-field2 = <field>.
endif.
append itab.
clear itab.
endloop.
Regards,
Rich Heilman

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

Assigning value to Field - Symbol ( which is type of internal table field )

Hi All,
I am facing problem to assign the value to a field symbol. My requirement is creating a dynamic internal table and populate values into that internal table, so that i can display the values .
I am having a structure with fields like status , Plant1 name , Plant2 name.....Plant n .
So i declared an internal table it_tab with this structure.
I am having one more table which having number of records for Plant1 ,Plant 2 ,....Plant n based on some condition.
I need to count the number of records for Plant1 and i need to put in the internal table it_tab.
For this i created field-symbol .
Here, t_deployment table will have the plants 1,2,3...and
 t_devobject will have some records for these plants.
LOOP AT T_DEPLOYMENT.
clear w_count.
LOOP AT T_DEVOBJECT WHERE ZDEPLOYMENT = T_DEPLOYMENT-DOMVALUE_L AND
 ZADSTATUS = '10'.
w_count = w_count + 1.
ENDLOOP.
concatenate 'it_tab-' t_deployment-domvalue_l into var_bet_name.
assign var_bet_name to <bet_var_name>.
now my internal table field i.e. it_tab-plant1 came into <bet_var_name> . But i want to assign a value for it.
at last what i need is it_tab-plant1 = w_count.
whaterver the w_count has value that needs to assign to it_tab-plant1. But i don't want to assign directly it it_tab-plant1. I want to assign dynamically. Because tommorrow some more plants added to t_deployments , i don't want to make changes to my program. It should take care....w/o changing the program.
I tried the following statement.
(<bet_var_name>) = w_count. But its not working.
Please let me know how i can get this.
Thanks in Advance.
Pavan.

Hi pavan,
As ur requirement is creating a dynamic internal table,
try the following way,
remember the fieldcat should be of type LVC not SLIS.
BUILD LT_LVCFIELDCAT in a way that, the value from the internal table becomes the fieldname
ex:-
loop at it_models INTO WA_MODELS.
 LS_LVCFIELDCAT-FIELDNAME = WA_models-MODEL.
 LS_LVCFIELDCAT-SELTEXT = WA_models-MODEL.
append ls_lvcfieldcat to lt_lvcfieldcat.
endloop.
DATA: DREF TYPE REF TO DATA,WA_REF TYPE REF TO DATA.
FIELD-SYMBOLS: <TEMP_TAB> TYPE TABLE, <TEMP_WA> TYPE ANY.
CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE
 EXPORTING
 IT_FIELDCATALOG = LT_LVCFIELDCAT
 IMPORTING
 EP_TABLE = DREF.
ASSIGN dref->* TO <TEMP_TAB>.
now basing on the fieldcatalog <temp_tab> is build.
NOW FILL <TEMP_TAB>.
WHILE FILLING, ASSIGN COMPONENT IDX/NAME.....
this statement will be very usefull.
i hope this will be help full.
pls reward the points if it helps u.
regards
Hyma

Field Symbols Assign Type Conflict

Hi,
 I am working on a BAdi Implementation and have the following code.
method IF_EX_DPR_ATTRIBUTES~SET_DEFAULTS_UPON_CREATION .
FIELD-SYMBOLS:
 <ls_attributes> TYPE dpr_ts_project_ext.
ASSIGN cs_attributes TO <ls_attributes> .
CASE flt_val.
 WHEN cl_dpr_co=>sc_ot_project.
 <ls_attributes>-extended_attributes-ZZSOL_PRJ_ID = 'C0001'.
ENDCASE.
ENDMETHOD.
This is the sample implementation code provided by SAP. However, when I implement the above code, the system dumps at the statement
 ASSIGN cs_attributes TO <ls_attributes> .
and cs_attributes is of type any.
I tried the same code by adding "CASTING" at the end of above line. But, it still gives the dump. Below, is the dump message.
Note
The following error text was processed in the system BS3 : Error in ASSIGN in the program ZCL_IM_DPR_ATTRIBUTES=========CP .
The error occurred on the application server acequad_BS3_30 and in the work process 0 .
The termination type was: RABAX_STATE
The ABAP call stack was:
Form: IF_EX_DPR_ATTRIBUTES~SET_DEFAULTS_UPON_CREATION of program ZCL_IM_DPR_ATTRIBUTES=========CP
Form: IF_EX_DPR_ATTRIBUTES~SET_DEFAULTS_UPON_CREATION of program CL_EX_DPR_ATTRIBUTES==========CP
Form: ATTRIBUTES_DEFLTS_UPON_ACTION of program CL_DPR_BADI_SERVICES==========CP
Form: ATTRIBUTES_DEFAULTS_UPON_CREA of program CL_DPR_BADI_SERVICES==========CP
Form: SET_DEFAULTS_UPON_CREATION of program CL_DPR_PROJECT================CP
Form: SET_DEFAULTS_UPON_CREATION of program CL_DPR_PROJECT_O==============CP
Form: CONSTRUCTOR of program CL_DPR_PROJECT_O==============CP
Form: IF_DPR_APPL_OBJECT_FACTORY~CREATE_PROJECT of program CL_DPR_APPL_OBJECT_FACTORY====CP
Form: CREATE of program CL_DPR_BSP_APPLICATION========CP
Form: DO_HANDLE_EVENT of program CL_DPR_BSP_C_TOOLS============CP
Any ideas on how to use field symbols in the above context??
Thanks,
Rajesh

Hi Rajesh,
The reason it is dumping is because the actually type of the variable passed in CS_ATTRIBUTES is not fixed this is why they have specified it's type as type any.
The sample code in this regard is not correct, you should fist check the value of FLT_VAL to determine what type of variable CS_ATTRIBUTES actually is.
In the BADI documentation there is a list of values for field FLT_VALUE and the corresponding data type of CS_ATTRIBUTES for that value (According to the documentation the data type for FLT_VAL sc_ot_project is DPR_TS_PROJECT_INT).
method IF_EX_DPR_ATTRIBUTES~SET_DEFAULTS_UPON_CREATION .
FIELD-SYMBOLS:
<ls_attributes> TYPE dpr_ts_project_int.
* ASSIGN cs_attributes TO <ls_attributes> .
CASE flt_val.
WHEN cl_dpr_co=>sc_ot_project.
ASSIGN cs_attributes TO <ls_attributes> .
<ls_attributes>-extended_attributes-ZZSOL_PRJ_ID
 = 'C0001'.
ENDCASE.
ENDMETHOD.
In this example you will ultimately end up with multiple field symbols for representing the CS_ATTRIBUTES parameter, one field symbol for each filter value you intend handling.
From
De Wildt

Regarding Field Symbols

Similar Messages

Maybe you are looking for