REPORT ZTEST61 .

TYPE-POOLS: KKBLO.
DATA: G_TABNAME_HEADER TYPE KKBLO_TABNAME.

DATA:       VR TYPE REF TO DATA.

PARAMETERS: D_EXPORT RADIOBUTTON GROUP R1,
            D_IMPORT RADIOBUTTON GROUP R1.
PARAMETERS: TABNAM(16) MATCHCODE OBJECT DD_DBTB_16.
PARAMETERS: FILENAME LIKE  RLGRAP-FILENAME DEFAULT 'C:\TABLE.TXT',
            DELZ AS CHECKBOX.
DATA: BEGIN OF ITAB OCCURS 0,
       ST(4096),
      END OF ITAB.

DATA: FILEN TYPE STRING.

FIELD-SYMBOLS: <WA>, <P> .
TABLES: DD02L.

START-OF-SELECTION.

  AUTHORITY-CHECK     OBJECT    'S_TABU_DIS'
                        ID        'DICBERCLS'   FIELD 'XXXX'
                        ID        'ACTVT'       FIELD '02'.
  IF SY-SUBRC <> 0.
    LEAVE PROGRAM.
  ENDIF.

  CLEAR DD02L.
  SELECT SINGLE * FROM DD02L WHERE TABNAME = TABNAM.
  FILEN = FILENAME.


  IF  NOT DD02L-TABNAME IS INITIAL.

    CREATE DATA VR TYPE (TABNAM).
    ASSIGN VR->* TO <P>.

    IF D_EXPORT = 'X'.
      PERFORM EXPORT.
    ELSE.
      PERFORM IMPORT.
    ENDIF.
  ELSE.
    WRITE:/ 'Неправильное имя таблицы'.
  ENDIF.

*&--------------------------------------------------------------------*
*&      Form  EXPORT
*&--------------------------------------------------------------------*
*       text
*---------------------------------------------------------------------*
FORM EXPORT.
  CLEAR <P>.
  CLEAR: ITAB.
  REFRESH: ITAB.
  SELECT * FROM (TABNAM) INTO <P> .
    MOVE <P> TO ITAB.
    APPEND ITAB.
  ENDSELECT.

  CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
      FILENAME = FILENAME
      FILETYPE = 'ASC'
    TABLES
      DATA_TAB = ITAB
    EXCEPTIONS
      OTHERS   = 1.
  IF SY-SUBRC = 0.
    WRITE:/ 'Выгрузка прошла успешно в файл ',FILENAME.
  ELSE.
    WRITE:/ 'Ошибка выгрузки'.
  ENDIF.
ENDFORM.                    "EXPORT

*&--------------------------------------------------------------------*
*&      Form  IMPORT
*&--------------------------------------------------------------------*
*       text
*---------------------------------------------------------------------*
FORM IMPORT.
  CLEAR <P>.
  CLEAR: ITAB.
  REFRESH: ITAB.
  CALL FUNCTION 'WS_UPLOAD'
    EXPORTING
      FILENAME = FILENAME
      FILETYPE = 'ASC'
    TABLES
      DATA_TAB = ITAB
    EXCEPTIONS
      OTHERS   = 1.
  IF SY-SUBRC = 0.
    IF DELZ = 'X'.
      DELETE FROM (TABNAM) WHERE MANDT = SY-MANDT.
    ENDIF.
    LOOP AT ITAB INTO <P>.
      INSERT (TABNAM) FROM <P>.
    ENDLOOP.
    COMMIT WORK AND WAIT.
    WRITE:/ 'Загрузка из локального файла прошла успешно'.
  ELSE.
    WRITE:/ 'Ошибка загрузки'.
  ENDIF.
ENDFORM.                    "IMPORT