*& 테이블의 데이타를 조정합니다.
*& STANDARD TABLE도 CONTROL가능합니다.
*& 변경된 이력은 Request가 관리되지 않으므로 주의바랍니다.

REPORT  z_se16.

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 e899(mm) 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 e899(mm) 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
*&---------------------------------------------------------------------*
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