home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / slip-cm.zip / DemandFTP.CMD < prev    next >
OS/2 REXX Batch file  |  1994-03-21  |  535b  |  22 lines
  1. /******************************************************************/
  2. /*                                                                */
  3. /******************************************************************/
  4.  
  5. trace OFF
  6.  
  7.   signal on HALT name CLEANUP
  8.   signal on FAILURE name CLEANUP
  9.   signal on SYNTAX name CLEANUP
  10.  
  11.   parse arg parameters
  12.  
  13.   if \CMStart(DemandFTP, 1) then 
  14.     say date(USA) time() "001S connection could not be started"
  15.   else
  16.    '@ftp' parameters
  17.  
  18. CLEANUP: 
  19.  
  20.   call CMStop DemandFTP
  21.  
  22. return (RC)