report z message-id 38 line-size 255.
parameters: program  like trdir-name memory id rid,
            language like t002-spras memory id spr default 'EN',
            display  radiobutton group rad1,
            download radiobutton group rad1,
            upload   radiobutton group rad1,
            fix      radiobutton group rad1, "just rebuild text elements
            generate as checkbox,            "generate report
            pc_file(128) type c lower case.

data: begin of i_textpool occurs 0.
        include structure textpool.
data: end of i_textpool.
data: begin of it_text occurs 0,
        id      like i_textpool-id,
        key     like i_textpool-key,
        entry   like i_textpool-entry,
        slen(3) type n,
      end of it_text.
data w_line(255) type c.

*------------------------------------------------*
at selection-screen on value-request for pc_file.
*- - - - - - - - - - - - - - - - - - - - - - - - *
  call function 'WS_FILENAME_GET'
    exporting
      mask         = ',*.*,*.*.'
    importing
      filename     = pc_file
    exceptions
      inv_winsys             = 1
      no_batch               = 2
      selection_cancel       = 3
      selection_error        = 4
      others                 = 5.
  if sy-subrc <> 0.
    case sy-subrc.
      when 1 or 4 or 5. message s899(mm) with 'Cannot select file name'.
      when 2. "impossible
      when 3. "no actions
    endcase.
  endif.

*------------------------------------------------*
start-of-selection.
*- - - - - - - - - - - - - - - - - - - - - - - - *
  if upload is initial.
    write: / '... Reading Textpool...'.
    read textpool program into i_textpool language language.
    if sy-subrc <> 0.
      message e000 with 'Textpool for' program
                        'does not exist for language' language.
    else.
      write: / 'Read Ok'.
    endif.
  endif.

*------------------------------------------------*
end-of-selection.
*- - - - - - - - - - - - - - - - - - - - - - - - *
  if not download is initial or
     not display  is initial.
    loop at i_textpool.
      it_text-id    = i_textpool-id.
      it_text-key   = i_textpool-key.
      it_text-entry = i_textpool-entry.
      it_text-slen  = i_textpool-length.
      append it_text.
      clear it_text.
    endloop.
  endif.

  if not display is initial.
    write: / '... Displaying Textpool...'.
    loop at it_text.
      concatenate it_text-id it_text-key it_text-slen it_text-entry
                  into w_line separated by space.
      write: / w_line.
    endloop.
  endif.

  if not download is initial.
    write: / '... Downloading Textpool to the File', pc_file.
    call function 'WS_DOWNLOAD'
      exporting
        filename                      = pc_file
        filetype                      = 'ASC'
      tables
        data_tab                      = it_text
      exceptions
        file_open_error               = 1
        file_write_error              = 2
        invalid_filesize              = 3
        invalid_type                  = 4
        no_batch                      = 5
        unknown_error                 = 6
        invalid_table_width           = 7
        gui_refuse_filetransfer       = 8
        customer_error                = 9
        others                        = 10.
    if sy-subrc <> 0.
      message e000 with 'Cannot download to file' pc_file
                        'return code = ' sy-subrc.
    else.
      write: / 'Downloaded Ok'.
    endif.
  endif.

  if not upload is initial.
    write: / '... Uploading Textpool from the File', pc_file.
    call function 'WS_UPLOAD'
      exporting
        filename                      = pc_file
        filetype                      = 'ASC'
      tables
        data_tab                      = it_text
      exceptions
        conversion_error              = 1
        file_open_error               = 2
        file_read_error               = 3
        invalid_type                  = 4
        no_batch                      = 5
        unknown_error                 = 6
        invalid_table_width           = 7
        gui_refuse_filetransfer       = 8
        customer_error                = 9
        others                        = 10.
    if sy-subrc <> 0.
      message e000 with 'Cannot download to file' pc_file
                        'return code = ' sy-subrc.
    else.
      write: / 'Uploaded Ok'.
    endif.
    loop at it_text.
      i_textpool-id     = it_text-id.
      i_textpool-key    = it_text-key.
      i_textpool-entry  = it_text-entry.
      i_textpool-length = it_text-slen.
      append i_textpool.
      clear i_textpool.
    endloop.
  endif.

  if not upload is initial or
     not fix    is initial.
    write: / '... Deleting Textpool...'.
    delete textpool program language language.
    if sy-subrc <> 0.
      message e000 with 'Deletion of textpool failed'.
    else.
      write: / 'Deleted Ok'.
    endif.
    write: / '... Inserting Textpool...'.
    insert textpool program from i_textpool language language.
    if sy-subrc <> 0.
      message e000 with 'Insertion of textpool failed'.
    else.
      write: / 'Inserted Ok'.
      write: / 'Textpool for program', program,
               'has been rebuild for language', language.
    endif.
  endif.

  if not generate is initial.
    write: / '... Generating Report...'.
    generate report program.
    if sy-subrc = 0.
      write: / 'Generated Ok'.
    else.
      write: / 'Unable to generate report'.
    endif.
  endif.