Field symbols and delete internal table.

Hi,
I wish to implement <fs> in this case:
LOOP AT intable ASSIGNING <fs> WHERE condition
IF condition1.
DELETE intable
ANDLOOP
I know that if the condition1 is verified, the <fs> will be unassigned but in this case I lose the loop.
Any Idea? ... Or is it impossible to handle?
Thanks in advance.
Regards,
Giovanni

If you know the standard table name in the start routine , then you can create a dynamic structure after adding a field flag, then you can use that as
call function 'LVC_FIELDCATALOG_MERGE'
    exporting
      i_structure_name = p_table
    changing
      ct_fieldcat      = i_fcat
    exceptions
      others           = 1.
if sy-subrc = 0.
    loop at i_fcat assigning <fcat>.
      <fcat>-tabname = p_table.
      <fcat>-fieldname = 'FLAG'
      .... " after giving other attributes for the flag field
     append <fcat> to i_fcat.
    endloop.
    call function 'LVC_FIELDCAT_COMPLETE'
      changing
        ct_fieldcat = i_fcat
      exceptions
        others      = 1.
endif.
call method cl_alv_table_create=>create_dynamic_table
    exporting
      it_fieldcatalog = i_fcat
    importing
      ep_table        = i_content.
if sy-subrc = 0.
    assign i_content->* to <fs>.
endif.
a®

Similar Messages

Are field symbols and Dynamic internal tables consistant?

Hi,
Are field symbols and Dynamic internal tables
always consistent?
In my program I m creating a dynamic itab and assignig values to it using <FS>, sometimes the program fails to execute assign <Fs> statement...
this happens once in 3 to 4 runs
any solution...
I have proper clear and refresh statements in program.
Thanks,
Hardik

Anurag,
Thanks for a quick reply. Here I am sending a small piece of my code.
MOVE-CORRESPONDING OUTTAB TO DYNTAB.
      CLEAR IT_UDATE.
      CLEAR : T_KBETR .
      READ TABLE IT_UDATE WITH KEY UDATE = OUTTAB-UDATE.
      CONCATENATE 'DYNTAB-KBETR' IT_UDATE-CO_POS INTO T_KBETR.
      ASSIGN (T_KBETR) TO <FS> .
      SUBRC5 = SY-SUBRC .
      IF SUBRC5 = 0 .
          <FS> = OUTTAB-KBETR .
      ENDIF .
read statement will always return CO_POS .
while debuging this code a few times
<b>ASSIGN (T_KBETR) TO <FS> .</b>
returns sy-subrc = 4
and that was leading the program to short dump earlier.
now, as I have a check DYNTAB-KBETR holds no value on display.
this happens very few times. (most of the times report is displaying desired output)
Thanks,
Hardik

Data from field symbol into an internal table or workarea

Hi Experts,
I have field symbol in which i get the data. I want to get this data into an internal table of type any or into an work area. How is this possible.
My declaration for field symbol is as follow:
FIELD-SYMBOLS: <l_t_data> TYPE any.
DATA l_r_data TYPE REF TO data.
    CREATE DATA l_r_data type STANDARD TABLE OF (l_local_tab).
    ASSIGN l_r_data->* TO <l_t_data>.
I get the data in this field symbol <l_t_data>. by passing into a funtion module. and I get the data into it. Now i have to assign the values of this field symbol to any internal table or to a work are how do i do it. Please help.
Regards,
Prashant.

Not exactly sure what you need here, but.....
FIELD-SYMBOLS: <l_t_data> TYPE TABLE.   "<<-- Change this
FIELD-SYMBOLS: <l_s_data> TYPE ANY.      "<<---Add This
DATA l_r_data TYPE REF TO data.
CREATE DATA l_r_data type STANDARD TABLE OF (l_local_tab).
ASSIGN l_r_data->* TO <l_t_data>.
Loop at <l_t_data> assigning <l_s_data>.
* Do what ever using <l_s_data>
Endloop.
Regards,
Rich Heilman
Edited by: Rich Heilman on Feb 28, 2008 2:42 PM

Move Field symbol data to Internal table

Dear All,
                 Please suggest how to move field symbol data to internal table. The requirement is I have dynamic data in Field symbol which to move to table parameter of a function module.
Thanks in Advance
Rams.

Dear All,
                In need to pass tabular data i.e. multiple entries from field symbol to the table parameter of the custom function module.
Field symbol is declared as below:
FIELD-SYMBOLS: <FS_EXCEL_TAB> TYPE STANDARD TABLE,
                             <FS_TABLE_HEADER> .
DATA WA_PD LIKE PRICE_DOWNLOAD.
APPEND <FS_TABLE_HEADER> TO <FS_EXCEL_TAB>.
CLEAR <FS_TABLE_HEADER>.
WA_PD-VKORG = <FS_EXCEL_TAB>-VKORG.u201D Problem while using this statement
APPEND WA_PD TO PRICE_DOWNLOAD.
   CLEAR WA_PD.
Field symbol <FS_EXCEL_TAB> is populated like this.
VKORG | KUNNR_SH | KUNNR_SP |
0015      | 102105       | 102105       |
Now I need to move this data to table in tables parameter of custom fucntion module.
Thanks in advance,
Rams

ALV display using dynamic field catalog and dynamic internal table

hi ,
please guide me for ALV display using dynamic field catalog and dynamic internal table.
Thank you.

Hi Rahul,
maybe thread dynamic program for alv is helpful for you. More information about the [SAP List Viewer (ALV)|http://help.sap.com/saphelp_nw70/helpdata/EN/5e/88d440e14f8431e10000000a1550b0/frameset.htm]. Also have a look into the example programs SALV_DEMO_TABLE*.
Regards Rudi

Field Symbols and dinamicaly selecting tables

I want to be able to select dinamicaly witch table to print.
their structure is the very similar but not equal (the order of the elements change)
so far im getting a "The data object "<WA_T>" has no structure and therefore no component ..." error
how can give it a structure?
FIELD-SYMBOLS: <t> TYPE STANDARD TABLE,
                   <wa_t> TYPE ANY.
    IF r1 = 'X'.
      ASSIGN ('TABI') TO <t>.
      ASSIGN ('WA_TABI') TO <wa_t>.
    ELSEIF r2 = 'X'.
      ASSIGN ('TABI2') TO <t>.
      ASSIGN ('WA_TABI2') TO <wa_t>.
    ELSEIF r3 = 'X'.
      ASSIGN ('TABI3') TO <t>.
      ASSIGN ('WA_TABI3') TO <wa_t>.
    ENDIF.
    LOOP AT <t> INTO <wa_t>.
      WRITE:/ <wa_t>-vkorg,
              <wa_t>-name1,
              <wa_t>-vbeln,
              <wa_t>-audat,
              <wa_t>-vbeln_d,
              <wa_t>-wadat_ist,
              <wa_t>-vbeln_b,
              <wa_t>-fkdat,
              <wa_t>-gbstk.
    ENDLOOP.
Edited by: RagnaRock on Apr 8, 2010 12:18 PM

The fields to be printed can not be directly referred in the field symbol. Use 'ASSIGN COMPONENT' statement to access the fileds.
Modified the above program as per your requirements....
FIELD-SYMBOLS: <t> TYPE STANDARD TABLE,
                            <wa_t> TYPE ANY,
                            <field> TYPE ANY.
TYPES : BEGIN OF ty_tab,
         vbeln TYPE vbeln,
         erdat TYPE erdat,
        END OF ty_tab.
DATA : tabi TYPE STANDARD TABLE OF ty_tab,
       wa_tabi TYPE ty_tab.
SELECT vbeln erdat FROM vbak
INTO TABLE tabi
UP TO 10 ROWS.
ASSIGN ('TABI') TO <t>.
ASSIGN ('WA_TABI') TO <wa_t>.
LOOP AT <t> ASSIGNING <wa_t>.
ASSIGN COMPONENT 'VBELN' OF STRUCTURE <wa_t> TO <field>. "Refer a particular field
WRITE:/ <field>.
ENDLOOP.
Edited by: Satyajit on Apr 8, 2010 4:21 PM

How to Copy data from field symbol to Dynamic Internal Table

Hi,
I want to copy the data between two dynamic Internal tables . Following is the code were I have data in the field symbol wanted to transfer it to the other Internal table :
REPORT ztest.
DATA:
       gd_dref          TYPE REF TO data,
       gd_dref1          TYPE REF TO data.
FIELD-SYMBOLS: <fs1>   TYPE any,
                           <fs_wa> TYPE any,
                            <field>    TYPE any,
                            <fs_wa1> TYPE ANY TABLE. * Contains data from p_src
*Copy data from p_src to p_dest*
PARAMETERS: p_src LIKE dd02l-tabname .    * Name of Dynamic Internal table *
                         p_dest LIKE dd02l-tabname . * Name of Dynamic Internal table*
*DATA : lt_csks LIKE p_dest WITH HEADER LINE.
START-OF-SELECTION.
CREATE DATA gd_dref TYPE (p_src).
CREATE DATA gd_dref1 TYPE TABLE OF (p_src).
   ASSIGN gd_dref->* TO <fs_wa>.
   ASSIGN gd_dref1->* TO <fs_wa1>.
   SELECT * FROM (p_src) INTO TABLE <fs_wa1>.
*Write out data from FIELD SYMBOLS TO Table.
   loop at <fs_wa1> into <fs_wa>.
     do.
       assign component sy-index
          of structure <fs_wa> to <field>.
       if sy-subrc <> 0.
       exit.
       endif.
       if sy-index = 1.
         write:/ <field>.
       else.
       write: / <field>.
       endif.
     enddo.
   endloop.
*Need Logic To Copy the Data to p_dest table from <fs_wa1>.
*p_dest is a table having a similar structure to table p_src .
*Need Logic To Copy the Data to p_dest table from <fs_wa1>.
EXIT.
Thanks in Advance.

try this...
I have extended your source code and just used vbak/vbap as an example as they have some common fields like vbeln/erdat etc which corresponds with your requirement of 'similar structure' i.e. shared/common fields in both.
Cheers...
report ztest.
data:
gd_dref type ref to data,
gd_dref1 type ref to data,
gd_dref_str type ref to data,
gd_dref_tab type ref to data.
field-symbols:
<fs1> type any,
<fs_wa> type any,
<fs1_dest_str> type any,
<fs_dest_tab> type any table,
<field> type any,
<fs_wa1> type any table.
* contains data from p_src
*Copy data from p_src to p_dest*
parameters: p_src like dd02l-tabname default 'vbak',
* name of dynamic internal table *
            p_dest like dd02l-tabname default 'vbap'.
* name of dynamic internal table*
*data : lt_csks like p_dest with header line.
start-of-selection.
create data gd_dref type (p_src).
create data gd_dref1 type table of (p_src).
assign gd_dref->* to <fs_wa>.
assign gd_dref1->* to <fs_wa1>.
select * from (p_src) into corresponding fields of table <fs_wa1>
up to 3 rows
where vbeln ne space.
create data gd_dref_str type (p_dest).
create data gd_dref_tab type standard table of (p_dest).
assign gd_dref_str->* to <fs1_dest_str>.
assign gd_dref_tab->* to <fs_dest_tab>.
*write out data from field symbols to table.
loop at <fs_wa1> into <fs_wa>.
    " break-point here - can see vbeln/waers/create date/ etc move over to new structure
    " the 'common' fields of your structures - the same will happen. if they not the same name you will have to do an
    " explicit move i.e. if fieldname = xyz ....move fieldxyz to new field123....after the move-corre
    break-point.
    move-corresponding <fs_wa> to <fs1_dest_str>.
    insert <fs1_dest_str> into table <fs_dest_tab>.
**    do.
**      assign component sy-index
**         of structure <fs_wa> to <field>.
**      if sy-subrc <> 0.
**        exit.
**      endif.
**      if sy-index = 1.
**        write:/ <field>.
**      else.
**        write: / <field>.
**      endif.
**    enddo.
endloop.
" write out some dest data from the dest table build from previous loop
loop at <fs_dest_tab> assigning <fs1_dest_str>.
    do.
      assign component sy-index of structure <fs_wa> to <field>.
      if sy-subrc <> 0.
        exit.
      endif.
      if sy-index = 1.
        write:/ <field>.
      else.
        write: / <field>.
      endif.
    enddo.
endloop.

Accessing the variable in field symbol of nested internal table

Hi,
I am unable to access the variable in field symbol.
The data in field symbol has nested structure. We need to access a variable in nested structure.
Please find the code below:
      LOOP AT <i_fincorp> into <fs_fincorp>.
        l_madefor = <FS_FINCORP>-data_UI-ZZ0010.
      ENDLOOP.
datatype of <i_fincorp> is type any table and <fs_fincorp> is type any.
there is a structure 'data_ui' in <i_fincorp> and we need value of field 'ZZ0010' in data_ui structure.
But, we are getting syntax error for statement in loop stating "There is no component like 'data_ui' in <fs_fincorp>".
Can anyone please help me solving this issue.
Regards,
Santosh

So simply access it dynamically
data: nested_field type c length 50.
field-symbols <nested_field> type any.
"build the nested field name dynamically
concatenate
       'DATA_UI'    "first give structure name
       'ZZ0010' "then give field name (all in uppercase!)
into nested_field
separated by '-'. "now you have DATA_UI-ZZ0010
"so assing this nested field
LOOP AT <i_fincorp> into <fs_fincorp>.
   assign component (nested_field) of structure <fs_fincorp> into <nested_field>.
ENDLOOP.
Regards
Marcin

Field-symbols and internal table

Hello,
How do I declare a field-symbol as an intenal table?
I have a internal table declared, but i need to declare a field symbols as my internal table´s type. How do I do it?
What I wrote was this:
DATA: BEGIN OF IT_INTE OCCURS 0,
           FIELD(3) TYPE C,
       END OF IT_INTE.
FIELD-SYMBOLS: isn´t defined as an internal table, how do I fix it.
Thanks!!!
Gabriel.

It is very much possible to have a field symbol point to a internal table. Here is some sample code.
report zrich_0001.
data: begin of itab1 occurs 0,
      fld1(10) type c,
      fld3(10) type c,
      fld5(10) type c,
      end of itab1.
data: wa1 like line of itab1.
field-symbols: <fs_table> type table.
field-symbols: <fs_wa>.
field-SYMBOLS: <fs_field>.
* Setup the data
itab1-fld1 = '0000000001'.
itab1-fld3 = '0000000002'.
itab1-fld5 = '0000000003'.
append itab1.
itab1-fld1 = '0000000004'.
itab1-fld3 = '0000000005'.
itab1-fld5 = '0000000006'.
append itab1.
assign itab1[] to <fs_table>.
assign wa1     to <fs_wa>.
loop at <fs_table> into <fs_wa>.
* Write out each field of the line
do.
       assign COMPONENT sy-index of structure <fs_wa> to <fs_field>.
    if sy-subrc <> 0.
      exit.
      endif.
      write:/ <fs_field>.
enddo.
skip 2.
endloop.
Regards,
Rich Heilman

Difference between Field symbols and work area for Internal tables

Hi,
In ECC versions we all know that we need to declare the internal tables without headerline, and for handling the internal tables we need to use exclusive work areas.
Currently i have an issue that we have been asked to use field symbols instead of work areas...can any one help me how to use the field symbols and also let me know how it will improve the performance of the program..
Thanks and Regards,
Kathir

Hi
DATA: WA TYPE ITAB.
LOOP AT ITAB INTO WA.
IF WA-FIELD = .....
ENDIF.
ENDLOOP.[(code]
FIELD-SYMBOLS <WA> TYPE ANY.
LOOP AT ITAB ASSIGNING <WA>.
ENDLOOP.
Now the problem is you can't know the name of the fields of the table at runtime, so you can't write:
IF <WA>-FIELD = .....
ENDIF.
Anyway you can create a field-symbols strcturated like the table:
[code]FIELD-SYMBOLS <WA> TYPE ITAB.
LOOP AT ITAB ASSIGNING <WA>.
IF <WA>-FIELD = .....
ENDIF.
ENDLOOP.
I don't know which are the differences for the performance between to use a field-symbol and to use a structure as work-area.
The differnce between the field-symbols and work-area is the field-symbol is assigned directly to the record, so u don't need to do a MODIFY statament to change something:
LOOP AT ITAB INTO WA.
WA-FIELD =
MODIFY ITAB FROM WA.
ENDLOOP.
LOOP AT ITAB ASSIGNING <WA>.
<WA>-FIELD =
ENDLOOP.
These two pieces of abap code do the same action, so probably the field-symbol improve the performance because it do an access directly to the record without to use an external structure as workarea.
Max

Re: field symbols and interna table

hi,
here is field symbol which is table type
FIELD-SYMBOLS: <gt_pos_data> TYPE table.
there is one internal table it_data.
how can move <gt_pos_data> to it_data.
please help me.
rgds

Hi
You can assign field wise:
like
<gt_pos_data>- field to to it_data-field.
Field Symbols
Field symbols are placeholders or symbolic names for other fields. They do not physically reserve space for a field, but point to its contents. A field symbol cam 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.
Whenever you address a field symbol in a program, you are addressing the field that is assigned to the field symbol. After successful assignment, there is no difference in ABAP whether you reference the field symbol or the field itself. You must assign a field to each field symbol before you can address the latter in programs.
Field symbols are similar to dereferenced pointers in C (that is, pointers to which the content operator * is applied). However, the only real equivalent of pointers in ABAP, that is, variables that contain a memory address (reference) and that can be used without the contents operator, are reference variables in ABAP Objects.
All operations programmed with field symbols are applied to the field assigned to it. For example, a MOVE statement between two field symbols moves the contents of the field assigned to the first field symbol to the field assigned to the second field symbol. The field symbols themselves point to the same fields after the MOVE statement as they did before.
You can create field symbols either without or with type specifications. If you do not specify a type, the field symbol inherits all of the technical attributes of the field assigned to it. If you do specify a type, the system checks the compatibility of the field symbol and the field you are assigning to it during the ASSIGN statement.
Field symbols provide greater flexibility when you address data objects:
If you want to process sections of fields, you can specify the offset and length of the field dynamically.
You can assign one field symbol to another, which allows you to address parts of fields.
Assignments to field symbols may extend beyond field boundaries. This allows you to address regular sequences of fields in memory efficiently.
You can also force a field symbol to take different technical attributes from those of the field assigned to it.
The flexibility of field symbols provides elegant solutions to certain problems. On the other hand, it does mean that errors can easily occur. Since fields are not assigned to field symbols until runtime, the effectiveness of syntax and security checks is very limited for operations involving field symbols. This can lead to runtime errors or incorrect data assignments.
While runtime errors indicate an obvious problem, incorrect data assignments are dangerous because they can be very difficult to detect. For this reason, you should only use field symbols if you cannot achieve the same result using other ABAP statements.
For example, you may want to process part of a string where the offset and length depend on the contents of the field. You could use field symbols in this case. However, since the MOVE statement also supports variable offset and length specifications, you should use it instead. The MOVE statement (with your own auxiliary variables if required) is much safer than using field symbols, since it cannot address memory beyond the boundary of a field. However, field symbols may improve performance in some cases.
check the below links u will get the answers for your questions
http://help.sap.com/saphelp_nw04/helpdata/en/fc/eb3860358411d1829f0000e829fbfe/content.htm
http://www.sts.tu-harburg.de/teaching/sap_r3/ABAP4/field_sy.htm
http://searchsap.techtarget.com/tip/1,289483,sid21_gci920484,00.html
Syntax Diagram
FIELD-SYMBOLS
Basic form
FIELD-SYMBOLS <fs>.
Extras:
1. ... TYPE type
2. ... TYPE REF TO cif
3. ... TYPE REF TO DATA
4. ... TYPE LINE OF type
5. ... LIKE s
6. ... LIKE LINE OF s
7. ... TYPE tabkind
8. ... STRUCTURE s DEFAULT wa
The syntax check performed in an ABAP Objects context is stricter than in other ABAP areas. See Cannot Use Untyped Field Symbols ad Cannot Use Field Symbols as Components of Classes.
Effect
This statement declares a symbolic field called <fs>. At runtime, you can assign a concrete field to the field symbol using ASSIGN. All operations performed with the field symbol then directly affect the field assigned to it.
You can only use one of the additions.
Example
Output aircraft type from the table SFLIGHT using a field symbol:
FIELD-SYMBOLS <PT> TYPE ANY.
DATA SFLIGHT_WA TYPE SFLIGHT.
ASSIGN SFLIGHT_WA-PLANETYPE TO <PT>.
WRITE <PT>.
Addition 1
... TYPE type
Addition 2
... TYPE REF TO cif
Addition 3
... TYPE REF TO DATA
Addition 4
... TYPE LINE OF type
Addition 5
... LIKE s
Addition 6
... LIKE LINE OF s
Addition 7
... TYPE tabkind
Effect
You can define the type of the field symbol using additions 2 to 7 (just as you can for FORM parameters (compare Defining the Type of Subroutine Parameters). When you use the ASSIGN statement, the system carries out the same type checks as for USING parameters of FORMs.
This addition is not allowed in an ABAP Objects context. See Cannot Use Obsolete Casting for FIELD SYMBOLS.
In some cases, the syntax rules that apply to Unicode programs are different than those for non-Unicode programs. See Defining Types Using STRUCTURE.
Effect
Assigns any (internal) field string or structure to the field symbol from the ABAP Dictionary (s). All fields of the structure can be addressed by name: <fs>-fieldname. The structured field symbol points initially to the work area wa specified after DEFAULT.
The work area wa must be at least as long as the structure s. If s contains fields of the type I or F, wa should have the structure s or at least begin in that way, since otherwise alignment problems may occur.
Example
Address components of the flight bookings table SBOOK using a field symbol:
DATA SBOOK_WA LIKE SBOOK.
FIELD-SYMBOLS <SB> STRUCTURE SBOOK
DEFAULT SBOOK_WA.
WRITE: <SB>-BOOKID, <SB>-FLDATE.
Related
ASSIGN, DATA
Additional help
Declaring Field Symbols
Reward points if useful
Regards
Anji

I am stuck in FIELD-SYMBOLS and dynamic tables.

Hi guys,
            I am trying to create dynamic table. My requirement is as follows--
I have to display grid layout report in depending on given input.
In input i have fields for DC and STORE.
In output i have to display columns depending on number of DC and STORE paased in input.
For example if in input, i have 2 DCs DC01 and DC02 and in STs i have say 1 input - ST01
then in outpt grid report there will be 3 columns.
So my columns to be displayed depends on number of input values given while running it.
I am trying to use dynamic table.
My output report contains fields from different table...so i cant use
FIELD-SYMBOLS: <DYN_TABLE> TYPE STANDARD TABLE
instead i m trying to use
FIELD-SYMBOLS: <DYN_TABLE> LIKE T_ARTMAS "T_ARTMAS is declared as types : begin of....end of .... .
but it is giviing an error in following form
FORM CREATE_DYNAMIC_ITAB.
Create dynamic internal table and assign to FS
CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE
    EXPORTING
      IT_FIELDCATALOG = IFC
    IMPORTING
      EP_TABLE        = DY_TABLE.
ASSIGN DY_TABLE->* TO <DYN_TABLE>.
Create dynamic work area and assign to FS
CREATE DATA DY_LINE LIKE LINE OF <DYN_TABLE>........error on this line.
ASSIGN DY_LINE->* TO <DYN_WA>.
ENDFORM.                    "create_dynamic_itab
saying "<DYN_TABLE>" is not an internal table - the "OCCURS n" specification is missing.
Kindly help me...
thx in advance...

Hi
.FIELD-SYMBOLS: <DYN_TABLE> LIKE T_ARTMAS "T_ARTMAS is declared as types : begin of....end of .... .
but it is giviing an error in following form.....
Just as Sasha wrote, the problem could be you've defined a flat structure and u need a table, but now just a little a question: why do u want to use a dynamic table but your field-symbol is like a certain type?
That means u know how the table is so u don't need to use a dynamic table, your issue seems not to make sense.
Max

Dyanamic Selection of Fields and prepare internal table dyanamically

Hi,
How can we select fields dyanamically and create a dyanamic internal table for the fields created dyanamically.
like from table KNC1 if user wants data from period 1 to 3 then for the following fields (UM01S,UM01H,UM01U,UM02S,UM02H,UM02U,UM03S,UM03H,UM03U) daynamic internal table should be created accordingly.
regards,
BG

report z_dynamic.
type-pools : abap.
field-symbols: <dyn_table> type standard table,
               <dyn_wa>,
               <dyn_field>.
data: dy_table type ref to data,
      dy_line type ref to data,
      xfc type lvc_s_fcat,
      ifc type lvc_t_fcat.
selection-screen begin of block b1 with frame.
parameters: p_table(30) type c default 'T001'.
selection-screen end of block b1.
start-of-selection.
perform get_structure.
perform create_dynamic_itab.
perform get_data.
perform write_out.
Get_Structure Form
form get_structure.
data : idetails type abap_compdescr_tab,
       xdetails type abap_compdescr.
data : ref_table_des type ref to cl_abap_structdescr.
Get the structure of the table.
ref_table_des ?=
      cl_abap_typedescr=>describe_by_name( p_table ).
idetails[] = ref_table_des->components[].
loop at idetails into xdetails.
    clear xfc.
    xfc-fieldname = xdetails-name .
    xfc-datatype = xdetails-type_kind.
    xfc-inttype = xdetails-type_kind.
    xfc-intlen = xdetails-length.
    xfc-decimals = xdetails-decimals.
    append xfc to ifc.
endloop.
endform.
Create_Dynamic_Itab Form
form create_dynamic_itab.
Create dynamic internal table and assign to FS
call method cl_alv_table_create=>create_dynamic_table
               exporting
                  it_fieldcatalog = ifc
               importing
                  ep_table        = dy_table.
assign dy_table->* to <dyn_table>.
Create dynamic work area and assign to FS
create data dy_line like line of <dyn_table>.
assign dy_line->* to <dyn_wa>.
endform.
Get_Data Form
form get_data.
Select Data from table.
select * into table <dyn_table>
             from (p_table).
endform.
Write_Out Form
Write out data from table.
loop at <dyn_table> into <dyn_wa>.
    do.
      assign component sy-index
         of structure <dyn_wa> to <dyn_field>.
      if sy-subrc <> 0.
        exit.
      endif.
      if sy-index = 1.
        write:/ <dyn_field>.
      else.
        write: <dyn_field>.
      endif.
    enddo.
endloop.
Dynamic Select Statement
check this code...
For dynamic table name....
REPORT demo_select_dynamic_database .
DATA wa TYPE scarr.
DATA name(10) TYPE c VALUE 'SCARR'.
SELECT *
INTO wa
FROM (name) CLIENT SPECIFIED
WHERE mandt = '000'.
WRITE: / wa-carrid, wa-carrname.
ENDSELECT.
For dynamic field list
REPORT demo_select_dynamic_columns .
DATA: itab TYPE STANDARD TABLE OF spfli,
            wa LIKE LINE OF itab.
DATA: line(72) TYPE c,
list LIKE TABLE OF line(72).
line = ' CITYFROM CITYTO '.
APPEND line TO list.
SELECT DISTINCT (list)
INTO CORRESPONDING FIELDS OF TABLE itab
FROM spfli.
IF sy-subrc EQ 0.
LOOP AT itab INTO wa.
WRITE: / wa-cityfrom, wa-cityto.
ENDLOOP.
ENDIF.
regards
vinod

FIELD-SYMBOLS and table ?

Hi all,
in my programm i must check in differents tables some values. Tables are parameters of my program.
So i thought that i could use field-symbols for access to the table but it's not work for me.
Just a example, i've 2 tables to check : HRP1002 and HRP1003.
I can't do that :
FIELD-SYMBOLS <fs> STANDARD TABLE.
ASSIGN 'HRP1002' TO <fs>.
ASSIGN line is in error because no compatible type.
How can i do this ?
Regards

Try this code...
tables: rsrd1.
DATA: LineType TYPE string,
      ItabRef TYPE REF TO DATA,
      lineRef TYPE REF TO DATA.
FIELD-SYMBOLS: <fs> TYPE STANDARD TABLE,
               <fs1> type any.
parameter tbl like RSRD1-TBMA_VAL.
linetype = tbl.
CREATE DATA ItabRef TYPE STANDARD TABLE OF (LineType).
ASSIGN ItabRef->* to <fs> .
create data lineref like line of <fs>.
assign lineref->* to <fs1>.
SELECT * FROM (tbl) INTO <fs1>.
write <fs1>.
endselect.
SELECT * FROM (tbl) INTO table <fs>.

Field-Symbols and Gui_upload

Hi all!
I'm making a program in which a user can choose between 5 tables to update it by uploading a text file.
The thing is that I don't want to make 5 different functions in which the only difference is the name of the table where de gui_upload function puts the data.
That's why I send to the function the name of the table and assign it to a field symbol.
The problem is that I don't know what to put in the parameter 'DATA_TAB' on the gui_upload function.
Thanks!
Best regards!
Alejandro.

Hi Ale,
I hope this will be useful,
REPORT zkb_test1.
PARAMETERS: p_table(30) TYPE c.
DATA: li_filetable TYPE filetable,
      lw_filetable TYPE file_table,
      lv_filename TYPE string,
      lv_rc TYPE i.
File Open Dialog to select the PDF document
CALL METHOD cl_gui_frontend_services=>file_open_dialog
EXPORTING
    window_title            = 'Choose PDF File'
    file_filter             = '.'
CHANGING
    file_table              = li_filetable
    rc                      = lv_rc
EXCEPTIONS
    file_open_dialog_failed = 1
    cntl_error              = 2
    error_no_gui            = 3
    not_supported_by_gui    = 4
    OTHERS                  = 5.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
             WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
Read the returned file name
READ TABLE li_filetable INTO lw_filetable INDEX 1.
IF sy-subrc NE 0.
MESSAGE 'Error' TYPE 'E'.
ENDIF.
DATA: li_rawtab TYPE STANDARD TABLE OF raw255,
      lv_len TYPE i.
DATA: lw_pdfdata TYPE xstring.
DATA: dref TYPE REF TO data.
FIELD-SYMBOLS: <fs_table> TYPE ANY TABLE.
CREATE DATA dref TYPE TABLE OF (p_table).
ASSIGN dref->* TO <fs_table>.
lv_filename = lw_filetable-filename.
Read the docuemnt into internal table
CALL METHOD cl_gui_frontend_services=>gui_upload
EXPORTING
    filename                = lv_filename
    filetype                = 'ASC'
IMPORTING
    filelength              = lv_len
CHANGING
    data_tab                = <fs_table>
EXCEPTIONS
    file_open_error         = 1
    file_read_error         = 2
    no_batch                = 3
    gui_refuse_filetransfer = 4
    invalid_type            = 5
    no_authority            = 6
    unknown_error           = 7
    bad_data_format         = 8
    header_not_allowed      = 9
    separator_not_allowed   = 10
    header_too_long         = 11
    unknown_dp_error        = 12
    access_denied           = 13
    dp_out_of_memory        = 14
    disk_full               = 15
    dp_timeout              = 16
    not_supported_by_gui    = 17
    error_no_gui            = 18
    OTHERS                  = 19.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
             WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
Regards
Kathirvel

Field symbols and delete internal table.

Similar Messages

Maybe you are looking for