Upload/Download from unix - give easy exammple for tab delimited .TXT file

Question

Hello experts,
I have 2 requirements.
1. I want to upload a tab delimited .txt file from local PC to UNIX server.
2. I want to Read same file, then some process and get result to the same location. (output file name should be diffrent)
How i can fulfill these two requirements?
Regards,
RH

Answer 1

Hi,
upload a tab delimited .txt file from local PC to UNIX server
Please go through the below logic this will help you,
*& Report  Z10_SHAD_V_UPLD_PR_APP_SERV
report  z10_shad_v_upld_pr_app_serv message-id zmessage.
*&--INCLUDE FOR DECLARATION
include z10_upld_top.
*&--INCLUDE FOR ALL FORMS
include z10_upld_forms.
start-of-selection.
*&--PERFORM FOR UPLOADING LOGIC.
perform z10_upld.
end-of-selection.
*&  Include           Z10_UPLD_TOP
*&--STRUCTURE FOR INTERNAL TABLE.
*&--THAT IS GOING TO HOLD PRESENTATION SERVER FILE DATA.
data:begin of wa,
name(40) ,
end of wa.
*&--INTERNAL TABLE THAT IS GOING TO HOLD PRESENTATION SERVER DATA.
data: it_tab like wa occurs 0 with header line.
*&--SELECTION-SCREEN FOR GETTING THE PATH OF PRESENTATION LAYER
selection-screen begin of block abc with frame title text-001.
parameters: p_string(128) type c,
                  p_st(128) type c,
selection-screen end of block abc.
data: file_path type rlgrap-filename.
data: p_path type rlgrap-filename,
      filename1 type string,
      file_name like ibipparms-path,
      v_path like dxfields-longpath,
      l_path type string.
*&--PROVIDING F4 KEY FOR THE SCREEN FIELD THAT IS GOING TO
*&--HAVE THE PRESENTATION SERVER FILE PATH
at selection-screen on value-request for p_string.
  call function 'F4_FILENAME'
   exporting
     program_name        = syst-cprog
     dynpro_number       = syst-dynnr
  FIELD_NAME          = ' '
   importing
     file_name           = file_name
  p_string = file_name.
file_path = p_string.
p_path = file_path.
  filename1 = file_name.
*&--PROVIDING F4 KEY FOR THE SCREEN FIELD THAT IS GOING TO
*&--HAVE THE APPLICATION SERVER FILE PATH
at selection-screen on value-request for p_st.
call function 'F4_DXFILENAME_TOPRECURSION'
EXPORTING
  I_LOCATION_FLAG       = ' '
  I_SERVER              = '?'
  I_PATH                =
  FILEMASK              = '.'
  FILEOPERATION         = 'R'
importing
  O_LOCATION_FLAG       =
  O_SERVER              =
   o_path                = v_path
  ABEND_FLAG            =
exceptions
   rfc_error             = 1
   error_with_gui        = 2
   others                = 3
p_st = v_path.
if sy-subrc <> 0.
message id sy-msgid type sy-msgty number sy-msgno
         with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
*&      Form  Z10_UPLD
      text
-->  p1        text
<--  p2        text
form z10_upld .
if not p_string is initial.
*&--FUNCTION MODULE THAT IS GOING TO UPLOAD THE PRESENTATION SERVER FILE TO
*&--APPLICATION SERVER.
call function 'GUI_UPLOAD'
  exporting
   filename                      = filename1
   filetype                      = 'ASC'
  HAS_FIELD_SEPARATOR           = ' '
  HEADER_LENGTH                 = 0
  READ_BY_LINE                  = 'X'
  DAT_MODE                      = ' '
  CODEPAGE                      = ' '
  IGNORE_CERR                   = ABAP_TRUE
  REPLACEMENT                   = '#'
  CHECK_BOM                     = ' '
  VIRUS_SCAN_PROFILE            =
  NO_AUTH_CHECK                 = ' '
IMPORTING
  FILELENGTH                    =
  HEADER                        =
  tables
    data_tab                      = it_tab[]
exceptions
   file_open_error               = 1
   file_read_error               = 2
   no_batch                      = 3
   gui_refuse_filetransfer       = 4
   invalid_type                  = 5
   no_authority                  = 6
   unknown_error                 = 7
   bad_data_format               = 8
   header_not_allowed            = 9
   separator_not_allowed         = 10
   header_too_long               = 11
   unknown_dp_error              = 12
   access_denied                 = 13
   dp_out_of_memory              = 14
   disk_full                     = 15
   dp_timeout                    = 16
   others                        = 17
if sy-subrc <> 0.
message id sy-msgid type sy-msgty number sy-msgno
         with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
*path = filename1.
open dataset p_st in text mode for output encoding default.
  if sy-subrc ne 0.
    close dataset p_st.
    exit.
  endif.
  if sy-subrc eq 0.
  loop at it_tab.
    transfer it_tab to p_st.
  endloop.
  close dataset p_st.
  message i000.
  endif.
endif.
endform.                    " Z10_UPLD
Hope this helps.