Abt RFC & FTP---- RFC to SAPFTP failed (urgent)

Question

Hi all,
my program is working fine when i execute it in SAP GUI.
in this program i need to send some local file to FTP server from presentation server.
  actually we have a scanner through which we can scan the barcode data from barcode label.this scanner is connected to  sap test server through web console.
     so ,i can see the sap screen on the screen of scanner for this perticular transaction.
after scanning a barcode,the barcode data comes to scanner.when i execute this report on the scanner, it is showing the error---- RFC to SAPFTP failed.
        where as this same report is working very fine on the SAP server.it can send my file from presentation server to FTP server located at some other place.
    web console is installed so i can connect scanner to SAP for this perticular transaction through web.i think, to execute on scanner is same as execute on sap server.
   This error comes while executing a Function module FTP_CONNECT which is present in my program.
   can u please tell where  is the problem?it is very urgent as they need in 1 day of time.
code is as follows.
FORM ftp_send using printer dir.
      data: user(64) type c value 'man',
            pwd(64) type c value 'post',
            host(64) type c value '172.160.122.30',
            cmd1(80) type c ,
            cmd2(150) type c ,
            cmd3(80) type c ,
            dest like rfcdes-rfcdest value 'SAPFTP',
            compress type c value 'N'.
data: hdl type i,
      key type i value 26101957,
      dstlen type i.
data: begin of result occurs 0,
      line(100) type c,
      end of result.
data:begin of tab_oline occurs 0,
     oline(200) type c,
     end of tab_oline.
describe field pwd length dstlen.
LOOP AT bt.
      CLEAR tab_oline.
      CONCATENATE
      bt-userid
      bt-zdate
      bt-seq
      bt-charg
      bt-batch
      bt-matnr
      bt-menge
      bt-lgpla
      bt-lifnr
      bt-lot_code
      bt-date_code
      bt-lead_nolead
      INTO tab_oline-oline SEPARATED BY ','.
append tab_oline.
endloop.
CALL FUNCTION 'WS_DOWNLOAD'
EXPORTING
  BIN_FILESIZE                  = ' '
  CODEPAGE                      = ' '
   FILENAME                      = 'c:\pabi29.txt '
   FILETYPE                      = 'DAT'
  MODE                          = ' '
  WK1_N_FORMAT                  = ' '
  WK1_N_SIZE                    = ' '
  WK1_T_FORMAT                  = ' '
  WK1_T_SIZE                    = ' '
  COL_SELECT                    = ' '
  COL_SELECTMASK                = ' '
  NO_AUTH_CHECK                 = ' '
IMPORTING
  FILELENGTH                    =
  TABLES
    DATA_TAB                      = tab_oline.
  FIELDNAMES                    =
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 ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
clear tab_oline.
refresh tab_oline.
call 'AB_RFC_X_SCRAMBLE_STRING'
  id 'SOURCE'      field pwd    id 'KEY'         field key
  id 'SCR'         field 'X'    id 'DESTINATION' field pwd
  id 'DSTLEN'      field dstlen.
**Set FTP File Paths
call function 'FTP_CONNECT'
  exporting
    user            = user
    password        = pwd
    host            = host
    rfc_destination = dest
  importing
    handle          = hdl.
if sy-subrc ne 0.
message e020 with 'RFC connection failed'.
endif.
   DATA: zfilename(150) TYPE c,
          zfilename2(150) TYPE c.
         printer(5) TYPE c." value 'P0001'.
CONSTANTS: dir(50) TYPE c VALUE '\SAPuser\SAPfolder\'.
DATA: dir(50) type c.
select single pfolder from zkt014 into dir where printer = printer.
TEXT file name
CONCATENATE dir printer bt-userid bt-zdate sy-uzeit bt-seq '.txt'
  INTO zfilename.
  CONDENSE zfilename no-gaps.
Done filename
  CONCATENATE dir printer bt-userid bt-zdate sy-uzeit bt-seq '.done'
  INTO zfilename2.
  CONDENSE zfilename2 no-gaps.
clear bt.
refresh bt.
concatenate 'put' '\pabi29.txt' zfilename
into cmd1 separated by space.
if cmd1 ne ' '.
  call function 'FTP_COMMAND'
    exporting
      handle        = hdl
      command       = cmd1
      compress      = compress
    tables
      data          = result
    exceptions
      command_error = 1
      tcpip_error   = 2.
  IF SY-SUBRC NE 0.
  message e021 with 'bar tender is not submited due to error in RFC'.
  endif.
  loop at result.
    write:/ result.
  endloop.
ENDIF.
  refresh result.
endif.
concatenate 'rename' zfilename zfilename2 into cmd2 separated by
space.
if cmd2 ne ' '.
  call function 'FTP_COMMAND'
    exporting
      handle        = hdl
      command       = cmd2
    tables
      data          = result
    exceptions
      command_error = 1
      tcpip_error   = 2.
      if sy-subrc eq 0.
  MESSAGE w044(zv).
  ELSE.
  message e019 with 'RFC ftp_command problem'.
   endif.
  loop at result.
    write:/ result.
  endloop.
  refresh result.
endif.
if cmd3 ne ' '.
  call function 'FTP_COMMAND'
    exporting
      handle        = hdl
      command       = cmd3
    tables
      data          = result
    exceptions
      command_error = 1
      tcpip_error   = 2.
  loop at result.
    write:/ result.
  endloop.
  refresh result.
endif.
call function 'FTP_DISCONNECT'
  exporting
    handle = hdl.
thanks in advance.
Regards
pabitra

Answer 1

Well may be the reason is that you are running report from SAP console.
SAPFTP is just an RFC destination which is actually pointing to an exe file on your frontend. filename is 'sapftp' and it is installed with your GUI frontend installation. May be while running through web console it is having problems accessing this file.
As a solution, why don't you use the rfc destination for the application server. It is called SAPFTPA. So instead of ws_download, you can save the file on application server through OPEN dataset ... ABAP commands. Than from application server ftp it using the same logic as it is in existing program. Just be sure to use the rfc destination SAPFTPA.
Hope this helps.
Cheers.