data:
user(30) type c,
pwd(30) type c,
host(64) type c,

dest like rfcdes-rfcdest value 'SAPFTP'.

write: /'Testprogramm für das WuT ERP-Gateway Wayback #57635',
       /'Hier können Sie durch einen Doppelklick auf die entsprechende',
       /'Zeile direkt die Ausgänge des Gerätes schalten.'.
       uline.

write: /'Kanal 0 an',
       /'Kanal 0 aus',
       /, /'Kanal 1 an',
       /'Kanal 1 aus'.

at line-selection.

CASE SY-LISEL.
WHEN 'Kanal 0 an'.
      user = 'output0=on'.
WHEN 'Kanal 0 aus'.
      user = 'output0=off'.
WHEN 'Kanal 1 an'.
      user = 'output1=on'.
WHEN 'Kanal 1 aus'.
      user = 'output1=off'.
WHEN OTHERS.
      user = ''.
ENDCASE.

*********** Hier die IP-Adresse und das Passwort eintragen. ************
host = '192.168.0.10'.
pwd = 'test'.
************************************************************************

data: hdl type i,
      key type i value 26101957,
      slen type i.

data: begin of result occurs 0,
      line(100) type c,
      end of result.

set extended check off.
slen = strlen( pwd ).

call function 'HTTP_SCRAMBLE'
  exporting
    source      = pwd
    sourcelen   = slen
    key         = key
  importing
    destination = pwd.

call function 'FTP_CONNECT'
  exporting
    user            = user
    password        = pwd
    host            = host
    rfc_destination = dest
  importing
    handle          = hdl.

call function 'FTP_DISCONNECT'
  exporting
    handle = hdl.

call function 'RFC_CONNECTION_CLOSE'
  exporting
    destination = pwd
  exceptions
    others = 1.