[RBASE-L] - RE: transmit

[A. Razzak Memon]

At 12:00 PM 10/3/2009, Paul Dewey wrote:

Now the question(s) if you use FTP I always send a file. I am sure
once you establish a connect by FTP what process would be done after?

Paul,

Here's how:

-- Example to Upload File on Remote FTP Server using R:FTP Client

-- Define file name
   SET VAR vEDI_FileName TEXT = 'whatever.edi'

-- Define String for R:FTPClient UPLOAD Parameter
   SET VAR vQuote TEXT = (CVAL('QUOTES'))
   SET VAR vFileNameString TEXT = +
   (.vQuote+'vResult|FTP_UPLOAD'&.vEDI_FileName+.vQuote)

-- Now upload file to FTP location/server
   CLS
   PLUGIN RFTPClient.rbl 'vResult|SHOW PROGRESS'
   PLUGIN RFTPClient.rbl 'vResult|CLEAR PROGRESS'
   PLUGIN RFTPClient.rbl 'vResult|FTP_USERNAME username'
   PLUGIN RFTPClient.rbl 'vResult|FTP_PASSWORD userpassword'
   PLUGIN RFTPClient.rbl 'vResult|FTP_HOST ftp.sitename.com'
   PLUGIN RFTPClient.rbl 'vResult|FTP_PORT 21'
   PLUGIN RFTPClient.rbl 'vResult|FTP_CONNECT'
   IF vResult <> 'OK' THEN
      GOTO ShowErrors
   ENDIF
   PLUGIN RFTPClient.rbl 'vResult|WAIT 1000'
   PLUGIN RFTPClient.rbl 'vResult|FTP_CHDIR ftpdirectoryname'
   IF vResult <> 'OK' THEN
      GOTO ShowErrors
   ENDIF
   PLUGIN RFTPClient.rbl 'vResult|WAIT 1000'
   PLUGIN RFTPClient.rbl 'vResult|CHDIR localdirectoryname'
   IF vResult <> 'OK' THEN
      GOTO ShowErrors
   ENDIF
   PLUGIN RFTPClient.rbl &vFileNameString
   IF vResult <> 'OK' THEN
      PLUGIN RFTPClient.rbl 'vResult|WAIT 1000'
      PLUGIN RFTPClient.rbl 'vResult|CHDIR ..'
      PLUGIN RFTPClient.rbl 'vResult|WAIT 1000'
      GOTO ShowErrors
   ENDIF
   PLUGIN RFTPClient.rbl 'vResult|WAIT 1000'
   PLUGIN RFTPClient.rbl 'vResult|CHDIR ..'
   PLUGIN RFTPClient.rbl 'vResult|WAIT 1000'
   PLUGIN RFTPClient.rbl 'vResult|FTP_DISCONNECT'
   PLUGIN RFTPClient.rbl 'vResult|CLEAR PROGRESS'
   PLUGIN RFTPClient.rbl 'vResult|HIDE PROGRESS'
   IF vResult <> 'OK' THEN
      GOTO ShowErrors
   ELSE
      CLS
      PAUSE 2 USING 'EDI File Uploaded Successfully!' +
      CAPTION 'Upload EDI File' +
      ICON CONFIRM BUTTON 'Click here to continue ...' +
      OPTION MESSAGE_FONT_NAME Verdana +
      |MESSAGE_FONT_COLOR GREEN +
      |MESSAGE_FONT_SIZE 9 +
      |MESSAGE_FONT_BOLD ON +
      |BUTTON_COLOR WHITE +
      |BUTTON_FONT_COLOR GREEN +
      |THEMENAME R:BASE Rocks!
      GOTO Done
   ENDIF

LABEL ShowErrors
      CLS
      PAUSE 2 USING .vResult CAPTION 'Upload EDI File' +
      ICON WARNING Button 'Press any key to continue ...' +
      OPTION BACK_COLOR WHITE +
      |MESSAGE_COLOR WHITE +
      |MESSAGE_FONT_COLOR RED +
      |BUTTON_COLOR WHITE
      PLUGIN RFTPClient.rbl 'vResult|FTP_DISCONNECT'
      PLUGIN RFTPClient.rbl 'vResult|CLEAR PROGRESS'
      PLUGIN RFTPClient.rbl 'vResult|HIDE PROGRESS'

LABEL Done
CLS
CLEAR VAR vEDI_FileName,vFileNameString,vResult
RETURN

That's all there is to it!

Very Best R:egards,

Razzak.

P.S.
Make sure that you are using the latest updates of R:FTPClient or
R:SFTPClient.