topic Re: Dyamic Internal Table in Application Development and Automation Discussions

Dyamic Internal Table

Former Member — Mon, 20 Nov 2006 08:43:41 GMT

Hi,

How to create dynamic internal table using oops concept ..and is it possible to create dynamic internal table without using objects(oops concept)..

awaiting for your replies....

Regards,

Ravi

Re: Dyamic Internal Table

Former Member — Mon, 20 Nov 2006 08:45:56 GMT

Check out this thread..

this thread has the code which you are looking for ...

Re: Dyamic Internal Table

Former Member — Mon, 20 Nov 2006 08:46:23 GMT

Hi ravi,

For this purpose,

in my program,

there is an INDEPENDENT FORM

whose inputs are

LIST OF FIELDS, (just as u require)

and from those, it consructs dynamic table.

2. Here is the program.

the dynamic table name will be

<DYNTABLE>.

3. U can use this program (FORM in this program)

to generate any kind of internal table

by specifying list of fields.

REPORT abc.

*----

COMPULSORY

FIELD-SYMBOLS: <dyntable> TYPE ANY TABLE.

FIELD-SYMBOLS: <dynline> TYPE ANY.

DATA: lt TYPE lvc_t_fcat.

DATA: ls TYPE lvc_s_fcat.

FIELD-SYMBOLS: <fld> TYPE ANY.

DATA : fldname(50) TYPE c.

DATA : ddfields LIKE ddfield OCCURS 0 WITH HEADER LINE.

*----

START-OF-SELECTION.

*----

field list

ddfields-fieldname = 'BUKRS'.

APPEND DDFIELDS.

ddfields-fieldname = 'MATNR'.

APPEND DDFIELDS.

*----

PERFORM mydyntable .

*----

see <DYNTABLE> in debug mode.

BREAK-POINT.

*----

INDEPENDENT FORM

*----

FORM mydyntable .

*----

Create Dyn Table From FC

FIELD-SYMBOLS: <fs_data> TYPE REF TO data.

FIELD-SYMBOLS: <fs_1>.

FIELD-SYMBOLS: <fs_2> TYPE ANY TABLE.

DATA: lt_data TYPE REF TO data.

data : lt TYPE lvc_t_fcat .

*----

CONSTRUCT FIELD LIST

LOOP AT ddfields.

ls-fieldname = ddfields-fieldname.

APPEND ls TO lt.

ENDLOOP.

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 Dyn Table To Field Sumbol

ASSIGN <fs_data>->* TO <fs_1>.

ASSIGN <fs_1> TO <fs_2>.

ASSIGN <fs_1> TO <dyntable>.

ENDFORM. "MYDYNTABLE

regards,

amit m.

Re: Dyamic Internal Table

Former Member — Mon, 20 Nov 2006 08:46:42 GMT

Hi Ravi,

Check out the links

http://searchsap.techtarget.com/tip/1,289483,sid21_gci912390,00.html

http://www.sap-img.com/ab030.htm

This links has examples also.

here is a small example

REPORT zricha001.

PARAMETERS: comp(50).

DATA: dref TYPE REF TO data.

FIELD-SYMBOLS: <dyn_table> TYPE STANDARD TABLE.

CREATE DATA dref TYPE TABLE OF (comp).

ASSIGN dref->* TO <dyn_table>.

SELECT * FROM (comp)

INTO TABLE <dyn_table>.

BREAK-POINT.

Hope this helps.

Regards,

Richa

Re: Dyamic Internal Table

Former Member — Mon, 20 Nov 2006 08:47:48 GMT

u can create dynamic internal tables....u have to write code in routinues which when executed automatically creates dynamic internal tables..

Check this link....http://www.sap-img.com/ab030.htm

This has various examples which shows how to create dynamic internal tables...

Re: Dyamic Internal Table

Former Member — Mon, 20 Nov 2006 08:48:23 GMT

hi,

REPORT ZCLUST1 .

Example: how to create a dynamic internal table
The dynamic internal table stucture

DATA: BEGIN OF STRUCT OCCURS 10,

FILDNAME(8) TYPE C,

ABPTYPE TYPE C,

LENGTH TYPE I,

END OF STRUCT.

The dynamic program source table

DATA: BEGIN OF INCTABL OCCURS 10,

LINE(72),

END OF INCTABL.

DATA: LNG TYPE I, TYPESRTING(6).

Sample dynamic internal table stucture

STRUCT-FILDNAME = 'field1'. STRUCT-ABPTYPE = 'c'. STRUCT-LENGTH = '6'.

APPEND STRUCT. CLEAR STRUCT.

STRUCT-FILDNAME = 'field2'. STRUCT-ABPTYPE = 'd'.

APPEND STRUCT. CLEAR STRUCT.

STRUCT-FILDNAME = 'field3'. STRUCT-ABPTYPE = 'i'.

APPEND STRUCT. CLEAR STRUCT.

Create the dynamic internal table definition in the dyn. program

INCTABL-LINE = 'program zdynpro.'. APPEND INCTABL.

INCTABL-LINE = 'data: begin of dyntab occurs 10,'. APPEND INCTABL.

LOOP AT STRUCT.

INCTABL-LINE = STRUCT-FILDNAME.

LNG = STRLEN( STRUCT-FILDNAME ).

IF NOT STRUCT-LENGTH IS INITIAL .

TYPESRTING(1) = '('.

TYPESRTING+1 = STRUCT-LENGTH.

TYPESRTING+5 = ')'.

CONDENSE TYPESRTING NO-GAPS.

INCTABL-LINE+LNG = TYPESRTING.

ENDIF.

INCTABL-LINE+15 = 'type '.

INCTABL-LINE+21 = STRUCT-ABPTYPE.

INCTABL-LINE+22 = ','.

APPEND INCTABL.

ENDLOOP.

INCTABL-LINE = 'end of dyntab. '.

APPEND INCTABL.

Create the code processes the dynamic internal table

INCTABL-LINE = ' '. APPEND INCTABL.

INCTABL-LINE = 'dyntab-field1 = ''aaaaaa''.'. APPEND INCTABL.

INCTABL-LINE = 'dyntab-field1 = ''19970814''.'. APPEND INCTABL.

INCTABL-LINE = 'dyntab-field1 = 1.'. APPEND INCTABL.

INCTABL-LINE = 'append dyntab.'. APPEND INCTABL.

INCTABL-LINE = ' '. APPEND INCTABL.

INCTABL-LINE = 'loop at dyntab.'. APPEND INCTABL.

INCTABL-LINE = 'write: / dyntab.'. APPEND INCTABL.

INCTABL-LINE = 'endloop.'. APPEND INCTABL.

Create and run the dynamic program

INSERT REPORT 'zdynpro'(001) FROM INCTABL.

SUBMIT ZDYNPRO.

regards,

keerthi

Re: Dyamic Internal Table

michael-john_turner — Mon, 20 Nov 2006 08:49:18 GMT

Hi Ravi,

Depends on how you want to create the internal table and the release you're on. Take a look at the CREATE DATA statement - you can, for example, create an internal table dynamically only knowing the type of the row. No knowledge of ABAP Objects required.

Re: Dyamic Internal Table

Former Member — Mon, 20 Nov 2006 12:15:03 GMT

Hi Ravi ,

To create an internal table dynamically using OOPS concept use the class

cl_alv_table_create. Use the method CREATE_DYNAMIC_TABLE

Reagrds ,

Arun

Message was edited by:

Arun Ramachandran