home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / rxmir13.zip / unload.cmd < prev   
OS/2 REXX Batch file  |  1998-10-30  |  612b  |  20 lines
  1. /* REXX to unload DLL files loaded by REXX extensions */
  2. if rxFuncQuery("ftpDropFuncs")=0 then do
  3.     say "Unloading rxFtp extensions..."
  4.     call ftpDropFuncs
  5.     call rxFuncDrop "ftpDropFuncs"
  6.     call rxFuncDrop "ftpLoadFuncs"
  7. end
  8. if rxFuncQuery("sysDropFuncs")=0 then do
  9.     say "Unloading rexxUtil extensions..."
  10.     call sysDropFuncs
  11.     call rxFuncDrop "sysDropFuncs"
  12.     call rxFuncDrop "sysLoadFuncs"
  13. end
  14. if rxFuncQuery("rx2DropFuncs")=0 then do
  15.     say "Unloading rx2Util extensions..."
  16.     call rx2DropFuncs
  17.     call rxFuncDrop "rx2DropFuncs"
  18.     call rxFuncDrop "rx2LoadFuncs"
  19. end
  20.