CBO TABLE 변경 프로그램

************************************************************************
* Report            : ZCBOTABLE
* Module/Sub-Module : CA
* Type              :
* T_CODE            :
* Previous Vesion   : SAP ERP 7.0
* Description       : Table 데이터 수정
************************************************************************
*                          MODIFICATION LOG
*
* DATE         AUTHORS           DESCRIPTION
* ----------- ----------------- -------------------------------------- *
* 2010/11/08    XXXX       initial realease
************************************************************************

REPORT  ZCBOTABLE.

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