REPORT zedit_db_table.

TABLES:
  dd02l.

DATA:
  action(70)     TYPE c VALUE 'ANZE',
  global_auth(4) TYPE c VALUE ' ',
  progname       TYPE progname.

****************************************
* SELECTION SCREEN                     *
****************************************
SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_dbtab LIKE dd02l-tabname OBLIGATORY.
SELECTION-SCREEN: END OF BLOCK b1.

****************************************
* START OF SELECTION                   *
****************************************
START-OF-SELECTION.
  dd02l-mainflag = 'X'.
  EXPORT action dd02l-mainflag global_auth
         TO MEMORY ID 'TABELLENANZEIGER'.

  CONCATENATE '/1BCDWB/DB' p_dbtab INTO progname.
  SUBMIT (progname) VIA SELECTION-SCREEN AND RETURN.