Dynamic DDIC structure - work at runtime with changes

Question

Hi Experts,
I have a problem in a method of Web Dynpro Abap. Ich have a database structure /SME/DED_DYN and change its fields at runtime. I do that with the function DDIF_TABL_PUT and the activation with DDIF_TABL_ACTIVATE.
I have:
COMMIT WORK and wait.
  CALL FUNCTION 'DDIF_TABL_PUT'
     EXPORTING
         NAME = '/SME/DED_DYN'
     TABLES
         DD03P_TAB = DD03P_TAB
         DD05M_TAB = DD05M_TAB
         DD08V_TAB = DD08V_TAB
         DD35V_TAB = DD35V_TAB
         DD36M_TAB = DD36M_TAB
     EXCEPTIONS
         tabl_not_found          = 1
         name_inconsistent       = 2
         tabl_inconsistent       = 3
         put_failure             = 4
         put_refused             = 5
         others                  = 6.
  COMMIT WORK and wait.
  if sy-subrc = 0.
    call function 'DDIF_TABL_ACTIVATE'
      exporting
          name =  '/SME/DED_DYN'
      IMPORTING
          rc = rc   
      exceptions
            not_found   = 1
            put_failure = 2
            others      = 3.
  endif.
The fields of the DDIC structure /SME/DED_DYN are changed at runtime dynamicly. Not their value, the fields themselves with fieldname and datatype. I need to work with these NEW fields of the DDIC structure at the same runtime. But somewhere the OLD /SME/DED_DYN is buffered I think, because the method only reads this old structure although in Transaction SE11 it changes to the NEW one at runtime correctly. I have to refresh my whole Web Dynpro Application in the browser and then it works with the new structure.What buffer could this be and how can I clear it, so that my method in WebDynpro can proceed with the new DDIC structure?
I hope you understand my problem.
Thanks for your help!!
Best regards,
Ingmar

Answer 1

Hi,
I create a database table which name is ZTABL1 .
The fields of this table are MANDT and FIELDS1 .
Then i write the code below .
It changes the dbtable dynamically and the values of the fields.
I hope this help you.
DATA :      DD03P_TAB LIKE  DD03P OCCURS 0 WITH HEADER LINE .
DATA :      DD05M_TAB LIKE  DD05M OCCURS 0 WITH HEADER LINE .
DATA :      DD08V_TAB LIKE  DD08V OCCURS 0 WITH HEADER LINE .
DATA :      DD12V_TAB LIKE  DD12V OCCURS 0 WITH HEADER LINE .
DATA :      DD17V_TAB LIKE  DD17V OCCURS 0 WITH HEADER LINE .
DATA :      DD35V_TAB LIKE  DD35V OCCURS 0 WITH HEADER LINE .
DATA :      DD36M_TAB LIKE  DD36M OCCURS 0 WITH HEADER LINE .
DATA : lt_fcat TYPE lvc_t_fcat ,
       ls_fcat TYPE lvc_s_fcat .
DATA : lt_table TYPE REF TO data.
DATA :  ZTABL1 .
CALL FUNCTION 'DDIF_TABL_GET'
  EXPORTING
    NAME                = 'ZTABL1'
  TABLES
    DD03P_TAB           = DD03P_TAB
    DD05M_TAB           = DD05M_TAB
    DD08V_TAB           = DD08V_TAB
    DD12V_TAB           = DD12V_TAB
    DD17V_TAB           = DD17V_TAB
    DD35V_TAB           = DD35V_TAB
    DD36M_TAB           = DD36M_TAB
  EXCEPTIONS
   ILLEGAL_INPUT       = 1
    OTHERS              = 2
LOOP AT DD05M_TAB WHERE FIELDNAME NE 'MANDT'  .
DD05M_TAB-FIELDNAME = 'FIELD2' .
MODIFY DD05M_TAB .
ENDLOOP.
LOOP AT DD03P_TAB WHERE FIELDNAME NE 'MANDT'
DD03P_TAB-FIELDNAME = 'FIELD2' .
MODIFY DD03P_TAB  .
ENDLOOP.
LOOP AT DD08V_TAB WHERE FIELDNAME NE 'MANDT' .
DD08V_TAB-FIELDNAME = 'FIELD2' .
APPEND DD08V_TAB .
ENDLOOP.
LOOP AT DD35V_TAB  WHERE FIELDNAME NE 'MANDT' .
  DD35V_TAB-FIELDNAME = 'FIELD2' .
  MODIFY DD35V_TAB .
ENDLOOP.
LOOP AT DD36M_TAB  WHERE FIELDNAME NE 'MANDT' .
DD36M_TAB-FIELDNAME = 'FIELD2' .
MODIFY DD36M_TAB .
ENDLOOP.
CALL FUNCTION 'DDIF_TABL_PUT'
  EXPORTING
    NAME                    = 'ZTABL1'
TABLES
   DD03P_TAB               = DD03P_TAB
   DD05M_TAB               = DD05M_TAB
   DD08V_TAB               = DD08V_TAB
   DD35V_TAB               = DD35V_TAB
   DD36M_TAB               = DD36M_TAB
EXCEPTIONS
   TABL_NOT_FOUND          = 1
   NAME_INCONSISTENT       = 2
   TABL_INCONSISTENT       = 3
   PUT_FAILURE             = 4
   PUT_REFUSED             = 5
   OTHERS                  = 6
COMMIT WORK AND WAIT .
  DATA  : lv_subrc like sy-subrc .
  CALL FUNCTION 'DDIF_TABL_ACTIVATE'
    EXPORTING
      NAME              = 'ZTABL1'
      AUTH_CHK          = ' '
   IMPORTING
     RC                = lv_subrc
    EXCEPTIONS
      NOT_FOUND         = 1
      PUT_FAILURE       = 2
      OTHERS            = 3
COMMIT WORK AND WAIT .
clear : lt_fcat , lt_fcat[] .
LOOP AT DD03P_TAB .
  MOVE-CORRESPONDING DD03P_TAB TO ls_fcat .
  APPEND ls_fcat TO lt_fcat .
ENDLOOP.
PERFORM process.
*&      Form  process
form process.
  FIELD-SYMBOLS : <table> TYPE table .
  FIELD-SYMBOLS : <s_table> TYPE ANY .
  FIELD-SYMBOLS : <f_1> TYPE ANY .
  DATA : ls_ZTABL1 type ZTABL1 .
  CALL METHOD cl_alv_table_create=>create_dynamic_table
                          EXPORTING it_fieldcatalog = lt_fcat
                          IMPORTING ep_table = lt_table.
   ASSIGN lt_table->* TO <table>.
   ASSIGN LOCAL COPY OF INITIAL LINE OF <table> TO <s_table>.
  LOOP AT lt_fcat INTO ls_fcat.
   IF ls_fcat-fieldname = 'FIELD2' .
     ASSIGN COMPONENT ls_fcat-fieldname OF STRUCTURE <s_table> TO <f_1> .
     <f_1> = 'A' .
   ENDIF.
  ENDLOOP.
  MOVE-CORRESPONDING <s_table> TO ls_ZTABL1 .
  INSERT INTO ZTABL1 values ls_ZTABL1.
endform.                    " process