Fill dynamic table

[Former Member]

Hello everybody. I´ve create a dynamic table with this fields:

FIELD-SYMBOLS TYPE ANY TABLE.

Concept

Date

Date +1

Date +2

.

.

.

Date +n

After doing some calculations I´ve filled this internal table:

DATE COMPRAS TRANSITOS FABRICACION

01.02.2009 50 50 50

02.02.2009 50 50 50

03.02.2009 50 50 50

.....

.....

.....

I´d like to fill my dynamic table like this:

CONCEPT 01.02.2009 02.02.2009 03.02.2009 ........ ......... .......

COMPRAS 50 50 50

TRANSITOS 50 50 50

FABRICACION 50 50 50

¿ Which is the way more eficient to do it with field symbols ?

Thanks a lot.

Regards

[Former Member]

Dynamic table using field symbols..

Example 2
TYPES:
  BEGIN OF st_mytable,
    name1 TYPE string,
    name2 TYPE string,
    age TYPE i,
  END OF st_mytable.

DATA:
  gi_mytable TYPE STANDARD TABLE OF st_mytable,
  g_mytable  TYPE st_mytable.

*------------------------------
* Define field symbols
*------------------------------
FIELD-SYMBOLS:
  <myfield1> TYPE ANY,
  <myfield2> TYPE ANY,
  <myfield3> TYPE ANY,
  <myline>  TYPE ANY.

*------------------------------

* Fill table with data
*------------------------------
g_mytable-name1 = 'John'.
g_mytable-name2 = 'Johnson'.
g_mytable-age   = 25.
APPEND g_mytable TO gi_mytable.

g_mytable-name1 = 'Claudio'.
g_mytable-name2 = 'Jensen'.
g_mytable-age   =  45.
APPEND g_mytable TO gi_mytable.

*------------------------------
* The normal way to do it
*------------------------------
LOOP AT gi_mytable INTO g_mytable.
  WRITE: / g_mytable-name1, g_mytable-name2 ,g_mytable-age.

ENDLOOP.

SKIP 2.

*------------------------------
* Do it with field symbols
*------------------------------
LOOP AT gi_mytable ASSIGNING <myline>.
  ASSIGN COMPONENT 1 OF STRUCTURE <myline> TO <myfield1>.
  ASSIGN COMPONENT 2 OF STRUCTURE <myline> TO <myfield2>.
  ASSIGN component 3 OF STRUCTURE <myline> TO <myfield3>.
  WRITE: / <myfield1>,<myfield2>,<myfield3>.
ENDLOOP.

*------------------------------
* Unassign field symbols
*------------------------------

UNASSIGN <myfield1>.
UNASSIGN <myfield2>.
UNASSIGN <myfield3>.
UNASSIGN <myline>.

Dynamically read fields, fieldnames and fieldcontents..

FIELD-SYMBOLS:
<fieldname> TYPE ANY, "Name of field
<line> TYPE ANY, "Line structure for table
<fieldvalue> TYPE ANY. "Value of field

DATA: l_shorttext LIKE dd03m-ddtext.

DATA: wa_dd03l LIKE dd03l.


SELECT * FROM dd03l INTO wa_dd03l

WHERE tabname = 'ZHR_INTER_PA1_DL'.
* Assign name of field
ASSIGN COMPONENT 2 OF STRUCTURE wa_dd03l TO <fieldname>.

* Assign structure for internal table
ASSIGN wa_pa1_delta TO <line>.

* Assign field value from structure
ASSIGN COMPONENT <fieldname> OF STRUCTURE <line> TO <fieldvalue>.

* Find DD text for field
SELECT SINGLE ddtext
FROM dd03m
INTO l_shorttext
WHERE tabname = 'ZHR_INTER_PA1_DL' AND
fieldname = <fieldname> AND
ddlanguage = 'EN'.


WRITE: / <fieldname>, l_shorttext, ' : ', <fieldvalue>.




ENDSELECT.

Regards,

Prabhudas