*&---------------------------------------------------------------------*

*& Report  ZTABLE_ENTRY_INSERT                                         *

*&                                                                     *

*&---------------------------------------------------------------------*

*&                                                                     *

*&                                                                     *

*&---------------------------------------------------------------------*



REPORT  ztable_entry_insert.



TABLES: dd02l.



DATA: g_tabname(30)  TYPE c          VALUE '/1BCDWB/DB',

      action         TYPE sy-ucomm   VALUE 'ANZE',

      global_auth(4) TYPE c,

      g_data_exit    LIKE rs38l-name VALUE 'UPDA'.



DATA: mem_id(16) VALUE 'TABELLENANZEIGER'.



SELECTION-SCREEN: SKIP.

PARAMETERS: tabname  LIKE databrowse-tablename MEMORY ID dtb.





AT SELECTION-SCREEN ON VALUE-REQUEST FOR tabname.

  PERFORM f4_objname.



AT SELECTION-SCREEN.

  IF tabname(1) <> 'Y' AND tabname(1) <> 'Z'.

*    MESSAGE e416(mo) WITH tabname.

  ENDIF.



  SELECT * FROM  dd02l

           WHERE  tabname  = tabname

           AND    as4local = 'A'

           AND   ( tabclass  <> 'INTTAB' AND tabname <> 'APPEND' AND

                   tabclass  <> 'VIEW' ).

    EXIT.

  ENDSELECT.



  IF sy-subrc <> 0.  MESSAGE e402(mo) WITH tabname.  ENDIF.



START-OF-SELECTION.



  CONCATENATE g_tabname tabname INTO g_tabname.

  dd02l-mainflag = 'X'.

  EXPORT action dd02l-mainflag global_auth

                TO MEMORY ID mem_id.



  SUBMIT (g_tabname) VIA SELECTION-SCREEN AND RETURN.



*&---------------------------------------------------------------------*

*&      Form  F4_OBJNAME

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

FORM f4_objname.



  DATA: dnum   LIKE d020s-dnum,

        repid  LIKE sy-repid.



  dnum = sy-dynnr.  repid = sy-repid.

  CALL FUNCTION 'RS_HELP_HANDLING'

    EXPORTING

      dynpfield                 = 'TABNAME'

      dynpname                  = dnum

      object                    = 'TB  '

      progname                  = repid

      suppress_selection_screen = 'X'.



ENDFORM.                    " F4_OBJNAME