Dynamic ALV Report .

REPORT ZSR_DYNAMIC_RPT1.

TABLES: CEPC, ACDOCA.

DATA: IT_TABLE TYPE TABLE OF ZTABLE,
      WA_TABLE TYPE   ZTABLE.

TYPES: BEGIN OF TY_DATA,
         PRCTR TYPE CEPC-PRCTR,
         KOKRS TYPE CEPC-KOKRS,
       END OF TY_DATA.

TYPES: BEGIN OF TY_ACDOCA,
         RACCT TYPE ACDOCA-RACCT,
         PRCTR TYPE ACDOCA-PRCTR,
         DRCRK TYPE ACDOCA-DRCRK,
         TSL   TYPE ACDOCA-TSL,
       END OF TY_ACDOCA.

DATA: IT_ACDOCA1 TYPE TABLE OF TY_ACDOCA,
      WA_ACDOCA1 TYPE TY_ACDOCA.

TYPES: BEGIN OF TY_ACDOCA2,
         RACCT TYPE ACDOCA-RACCT,
         PRCTR TYPE ACDOCA-PRCTR,
         TSL   TYPE ACDOCA-TSL,
       END OF TY_ACDOCA2.
DATA: IT_ACDOCA2 TYPE TABLE OF TY_ACDOCA2,
      WA_ACDOCA2 TYPE TY_ACDOCA2.

DATA: IT_ACDOCA3 TYPE TABLE OF TY_ACDOCA2,
      WA_ACDOCA3 TYPE TY_ACDOCA2.

DATA:
  IT_DATA TYPE TABLE OF TY_DATA,
  WA_DATA TYPE TY_DATA.

DATA: IT_FCAT TYPE  LVC_T_FCAT,
      WA_FCAT TYPE LVC_S_FCAT,
      LS_LAYO TYPE LVC_S_LAYO.

DATA: LV_LINES TYPE CHAR2,
      LV_INDEX TYPE CHAR2.

DATA: LV_POS TYPE I.
DATA: FIELDNAME(20)  TYPE C,
      FIELDVALUE(60) TYPE C.

FIELD-SYMBOLS : <T_DYNTABLE>  TYPE STANDARD TABLE,
                <FS_DYNTABLE> TYPE ANY,
                <FS_DYT>      TYPE ANY,
                <FS1>         TYPE ANY.

FIELD-SYMBOLS : <T_DATA>      TYPE TABLE.
FIELD-SYMBOLS:  <FS_FINAL>    TYPE ANY.

DATA: T_NEWTABLE TYPE REF TO DATA,
      T_NEWLINE  TYPE REF TO DATA.


SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
  SELECT-OPTIONS :
   S_KOKRS FOR CEPC-KOKRS OBLIGATORY.",
*   S_BUDAT FOR CEPC-ERSDA.
SELECTION-SCREEN END OF BLOCK B1.

START-OF-SELECTION.
  PERFORM FETCH_DATA.
  PERFORM DISPLAY.
*&---------------------------------------------------------------------*
*& Form Fetch_data
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM FETCH_DATA .
  REFRESH IT_DATA[].
  SELECT  PRCTR, KOKRS FROM CEPC INTO TABLE @IT_DATA
     WHERE KOKRS IN @S_KOKRS.

  IF SY-SUBRC EQ 0.
    SORT IT_DATA ASCENDING BY KOKRS .
    DESCRIBE TABLE IT_DATA LINES LV_LINES.
  ELSE.
    LEAVE LIST-PROCESSING.
  ENDIF.

  REFRESH IT_TABLE[].
  SELECT * FROM   ZTABLE INTO TABLE @IT_TABLE.
  IF IT_TABLE IS NOT INITIAL.
    SORT IT_TABLE BY GLNUMBER.

    SELECT RACCT,PRCTR,DRCRK,TSL FROM ACDOCA
                  INTO TABLE @DATA(IT_ACDOCA)
                  FOR ALL ENTRIES IN  @IT_TABLE
                  WHERE RBUKRS IN @S_KOKRS
                    AND RACCT = @IT_TABLE-GLNUMBER.

    IF SY-SUBRC EQ 0.
      SORT IT_ACDOCA  ASCENDING BY RACCT.

      LOOP AT IT_ACDOCA INTO DATA(WA_ACDOCA).
        IF WA_ACDOCA-DRCRK = 'H'.
          COLLECT WA_ACDOCA INTO IT_ACDOCA1 ASSIGNING FIELD-SYMBOL(<LFS>).
          CLEAR:WA_ACDOCA.
        ELSEIF WA_ACDOCA-DRCRK = 'S'.
          COLLECT WA_ACDOCA INTO IT_ACDOCA1 ASSIGNING FIELD-SYMBOL(<LFS1>).
          CLEAR:WA_ACDOCA.
        ENDIF.
      ENDLOOP.

      IF IT_ACDOCA1 IS NOT INITIAL.
        SORT IT_ACDOCA1 ASCENDING BY  RACCT.
        DELETE  IT_ACDOCA1[] WHERE PRCTR IS INITIAL  .

        LOOP AT IT_ACDOCA1 INTO WA_ACDOCA1.
          MOVE-CORRESPONDING WA_ACDOCA1 TO WA_ACDOCA2 .
          COLLECT WA_ACDOCA2 INTO IT_ACDOCA2 .
          CLEAR: WA_ACDOCA1,WA_ACDOCA2.
          IT_ACDOCA3[] = IT_ACDOCA2[].
        ENDLOOP.

      ENDIF.

    ENDIF.

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

    READ TABLE IT_TABLE INTO WA_TABLE INDEX 1.
    WA_FCAT-FIELDNAME = 'NAME'.
    WA_FCAT-COLTEXT = 'NAME'.
    WA_FCAT-OUTPUTLEN = '15'.
    APPEND WA_FCAT TO IT_FCAT.
    CLEAR:WA_FCAT,WA_TABLE.

    LOOP AT IT_ACDOCA2 INTO WA_ACDOCA2.
      READ TABLE IT_DATA INTO WA_DATA WITH KEY PRCTR = WA_ACDOCA2-PRCTR.
      WA_FCAT-FIELDNAME = WA_DATA-PRCTR.
      CONDENSE WA_FCAT-FIELDNAME NO-GAPS.
      WA_FCAT-COLTEXT = WA_DATA-PRCTR.
      WA_FCAT-OUTPUTLEN = '10'.
      APPEND WA_FCAT TO IT_FCAT.
      CLEAR:WA_FCAT.
    ENDLOOP.
  ENDIF.

*****CREATE DYNAMIC INTERNAL TABLE

  CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE
    EXPORTING
      IT_FIELDCATALOG           = IT_FCAT
    IMPORTING
      EP_TABLE                  = T_NEWTABLE
    EXCEPTIONS
      GENERATE_SUBPOOL_DIR_FULL = 1
      OTHERS                    = 2.
  IF SY-SUBRC <> 0.
* Implement suitable error handling here
  ENDIF.

  ASSIGN T_NEWTABLE->* TO <T_DYNTABLE>.                        "Assign field symbol to dynamic internal table.
  CREATE DATA T_NEWLINE LIKE LINE OF <T_DYNTABLE>.
  ASSIGN T_NEWLINE->* TO <FS_DYNTABLE>.                        "Assign field symbol to dynamic work area.

  LOOP AT IT_TABLE INTO WA_TABLE .

    CLEAR:FIELDNAME,FIELDVALUE.
    FIELDNAME  = 'NAME'.
    FIELDVALUE =  WA_TABLE-NAME.
    CONDENSE FIELDVALUE.
    ASSIGN COMPONENT FIELDNAME  OF STRUCTURE <FS_DYNTABLE> TO <FS1>.
    <FS1> = FIELDVALUE.

*    APPEND <FS_DYNTABLE> TO <T_DYNTABLE>.
*    CLEAR:WA_TABLE.
*  ENDLOOP.

    READ TABLE IT_ACDOCA3 INTO WA_ACDOCA3 WITH KEY RACCT = WA_TABLE-GLNUMBER.
    READ TABLE  IT_DATA INTO WA_DATA WITH KEY PRCTR = WA_ACDOCA3-PRCTR   .
    IF SY-SUBRC EQ 0.
      LOOP AT IT_ACDOCA2 INTO WA_ACDOCA2 WHERE  RACCT = WA_TABLE-GLNUMBER ."AND PRCTR = WA_DATA-PRCTR.


        CLEAR:FIELDNAME,FIELDVALUE.
        FIELDNAME = WA_DATA-PRCTR.
        CONDENSE FIELDNAME NO-GAPS.

        FIELDVALUE =  WA_ACDOCA2-TSL.
        CONDENSE FIELDVALUE.
        ASSIGN COMPONENT FIELDNAME  OF STRUCTURE <FS_DYNTABLE> TO <FS1>.
        <FS1> = FIELDVALUE.


        APPEND <FS_DYNTABLE> TO <T_DYNTABLE>.

        CLEAR: WA_ACDOCA2,FIELDVALUE,FIELDNAME.
        CLEAR:<FS_DYNTABLE>.
      ENDLOOP.
    ELSE.
      APPEND <FS_DYNTABLE> TO <T_DYNTABLE>.
    ENDIF.
    CLEAR:WA_DATA,WA_TABLE.

  ENDLOOP.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form DISPLAY
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM DISPLAY .
  LS_LAYO-ZEBRA = 'X'.
  LS_LAYO-COL_OPT ='X'.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
    EXPORTING
      I_CALLBACK_PROGRAM = 'SY-REPID'
      IS_LAYOUT_LVC      = LS_LAYO
      IT_FIELDCAT_LVC    = IT_FCAT[]
      I_DEFAULT          = 'X'
      I_SAVE             = 'A'
*   IMPORTING
*     E_EXIT_CAUSED_BY_CALLER           =
*     ES_EXIT_CAUSED_BY_USER            =
    TABLES
      T_OUTTAB           = <T_DYNTABLE>
    EXCEPTIONS
      PROGRAM_ERROR      = 1
      OTHERS             = 2.
  IF SY-SUBRC <> 0.
* Implement suitable error handling here
  ENDIF.