change container dynamic

[Former Member]

Hallow I doing a alv report with 2 containers and I wont to now how I can change my declaration that the containers be dynamic (user can change size)

Regards

&----

---

*& Module PBO OUTPUT

&----

---

• text

----

---

MODULE pbo OUTPUT.

SET PF-STATUS 'MAIN100'.

SET TITLEBAR 'MAIN100'.

IF g_custom_container IS INITIAL.

CREATE OBJECT g_custom_container

EXPORTING container_name = 'CON1'.

CREATE OBJECT grid1

EXPORTING i_parent = g_custom_container.

gs_layout-grid_title = text-001.

*--

---

emp pass course--

---

CALL METHOD grid1->set_table_for_first_display

EXPORTING

i_structure_name = 'YHR_GET_EMP_COURSE_STR1'

it_toolbar_excluding = lt_exclude " THIS IS FOR ICONS

is_layout = gs_layout

is_variant = variant1

i_save = 'A'

CHANGING

it_outtab = itab_final

it_fieldcatalog = fcat1.

ENDIF.

IF g_custom_container1 IS INITIAL.

gs_layout-smalltitle = 'X'.

CREATE OBJECT g_custom_container1

EXPORTING container_name = 'CON2'.

CREATE OBJECT grid2

EXPORTING i_parent = g_custom_container1.

gs_layout1-grid_title = text-002.

CALL METHOD grid2->set_table_for_first_display

EXPORTING

i_structure_name = 'YHR_GET_EMP_DONT_COURSE'

it_toolbar_excluding = lt_exclude

is_layout = gs_layout1

is_variant = variant1

i_save = 'A'

CHANGING

it_outtab = it_final

it_fieldcatalog = fcat.

ENDIF.

ENDMODULE. " PBO OUTPUT

[p291102]

Hi,

Herewith i am sending the sample report for dynamic alv report.

REPORT YMS_DYNAMICALV.

TYPE-POOLS: SLIS.

FIELD-SYMBOLS: <DYN_TABLE> TYPE STANDARD TABLE,

<DYN_WA>.

DATA: ALV_FLDCAT TYPE SLIS_T_FIELDCAT_ALV,

IT_FLDCAT TYPE LVC_T_FCAT.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

PARAMETERS: P_FLDS(5) TYPE C.

SELECTION-SCREEN END OF BLOCK B1.

START-OF-SELECTION.

• build the dynamic internal table

PERFORM BUILD_DYN_ITAB.

• write 5 records to the alv grid

DO 5 TIMES.

PERFORM BUILD_REPORT.

ENDDO.

• call the alv grid.

PERFORM CALL_ALV.

************************************************************************

• Build_dyn_itab

************************************************************************

FORM BUILD_DYN_ITAB.

DATA: NEW_TABLE TYPE REF TO DATA,

NEW_LINE TYPE REF TO DATA,

WA_IT_FLDCAT TYPE LVC_S_FCAT.

• Create fields .

DO P_FLDS TIMES.

CLEAR WA_IT_FLDCAT.

WA_IT_FLDCAT-FIELDNAME = SY-INDEX.

WA_IT_FLDCAT-DATATYPE = 'CHAR'.

WA_IT_FLDCAT-INTLEN = 5.

APPEND WA_IT_FLDCAT TO IT_FLDCAT .

ENDDO.

• Create dynamic internal table and assign to FS

CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE

EXPORTING

IT_FIELDCATALOG = IT_FLDCAT

IMPORTING

EP_TABLE = NEW_TABLE.

ASSIGN NEW_TABLE->* TO <DYN_TABLE>.

• Create dynamic work area and assign to FS

CREATE DATA NEW_LINE LIKE LINE OF <DYN_TABLE>.

ASSIGN NEW_LINE->* TO <DYN_WA>.

ENDFORM. "build_dyn_itab

*********************************************************************

• Form build_report

*********************************************************************

FORM BUILD_REPORT.

DATA: FIELDNAME(20) TYPE C.

DATA: FIELDVALUE(5) TYPE C.

DATA: INDEX(3) TYPE C.

FIELD-SYMBOLS: <FS1>.

DO P_FLDS TIMES.

INDEX = SY-INDEX.

• Set up fieldvalue

CONCATENATE 'FLD' INDEX INTO

FIELDVALUE.

CONDENSE FIELDVALUE NO-GAPS.

• <b> assign component index of structure <dyn_wa> to <fs1>.

• <fs1> = fieldvalue.</b>

ENDDO.

• Append to the dynamic internal table

APPEND <DYN_WA> TO <DYN_TABLE>.

ENDFORM. "build_report

************************************************************************

• CALL_ALV

************************************************************************

FORM CALL_ALV.

DATA: WA_CAT LIKE LINE OF ALV_FLDCAT.

DO P_FLDS TIMES.

CLEAR WA_CAT.

WA_CAT-FIELDNAME = SY-INDEX.

WA_CAT-SELTEXT_S = SY-INDEX.

WA_CAT-OUTPUTLEN = '5'.

APPEND WA_CAT TO ALV_FLDCAT.

ENDDO.

• Call ABAP List Viewer (ALV)

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

IT_FIELDCAT = ALV_FLDCAT

TABLES

T_OUTTAB = <DYN_TABLE>.

ENDFORM. "call_alv

Thanks,

Sankar M

[Former Member]

hi Sankar

your sample is not clear maybe u have other sample,

its was usfol if u have step by step document.

regards