home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / wpdsc093.zip / register.cmd < prev    next >
OS/2 REXX Batch file  |  1995-11-06  |  1KB  |  44 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.2="DSCRFileList"
  9. cls.1="DSCRDataFile"
  10. dll.2="dscrlst"
  11. dll.1="dscrdf"
  12. cls.0=2
  13. dll.0=2
  14.  
  15. do i=1 to cls.0
  16.   retc=SysRegisterObjectClass(cls.i,dll.i) 
  17.   if retc=1 then
  18.          say 'Install successfully completed for the class 'cls.i
  19.   else do
  20.     say 'Error registering class 'cls.i' ('dll.i')'
  21.     say 'Please contact VOS to report this error'
  22.     signal ExitInst
  23.   end            
  24. end
  25.  
  26. rc= DSCRxReplaceClass('WPDataFile','DSCRDataFile',1)
  27.  
  28. if rc=0 then do
  29.   say 'Error occured while replacing WPDataFile class'
  30.     signal ExitInst
  31. end
  32. say 'Class WPDataFile successfuly replaced with DSCRDataFile'
  33.  
  34. rc=DSCRxReplaceClass('WPFolder','DSCRFileList',1)
  35.  
  36. if rc=0 then do
  37.   say 'Error occured while replacing WPFolder class'
  38.     signal ExitInst
  39. end
  40.  
  41. say 'Class WPFolder successfuly replaced with DSCRFileList'
  42.  
  43.  
  44.