home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / wpdsc093.zip / uninst.cmd < prev    next >
OS/2 REXX Batch file  |  1995-11-06  |  725b  |  30 lines
  1. /* rexx */
  2.  
  3. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  4. call SysLoadFuncs
  5. call RxFuncAdd "DSCRxLoadFuncs","rxdscr","DSCRxLoadFuncs"
  6. call DSCRxLoadFuncs
  7.  
  8. cls.1="DSCRFileList"
  9. cls.2="DSCRDataFile"
  10. dll.1="dscrlst"
  11. dll.2="dscrdf"
  12. Call SysDestroyObject "<DSCRFileList_TEMP>"
  13.  
  14. rc= DSCRxReplaceClass( 'WPFolder', 'DSCRFileList', 0)
  15. if rc=0 then say 'Error backing up class WPFolder'
  16.  
  17. rc= DSCRxReplaceClass( 'WPDataFile', 'DSCRDataFile', 0)
  18. if rc=0 then say 'Error backing up class DSCRDataFile'
  19.  
  20. do i=1 to 2
  21.   rc=SysDeregisterObjectClass(cls.i) 
  22.   if rc=1 then
  23.          say 'Class 'cls.i' successfully deregistered'
  24.   else do
  25.     say 'Error deregistering class 'cls.i
  26.   end            
  27. end
  28.  
  29.  
  30.