topic Re: Dynamic ALV Report in Application Development and Automation Discussions

Dynamic ALV Report

Former Member — Tue, 29 May 2007 09:22:59 GMT

Hi All,

I want to create an ALV report in which columns in the output will depend on the input parameters. For example: in the selection screen there is a field COST CENTER, so if a user enters 5 different cost enters then in the output I want 5 different columns and data is displayed against each columns.

I am able to get dynamic columns but I am not able to populate the internal table.

Does anybody have idea if this type of report?????

Warm Regards,

N.Jain

Re: Dynamic ALV Report

p291102 — Tue, 29 May 2007 09:29:38 GMT

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

Re: Dynamic ALV Report

Former Member — Tue, 29 May 2007 09:31:57 GMT

i´m not too sure if that will solve your problem, but if you are doing the columns dynamically, you should probably maintain the field catalog dynamically in the same way.

otherwise at least i wouldnt wonder too much about any errors on the way.

Re: Dynamic ALV Report

p291102 — Tue, 29 May 2007 09:32:00 GMT


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

Re: Dynamic ALV Report

Former Member — Tue, 29 May 2007 09:36:36 GMT

i did something like this but quite complex.

i created another program itself from the abap program and then executed it using the submit command.

sample code : please modify according to your requirement.

TYPES: BEGIN OF typ_inctabl ,

line(72),

END OF typ_inctabl.

DATA : itab_inctabl TYPE TABLE OF typ_inctabl,

wa_inctabl TYPE typ_inctabl.

**dynamic report

wa_inctabl-line = 'Program zduplicata_report line-size 600.'.